[R] Navigation sur page web + Remplissage InputBox

[Gamarah]

Bonjour !
Avant d'utiliser Autoit3, je programmais en VBS.
Et je n'arrive pas à retrouver l'équivalent Autoit du script Vbs ci dessous :

Code : Tout sélectionner

   IE.navigate "http://b2i-49.ac-nantes.fr/gibii/login/login.php?etab_id=582"
   Do While (IE.Busy)
    WScript.Sleep 20
   Loop
   Set Helem = IE.document.getElementById("s_login")
   Helem.Value = Id
   Set Helem = IE.document.getElementById("s_passwd")
   Helem.Value = Mdp
 

Voici la démarche
1> La page "http://b2i-49.ac-nantes.fr/gibii/login/ ... tab_id=582" s'ouvre avec IE

2> Si IE ne s'est pas encore ouvert ouvert on attend 2sec
(ça j'ai trouvé comment le faire)

3> Dans l'inputbox "s_login" de la page web, le contenu de la variable id est inséré.

4> De même pour l'inputbox "s_password" avec le contenu de la variable Mdp

5> Et voila...

Si vous pouviez m'aidez à transformer cette source de Vbs en code Autoit...
Merci d'avance !

-Gamarah-

[ani]

Bonjour

Voici deux exemples:

Premier exemple de vbs à au3 ±

Code : Tout sélectionner

Dim $ID, $Mdp
$ID = "truc"
$Mdp = "much"
$URL = "http://b2i-49.ac-nantes.fr/gibii/login/login.php?etab_id=582"

$IE = ObjCreate("InternetExplorer.Application")
$IE.visible = 1
$IE.navigate($URL)

While ($IE.Busy)
    Sleep(20)
wend

$IE.document.getElementById("s_login").value = $ID
$IE.document.getElementById("s_passwd").value = $Mdp
$IE.document.getElementById("btn_login").click
$IE = 0 ; 
Exit

Deuxième exemple AU3 (seulement)

Code : Tout sélectionner

#include<IE.au3>
Dim $User, $Password
$User = "ExempleUser"
$PassWord = "ExemplePassWord"

_GiBii($User,$password)


Func _GiBii($Id,$Mdp)
$oIE = _IEcreate("http://b2i-49.ac-nantes.fr/gibii/login/login.php?etab_id=582",0,1)
$oForm = _IEFormGetObjByName ($oIE, "formlogin")
$oName = _IEFormElementGetObjByName ($oForm, "s_login")
$oPass = _IEFormElementGetObjByName ($oForm, "s_passwd")
$oClick = _IEFormElementGetObjByName($oForm, "btn_login")

_IEFormElementSetValue ($oName, $Id)
_IEFormElementSetValue ($oPass, $Mdp)
_IEAction($oClick,"click")
Endfunc

bonne continuation

[Gamarah]

Merci !