Re: RE : Windev+IE ou Firefox | Sujet: Re: RE : Windev+IE ou Firefox par Th0rA sur 27/7/2005 11:01:48
Re bonjour
Sa pourrai etre un projet interraissant de modifier cette classe mais je crois que je vient de trouver plus simple avec l'aide d'un personne du forum de PCSoft. Voici l'exemple qu'il ma donné
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
Et je les modifier a ma guise se qui me donne
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")
donc tout marche same login et m'envoie vers ma page de jeux.
C'est genial Maintenant j'essaie de reflechir sur le code a mettre pour recuperer le code source. Je suppose que je doit utiliser oInternet>>document>>body>>outerHTML et puis une fois recuperer et je mes sa dans une variable et je recupere en triand tout sa avec du W-Language pour l'envoyer vers mon analyse. Mais la je croit que j'ai besion d'un peut d'aide.
[edit]Bon voila j'ai fait pas mal de teste et je pense quand meme qu'il serai mieux de modifier les classe CiExplorer car l y'a pas mal de chose qui pourrai me servir commet d'automatiser la recuperation du code source.[/edit] Merci d'avances, Th0rA
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|