Func GUICtrlGroup($sCtrl) ; Fonction 1 qui consiste à regrouper les CTRL
$sSplit = StringSplit($sCtrl, "/") ; La fonction découpe le paramètre par rapport au symbole "/"
$sReturn = $sSplit[0] & "." & $sCtrl ; Puis attribue le nombre de CTRL dans le GROUPE
Return $sReturn ; Et retourne le résultat ( soit le GROUPE )
EndFunc ;==>GUICtrlGroup
Func GUICtrlGroupSetState($sGUICtrlGroup, $sState) ; Fonction 2 qui consiste à changer l'état d'un GROUPE
$sSplit2 = StringSplit($sGUICtrlGroup, ".") ; Elle récupère le nombre de CTRL
$DiffCtrl = StringSplit($sSplit2[2], "/") ; Divise le GROUPE affin de récupéré tous les CTRL
For $i = 1 To $sSplit2[1] ; Une boucle va se répéter le nombre de fois = au nombre de CTRL affin de tous les modifier 1 par 1 ( très rapidement et instantané à nos yeux )
GUICtrlSetState($DiffCtrl[$i], $sState) ; Et HOP !
Next
EndFunc ;==>GUICtrlGroupSetState
#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $backco = 0
Global $co_deco = 0
Global $sUrl = "http://s2.daysofevil.com/"
#Region ### START Koda GUI section ### Form=y:\script\days of evil\gui doe.kxf
$Form2 = GUICreate("Form2", 939, 478, 192, 123)
$Connection = GUICtrlCreateGroup("Connection/deconnexion", 8, 8, 137, 81)
$Log_in_out = GUICtrlCreateButton("Connection", 40, 40, 75, 25)
$ID = GUICtrlCreateGroup("Identifiants", 152, 8, 297, 81)
$Login = GUICtrlCreateInput("", 304, 24, 121, 21)
$Mdp = GUICtrlCreateInput("", 304, 56, 121, 21)
$Label1 = GUICtrlCreateLabel("Identifiant : ", 184, 32, 59, 17)
$Label2 = GUICtrlCreateLabel("Mot de passe : ", 184, 56, 77, 17)
$Menus = GUICtrlCreateGroup("Menus", 8, 96, 441, 145)
$Forteresse = GUICtrlCreateButton("Forteresse", 16, 120, 75, 25)
$Quete = GUICtrlCreateButton("Quêtes", 104, 120, 75, 25)
$Mecha = GUICtrlCreateButton("Mecha", 192, 120, 75, 25)
$Armee = GUICtrlCreateButton("Armée", 280, 120, 75, 25)
$Actions = GUICtrlCreateButton("Actions", 16, 160, 75, 25)
$Combat = GUICtrlCreateButton("Combat", 104, 160, 75, 25)
$Production = GUICtrlCreateButton("Production", 192, 160, 75, 25)
$Recherche = GUICtrlCreateButton("Recherche", 360, 160, 75, 25)
$Commerce = GUICtrlCreateButton("Commerce", 360, 120, 75, 25)
$Entrepot = GUICtrlCreateButton("Entrepôt", 280, 160, 75, 25)
$Guilde = GUICtrlCreateButton("Guilde", 16, 200, 75, 25)
$Shop = GUICtrlCreateButton("Shop", 104, 200, 75, 25)
GUISetState(@SW_SHOW)
$Group1 = GUICtrlGroup($ID & "/" & $Login & "/" & $Mdp & "/" & $Label1 & "/" & $Label2) ; La fonction GUICtrlGroup() ne prend que 1 paramètre : les différents CTRL à regrouper, séparés du symbole "/" pour les différentier
$Group2 = GUICtrlGroup($Menus & "/" & $Forteresse & "/" & $Quete & "/" & $Mecha & "/" & $Armee & "/" & $Actions & "/" & $Combat & "/" & $Production & "/" & $Recherche & "/" & $Commerce & "/" & $Entrepot & "/" & $Guilde & "/" & $Shop)
GUICtrlGroupSetState($Group2, $GUI_HIDE)
#EndRegion ### END Koda GUI section ###
;~ --------------------------------------------------------------------------
;~ _IENavigate($oIE, $page) Acceder a une page
;~ _IEQuit ($oIE) Supprimer la page
;~ GUICtrlGroupSetState($Group1, $GUI_HIDE) Fonction qui va cacher le groupe 1
;~ --------------------------------------------------------------------------
Local $oIE = _IECreate("s2.daysofevil.com", 0, 1, 0, 1)
_nav()
Func _nav()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Log_in_out
If $co_deco = 0 Then
Global $sUsername = GUICtrlRead($Login)
Global $sPassword = GUICtrlRead($Mdp)
Sleep(1000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByName($oForm, 'nick')
$oPassword = _IEFormElementGetObjByName($oForm, "pw")
_IEFormElementSetValue($oUsername, $sUsername)
_IEFormElementSetValue($oPassword, $sPassword)
Sleep(1000)
_IEFormSubmit($oForm)
Sleep(1000)
_Connection()
ElseIf $co_deco = 1 Then
_IENavigate($oIE, "http://s2.daysofevil.com/game/logout.php", 1)
GUICtrlGroupSetState($Group2, $GUI_HIDE)
GUICtrlGroupSetState($Group1, $GUI_SHOW)
GUICtrlSetData($Log_in_out, "Connexion")
$co_deco = 0
EndIf
Case $Production
_IENavigate($oIE, "http://s2.daysofevil.com/game/produktion.php", 1)
$fileprod = "production.html"
Sleep(1000)
Local $sHTML = _IEBodyReadHTML($oIE)
$file = FileOpen($fileprod, 2)
FileWrite($file, $sHTML)
FileClose($file)
EndSwitch
WEnd
EndFunc
Func _Connection()
$fileco = "connection.html"
Sleep(1000)
Local $sHTML = _IEBodyReadHTML($oIE)
$file = FileOpen($fileco, 2)
FileWrite($file, $sHTML)
FileClose($file)
;~ Verification de l authantification
FileOpen($fileco)
$lineread = FileReadLine($fileco, 19)
$lineread2 = FileReadLine($fileco, 357)
ConsoleWrite("$lineread = " & $lineread & @CRLF)
ConsoleWrite("$lineread2 = " & $lineread2 & @CRLF)
If $lineread = " Le processus de connexion a échoué. Les identifiants saisis sont incorrects. <br>" Then
$backco = 0
ElseIf $lineread2 = " crazy47 (FLD) </span></td>" Then
$backco = 1
EndIf
If $backco = 0 Then
MsgBox(000, "", "Echec de la connexion",5)
_IEQuit ($oIE)
ElseIf $backco = 1 Then
$co_deco = 1
GUICtrlSetData($Log_in_out, "Deconnexion")
GUICtrlGroupSetState($Group1, $GUI_HIDE)
GUICtrlGroupSetState($Group2, $GUI_SHOW)
EndIf
EndFunc
