Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinHttp.au3>
#include <Array.au3>
#include <IE.au3>
#include-once
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 442, 192, 124)
$Button1 = GUICtrlCreateButton("Lire mes E-mails !", 35, 296, 553, 73)
GUICtrlSetFont(-1, 20, 800, 4, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Entrer votre Pseudo :", 32, 16, 108, 18, $SS_CENTER)
$Input1 = GUICtrlCreateInput("Pseudo", 24, 48, 241, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("Entrer votre Mot De Passe :", 32, 88, 131, 17, $SS_CENTER)
$Input2 = GUICtrlCreateInput("Mot De Passe", 24, 120, 241, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Progression = GUICtrlCreateProgress(35, 192, 553, 57, $WS_BORDER)
GUICtrlSetColor(-1, 0x004E98)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If FileExists("info_config.ini") Then
GUICtrlSetData($Input1, IniRead("info_config.ini", "Login", "Pseudo", ""))
GUICtrlSetData($Input2, IniRead("info_config.ini", "Login", "Pass", ""))
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button1
$site = "**********"
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
$pseudo = GUICtrlRead($Input1)
$pass = GUICtrlRead($Input2)
IniWrite("info_config.ini", "Login", "Email", $pseudo)
IniWrite("info_config.ini", "Login", "Pass", $pass)
$site = _IECreate("*******", 0, 0, 1)
$Input1 = _IEGetObjByName($site, "login_username")
_IEFormElementSetValue($Input1, $pseudo)
$Input2 = _IEGetObjByName($site, "login_password")
_IEFormElementSetValue($Input2, $pass)
$submit_Value = _IEGetObjByName($site, "login_btn")
_IEAction($submit_Value, "Click")
Sleep(5000)
_IENavigate($site, "***********")
_IELoadWaitTimeout(7000)