Script vbs ne fonctionne pas
randall
Messages postés
440
Date d'inscription
Statut
Membre
Dernière intervention
-
caiman2 Messages postés 1435 Date d'inscription Statut Membre Dernière intervention -
caiman2 Messages postés 1435 Date d'inscription Statut Membre Dernière intervention -
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
- Script vidéo youtube - Guide
- Vbs windows - Accueil - Optimisation
- 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
