[R] Attendre le chargement d'une page internet

astaroth · #1

Bonjour,

je voudrait savoir comment attendre le chargement d'une fenetre internet explorer.

;Ouvre Internet Explorer
Run("C:\Program Files\Internet Explorer\iexplore.exe")
Sleep(3000)

for $i=1 to 1 step 1 
 MouseClick("right",484,67)
 MouseClick("left",525,79)
Next

;favoris
for $i=1 to 1 step 1 
 MouseClick("left",17,90) 
 Sleep(200) 
Next

for $i=1 to 1 step 1 
 MouseClick("left",72,189) 
 Sleep(200) 
Next

for $i=1 to 1 step 1 
 MouseClick("left",273,188) 
Next

;Nom d'utilisateur
for $i=1 to 1 step 1 
 MouseClick("left",416,634) 
Send("John") 
Next

;Mot de passe
for $i=1 to 1 step 1 
 MouseClick("left",416,678)
 Send("123456")
Next

;connexion
for $i=1 to 1 step 1 
 MouseClick("left",563,732) 
 Sleep(8500) 
Next

voila je voudrait attendre que la page finissent de charger avant d'entrer le nom d'utilisateur..

merci

#2

salut et soit le bienvenu

essaye runwait

Code : Tout sélectionner

$slien = "www.autoitscript.fr"
RunWait(@ComSpec & ' /c start iexplore ' & $slien, "", @SW_HIDE)

tu n'es pas obligé d'indiquer la variable lien, c'est juste pour mieux s'y retrouver.
Le hide signifie que tu cache la console ms-dos, vu que cette commande lance l'interface console (run/rundos/runwait)
pour lancer un programme tu a ShellExecute.

Code : Tout sélectionner

RunWait(@ComSpec & ' /c start iexplore http://www.autoitscript.fr', "", @SW_HIDE)

Ou même d'indiquer http:\\ au lien vu qu'on utilise internet explorer pas besoin (c'est pour les novices)

astaroth · #3

ani a écrit :salut et soit le bienvenu

essaye runwait

Merci

Mais pour RunWait un petit exemple? (je debute^^)

#4

je viend de réediter, excuse j'ai fait çà en deux fois.

apparement c'est pour te loguer a une page donc, je vais refouiller un peu les démos et toi regarde de ton coté au niveau de la documentation sur IE (pour récuperer les tag/nom/valeur(pour te logguer) et ouvrir une page ie , car si t'a page est dans un autre endroit les clique ne seront plus valable.

pour moi sa fait longtemp que j'ai pas visionner cette partie donc,, excuse moi d'avance.

je suis pas trop sure que sa soit çà

Code : Tout sélectionner

#include <IE>
$oIE = _IECreate ("http://www.autoitscript.fr/")
Send("{TAB 8}")
Send("{ENTER}")
_IELoadWait ($oIE)

normalement ce script fait 8 tabulation et arrive sur le lien liste des menbres , il clique (enter) et load la page en question il attend la fin du chargement avant de lancer autre chose.

ps:message qui sera réédité si je retrouve l'exemple pour se
logguer

SurPriseS · #5

Bon un truc que j'ai fait pour me logué sur un site perso :

Code : Tout sélectionner

Func login ( )
up_down ( ) ;ping
$oIE = _IECreate ( " http://*****/login.php " , 0 , 0 )
;parse des value login et password
$oInputs = _IETagNameGetCollection ( $oIE , " input " )
For $oInput In $oInputs
if $oInput.maxlength = 15 then
$oologin = $oInput.name
ElseIf $oInput.maxlength = 20 then
$oopassword = $oInput.name
endif
Next
$oForm = _IEFormGetObjByName ( $oIE , " snd " )
$oLogin = _IEFormElementGetObjByName ( $oForm , $oologin )
$oPassword = _IEFormElementGetObjByName ( $oForm , $oopassword )
$oinputlogin = GUICtrlRead ( $input_login ) ;récupération du login
$oinputpassword = GUICtrlRead ( $input_password ) ;récupération du mot de passe
_IEFormElementSetValue ( $oLogin , $oinputlogin )
_IEFormElementSetValue ( $oPassword , $oinputpassword )
_IEFormSubmit ( $oForm )
_IELoadWait ( $oie )
if not @error then msgbox ( 0 , " Message " , " Procédure de connection terminée " )
$sText = _IEBodyReadText ( $oIE ) ; lit la page en cours
MsgBox ( 0 , " Body Text " , $sText ) ; affiche dans une msgbox le TEXTE de la page en cours
$login_ok = 1
EndFunc

et

Code : Tout sélectionner

func up_down ( )
ping ( " http://******* " )
If ( @error ) Then
MsgBox ( 16 , " Erreur " , " Impossible de joindre l'url " )
Exit 1
EndIf
EndFunc

astaroth · #6

Merci beaucoup