Discussion :

[Chatbour]

Salut à tous

Pourquoi ce script ne marche pas ? sauf si j'ouvre notepad au préalable ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
set wshShell = CreateObject("Wscript.Shell")
 
wshShell.Run "notepad"
 
wshShell.AppActivate "Sans titre - Bloc-notes"
 
 
wshShell.SendKeys "Salut !"

Merci d'avance..

[SfJ5Rpw8]

je n'aime pas utiliser SendKeys... mais bon dans l'aide VBScript :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 set WshShell = WScript.CreateObject("WScript.Shell")
         WshShell.Run "calc"
         WScript.Sleep 100
         WshShell.AppActivate "Calculatrice"
         WScript.Sleep 100
         WshShell.SendKeys "1{+}"

ils mettent des pauses... entre les diverses actions...



On peu savoir ce que tu veux faire ..?

[Chatbour]

Merci bbil

j'ai voulu tester AppActivate et SendKeys au premier lieu.. mais j'étais surpris..

Je pense que l'astuce est dans Sleep pour laisser le temps à Notepad.exe pour s'ouvrir non ?