Probleme VBSCRIPT

Question

Bonjour,

Voilà j'ai un petit script qui permet de lancer une appli et cliquer  sur un bouton de celle-ci pour lancer une sauvegarde.

set wWshShell = WScript.CreateObject("WScript.Shell")
Result = wWshShell.Popup("Attention la sauvegarde C sur E va démarrer", 10, "C sur E planifié")
wscript.sleep 2000
set wwshshell=nothing
set wshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Documents and Settings\Fred\Mes documents\Projet1.exe""",1

wscript.sleep 3000
wshshell.appactivate "Form1"
wscript.sleep 2000
wshshell.sendkeys "{TAB}" 'Bascule sur bouton 2
wscript.sleep 500
wshshell.sendkeys "{ENTER}" 'Clic bouton 2

Je commence par afficher à l'aide d'un popup un message d'avertissement puis au bout d'un certain temps le popup se ferme et je lance l'appli. Jusque là ca va.

Ensuite j'active mon appli  FORM1 et je dois effectuer une combinaison de touches grace a sendkeys TAB et ENTER pour accéder au bouton de l'appli qui lance la sauvegarde.

Mon probléme est si je laisse les 2 lignes initialisant le popup, les SENDKEYS ne sont pas envoyés à mon appli.

Par contre si j'enleve ce popup ca marche bien.

Quelqu'un peut il m'expliquer ce qui ne va pas ?

Merci beaucoup par avance

dysorthographie · Answer

Bonjour,

Dim Return ,wshShell
set wshShell = WScript.CreateObject("WScript.Shell")
Return =WshShell.Run("""C:\Documents and Settings\Fred\Mes documents\Projet1.exe""",1)
WshShell.AppActivate Return

Probleme VBSCRIPT

1 réponse

Votre réponse

Discussions similaires