Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("DifawousBot", 630, 149, 192, 124)
GUISetFont(16, 800, 0, "Tempus Sans ITC")
$Button1 = GUICtrlCreateButton("Lancer DifawousBot", 61, 16, 523, 65, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(16, 104, 601, 25)
GUISetState(@SW_SHOW)
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("DifawousBot", 568, 379, 194, 128)
$Label1 = GUICtrlCreateLabel("DifawousBot", 157, 8, 252, 65)
GUICtrlSetFont(-1, 28, 800, 0, "Segoe Script")
$Input1 = GUICtrlCreateInput("Nombre ( en fonction de vos pods)", 173, 120, 225, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$Label2 = GUICtrlCreateLabel("Nombre que vous voulez faucher", 145, 96, 276, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Commencer a faucher", 199, 296, 169, 33, $WS_GROUP)
$Checkbox1 = GUICtrlCreateCheckbox("Ble", 234, 152, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Orge.", 234, 168, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Avoine", 235, 184, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Houblon", 235, 200, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Lin", 235, 216, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Seigle et Riz", 235, 232, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Malt", 235, 248, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Chanvre", 235, 264, 97, 17)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_SHOW, $Form1_1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlsetData($Progress1,100)
Sleep(500)
Guictrlsetdata($Button1,"Lancement du DifawousBot")
Local $bPasswordHash
$bPasswordHash="0x098f6bcd4621d373cade4e832627b4f6"
$bPasswordHash="0x5447aa4026288039fccf95cf270282b3"
$sPassword=InputBox("Centre de Protection WS","Veuillez entrer le Mot De Passe fourni par Arzahel","")
If _Crypt_HashData($sPassword,$CALG_MD5)=$bPasswordHash Then
MsgBox(64,"Acces Autorise","Mot De Passe Corect!")
GUISetState(@SW_HIDE, $Form1_1) ; On Masque la GUI 1
GUISetState(@SW_SHOW, $Form2) ; On affiche le GUI 2
Else
MsgBox(16,"Acces Refuse","Mot De Passe Incorect! Connexion refusee")
EndIf
Sleep(500)
GUICtrlSetdata($Progress1,0)
EndSwitch
WEnd
