AppActivate et SendKeys

Salut à tous :)

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

Code:

---

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..

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

Code:

---

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 ..?

Merci bbil :ccool:

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 ?