Remplace "DoEvents" par "WScript.Sleep 100" (fait des pauses de 1/10 seconde pour laisser le temps au script de s'éxécuter sans bouffer tout le CPU)
C'est moins joli mais bon...
PS: si tu attends qu'il se passe quelquechose quand tu exécutes ton script, alors modifie-le de la façon suivante : (mais vire les modification ensuite, c'est juste pour voir ce qu'il fait)
const READYSTATE_COMPLETE = 4
dim inet
set inet = CreateObject("InternetExplorer.Application" )
inet.Navigate "http://www.google.com"
' Ligne à virer - Affiche IE
inet.visible = true
Do While Not inet.ReadyState = READYSTATE_COMPLETE
WScript.Sleep 100
Loop
' Ligne à virer - On voit google
WScript.Sleep 5000
' Ligne à virer - Effectue une recherche sur "Manga-Torii"
inet.document.f.q.value = "Manga-Torii"
' Ligne à virer - Clique sur le bouton "J'ai de la chance"
inet.document.f.btnI.click()
' Ligne à virer
WScript.Sleep 5000
inet.Quit
Set inet = Nothing
|
VBS c'est maxi pratique pour automatiser des trucs sur Internet (on peut même programmer une machine à flooder sur le forum )
Message édité par MagicBuzz le 27-10-2003 à 19:47:14