[VBS] – Simuler le contrôle de touche « Windows + R »

Windows_+_R

 

Coucou la compagnie !!!

 

Bon alors pour rentrer vraiment dans le vif du vif, j'ai enfilé mes bottes en caoutchouc et mon ciré jaune ...

Il n'est pas

POSSIBLE

 

 

de simuler l'appui de la touche Windows ...
Pour des raisons "évidente" de sécurité ...
Cette touche est normalement réservée à l'OS ...

 

Proof of concept ultra méga technique ^^ 

Vous entrez dans un programme ... vous appuyez sur la touche Windows et ... pouf ... vous êtes sorti du programme ...

 

Pour ceux qui souhaiteraient juste simuler cette touche ...
Il suffit de faire "Ctrl + Echap"

Pour les autres que le sujet intéresse, j'ai réalisé pour vous une petite fonction VBS qui va vous permettre de faire votre "Windows+R" de manière détourné ...

 

Sub WindowsR(command)
	Set x = WScript.CreateObject("WScript.Shell")
	x.run "taskmgr"
	WScript.Sleep 100
	x.AppActivate "taskmgr"
	x.SendKeys "%{c}N"
	WScript.Sleep 100
	x.SendKeys command
	x.SendKeys "{Enter}"
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
	Set colProcess    = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'taskmgr.exe'")
	For Each objProcess in colProcess
		objProcess.Terminate()
	Next 	
End Sub

 

Testé uniquement sur un Windows en français ...

WindowsR "mspaint"

 

Cette fonction consiste à ouvrir le gestionnaire de tâche et envoyer les bons contrôles de touche pour naviguer dans les sous menu, jusqu'à accéder au fameux "exécuter"

Partagez ce contenu

2 comments

Laisser une réponse

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *