4 mai 2010

VBS : sendkeys

Aujourd'hui un petit script permettant d'appliquer un thème windows par VBS.
En soit pas très intéressant mais l'essentiel repose dans l'utilisation de la commande "sendkeys" qui permet de simuler l'appui d'une touche clavier.

set objShell =createobject("wscript.shell")

objShell.run """C:\Temp\ThemePerso.Theme""", 0
' Temporisation permettant d'attendre le chargement du thème

WScript.Sleep 1000
' Activation de la fenêtre (seule les premières lettres du non de la fenêtre suffisent)

objShell.AppActivate "Prop"
' Temporisation permettant d'attendre que la fenêtre soit activée

WScript.Sleep 1000

' Simulation d'une pression sur la touche "Entrée" du poste.

objShell.sendkeys "^+~"
Set objShell=Nothing
Après quelques tests, il s'avère que la temporisation ne peut pas être supprimée (même si la durée peut-être réduite).
D'autres exemples de saisie clavier par script sont dispos à l'endroit suivant:

Aucun commentaire:

Enregistrer un commentaire