AutoIt Français

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
 

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

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