Script VBS : Lancer une succession de touches

From Deimos.fr / Bloc Notes Informatique
Jump to: navigation, search

Les développeurs diront que c'est dégueulasse, mais ceux qui veulent un truc rapide sans prise de tête trouveront ça pratique. Bref voici un exemple de script pour lancer une sucession de touches :

set WshShell = CreateObject("WScript.Shell")
 
Wshshell.Sendkeys "%B"
WScript.Sleep 500
Wshshell.Sendkeys "%N"
WScript.Sleep 200
Wshshell.Sendkeys "%S"
Wshshell.Sendkeys "{ENTER}"
WScript.Sleep 15000
Wshshell.Sendkeys "%{F4}"
WScript.Sleep 500

Sinon, je viens de me prendre la tete en port console sur Solaris à faire un fsck et il faut répondre en non stop "y" et appuyer sur la touche entrée. Et bien, voilà la solution qui vous permettra de ne pas rester devant la machine comme un galérien à appuyer sur 2 touches :

set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 3000
i=0
do while i < 10
      Wshshell.Sendkeys "y"
      Wshshell.Sendkeys "{ENTER}"
      WScript.Sleep 10
loop

Vous avez 3 sec pour lancer le script et lancer le terminal sur lequel se trouve le port série. Ensuite, lorsque c'est fini, killez le service.