Script vbs ne fonctionne pas
randall
Messages postés
531
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
- Mas script - Accueil - Windows
- Ghost script - Télécharger - Polices de caractères
- 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
