Script vbs ne fonctionne pas
randall
Messages postés
529
Date d'inscription
Statut
Membre
Dernière intervention
-
caiman2 Messages postés 1489 Statut Membre -
caiman2 Messages postés 1489 Statut Membre -
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
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
A voir également:
- Script vbs ne fonctionne pas
- Vbs windows - Accueil - Optimisation
- Script vidéo youtube - Guide
- Ghost script - Télécharger - Polices de caractères
- Mas script - Accueil - Windows
- Script cmd - Guide
1 réponse
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
