oInternet est un objet Automation "InternetExplorer.Application"
oInternet>>Navigate("http://www.google.ca/advanced_search?hl=fr")
oForm est un objet Automation dynamique
//Attente que la page soit chargée
TANTQUE oInternet>>Busy
Multitâche(50)
FIN
//Récupération du formulaire
//Le nom du formulaire est f
oForm = oInternet>>document>>forms("f")
icpt est un entier
//Liste des champs du formulaire
POUR icpt = 0 A oForm>>length-1
Trace(oForm>>item(icpt)>>name)
FIN
oInternet>>visible = Vrai
SI oForm <> Null ALORS
//Remplissage des champs
oForm>>num>>value = "100"
oForm>>as_q>>value = "windev"
oForm>>as_epq>>value = "forum développeur"
oForm>>as_oq>>value = "pc soft"
oForm>>as_eq>>value = "FREEDEV"
oForm>>lr>>value = "lang_fr"
oForm>>as_qdr>>value = "m3"
oInternet>>visible = Vrai
//Attente de 5 secondes
strTitre est une chaîne
SysFenActive(oInternet>>HWND)
POUR icpt = 5 A 1 PAS -1
strTitre = "Lancement de la recherche dans " + icpt + "
seconde(s)"//+caract(0)
//Modification du titre de la fenetre
API("user32","SetWindowTextA",oInternet>>HWND,&strTitre)
Multitâche(100)
FIN
//Exécution de la recherche
oForm>>submit
FIN
oInternet est un objet Automation "InternetExplorer.Application"
oInternet>>Navigate("http://www.combattre-ou-mourir.net/deconnexion.php")
oForm est un objet Automation dynamique
//Attente que la page soit chargée
TANTQUE oInternet>>Busy
Multitâche(10)
FIN
//Récupération du formulaire
//Le nom du formulaire est f
oForm = oInternet>>document>>forms("iden")
icpt est un entier
oInternet>>visible = Vrai
SI oForm <> Null ALORS
//Remplissage des champs
oForm>>username>>value = GL_login_COM
oForm>>password>>value = GL_MotPasse_COM
oInternet>>visible = Vrai
//Attente de 5 secondes
strTitre est une chaîne
SysFenActive(oInternet>>HWND)
POUR icpt = 5 A 1 PAS -1
strTitre = "Login dans " + icpt + "seconde(s)"//+caract(0)
//Modification du titre de la fenetre
API("user32","SetWindowTextA",oInternet>>HWND,&strTitre)
Multitâche(100)
FIN
//Exécution de la recherche
oForm>>submit
FIN
TANTQUE oInternet>>Busy
Multitâche(30)
FIN
oInternet>>Navigate("http://www.combattre-ou-mourir.net/jouer.php")
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2523&post_id=10830