AutoIt Français

Code : Tout sélectionner

#include <IE.au3>

$Login = "Name"
$Passwd = "password"
$VoirLaPage = 0
$Res = ""


$oIE = _IECreate("http://www.autoitscript.fr/forum/index.php", 0, $VoirLaPage)

; Les 2 lignes qui suivent permettent de vérifier si on est déjà loggé ou non
$oDiv = _IEGetObjById($oIE, "wrapcentre") ; Recherche objet DIV avec ID wrapcentre
If StringInStr(_IEPropertyGet($oDiv, "innertext"), "Nom d’utilisateur") Then

    $oForm = _IEFormGetCollection($oIE, 0) ; Récupération de la collection d'objets
    $oLogin = _IEFormElementGetCollection($oForm, 0) ; Remplit l'objet N°0
    _IEFormElementSetValue($oLogin, $Login) ; On envoi le login
    $oPasswd = _IEFormElementGetCollection($oForm, 1) ; Remplit l'objet N°1
    _IEFormElementSetValue($oPasswd, $Passwd) ; On envoi le passwd

    $oSubmit = _IEFormElementGetCollection($oForm, 3) ; Clique l'objet N°3
    _IEAction($oSubmit, "click") ; On clique sur l'objet
    Sleep(1000) ; Pause de 1s

    ; Boucle d'attente du chargement de la page d'index
    While 1
        $Res = _IEPropertyGet($oIE, "title") ; Récupère le titre de la page
        If StringInStr($Res, "Page d’index") Then ExitLoop ; Si Page d'index on sort de la boucle
    WEnd
EndIf
Sleep(500) ; Pause 500 ms

; ######################## Récupération de la date courante du forum ########################
$oDiv = _IEGetObjById($oIE, "menubar") ; Recherche objet DIV avec ID menubar
$Res = _IEPropertyGet($oDiv, "innertext") ; Récupère le texte de l'objet

$Res = StringSplit($Res, "Nous sommes le ", 1) ; Découpe la chaine

MsgBox(64, "Info", "La date du forum est : " & @CRLF & $Res[2]) ; Affiche la date du forum
; ###########################################################################################


; #################### Récupération de la date de la dernière connexion #####################
$oDiv = _IEGetObjById($oIE, "datebar") ; Recherche objet DIV avec ID menubar
$Res = _IEPropertyGet($oDiv, "innertext") ; Récupère le texte de l'objet

$Res = StringSplit($Res, "Dernière visite le ", 1) ; Découpe la chaine
$Res = StringSplit($Res[2], "Voir les messages", 1) ; Découpe la chaine

MsgBox(64, "Info", "La date de la dernière visite est : " & @CRLF & $Res[1]) ; Affiche la date de la dernière visite
; ###########################################################################################


_IEQuit($oIE) ; On Ferme la page
Exit