Script vbs ne fonctionne pas Fermé

Question

Bonjour,
Le script suivant qui devait écrire dans le bloc notes ne fonctionne pas.
Le bloc notes se lance mais n'écrit rien et en même temps se lance une image et un document word qui se trouvent dans la même dossier que le script
D'où vient l'erreur
Merci

Dim Exec, resultat 
Set Exec = CreateObject("WScript.Shell")
Resultat = Exec.Run ("notepad.exe")
Exec.AppActivate "Notepad"
wscript.sleep 5                                        
exec.SendKeys ("M")                                
                                                 
wscript.sleep 121                                     '

exec.SendKeys ("O")
wscript.sleep 121
exec.SendKeys ("I")
wscript.sleep 121
exec.SendKeys (" ")
wscript.sleep 121
exec.SendKeys ("!")
wscript.sleep 121

exec.SendKeys ("{enter}")                          
                                                    
wscript.sleep 121
exec.SendKeys ("Bonjour tout le monde!")
Set WshShell = Nothing

caiman2 · Answer

C'est un problème de délai , essayez cela:

Dim Exec, Resultat 
Set Exec = CreateObject("WScript.Shell") 
Resultat = Exec.Run ("notepad.exe") 
Exec.AppActivate "Notepad" 
wscript.sleep 500
Exec.SendKeys ("M") 

wscript.sleep 500

exec.SendKeys ("O") 
wscript.sleep 500 
exec.SendKeys ("I") 
wscript.sleep 500 
exec.SendKeys (" ") 
wscript.sleep 500 
exec.SendKeys ("!") 
wscript.sleep 500 

exec.SendKeys ("{enter}") 

wscript.sleep 1000 
exec.SendKeys ("Bonjour tout le monde!") 
Set WshShell = Nothing

Script vbs ne fonctionne pas

1 réponse

Discussions similaires