#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
MsgBox(0, "AutoConnecteWoW by Mr-N4th4n-x3", "Bienvenue sur AutoConnectWoW")
MsgBox(0, "AutoConnecteWoW by Mr-N4th4n-x3", "Ce script vas vous connecter directement A word of Warcraft")
; On charge les infos dans le fichier ini
$iniLogin = IniRead("configAutoConnect.ini", "AutoConnect", "login", "")
$iniMdp = IniRead("configAutoConnect.ini", "AutoConnect", "MotDePasse", "")
$inicheminWow = IniRead("configAutoConnect.ini", "AutoConnect", "cheminWow", "")
GUICreate("AutoConnecteWoW by Mr-N4th4n-x3 ", 396, 186, 192, 124)
$Button = GUICtrlCreateButton("Se Connecter", 152, 152, 75, 25, $WS_GROUP)
GUICtrlCreateLabel("Nom d'utilisateur:", 16, 24, 84, 17)
$loginInput = GUICtrlCreateInput($iniLogin, 104, 24, 153, 21)
GUICtrlCreateLabel("Mot de Passe:", 16, 56, 72, 17)
$mdpInput = GUICtrlCreateInput($iniMdp, 104, 56, 153, 21)
If $inicheminWow = "" Then ; On vérifie que l'utilisateur a pas déjà enregistré un chemin, si il en a pas enregistré, on cherche le chemin par la base de registre.
$wowR = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath") ; On lit dans le registre on ce trouve le jeu Wow
$inicheminWow = $wowR & "wow.exe" ; On rajoute le nom du fichier a lancer
GUICtrlCreateLabel("Adresse de World Of Warcraft:", 8, 96, 149, 17)
EndIf
$wowAdresseInput = GUICtrlCreateInput($inicheminWow, 8, 120, 377, 21) ; on créé notre input avec pour valeur par default l'adresse de notre jeu
GUICtrlCreateLabel("Connexion automatique", 272, 24, 115, 17)
GUICtrlCreateLabel("pour World of Warcraft", 272, 40, 118, 17)
GUICtrlCreateLabel("par Mr-N4th4n-x3 pour wow-rif.fr", 272, 56, 120, 17)
GUISetState(@SW_SHOW)
While 1 ; Boucle principale
$Msg = GUIGetMsg()
Switch $Msg
Case $Button ; Si on appuie sur le bouton Connexion
$motDePasse = GUICtrlRead($mdpInput) ; On enregistre le Mot de Passe
$login = GUICtrlRead($loginInput) ; On enregistre le Login
$CheminWow = GUICtrlRead($wowAdresseInput) ; On enregistre le Chemin de WoW
If $CheminWow <> "" And $login <> "" And $motDePasse <> "" Then ; Si les inputs sont Différent vide on lance la fonction.
If FileExists($CheminWow) Then ; On vérifie si le fichier existe bien
IniWrite("configAutoConnect.ini", "AutoConnect", "login", $login) ; On enregistre le $login
IniWrite("configAutoConnect.ini", "AutoConnect", "MotDePasse", $motDePasse) ; On enregistre le mot de passe
IniWrite("configAutoConnect.ini", "AutoConnect", "cheminWow", $cheminWow) ; On enregistre le Chemin
autoLog($motDePasse, $login, $CheminWow) ; On lance la fonction autoLog avec les paramètre pour ce connecter a WoW
Else
MsgBox(0, "Auto Connect", "World of Warcraft ne se trouve pas a l'adresse que vous nous avez indiqué.")
EndIf
Else ; Sinon on affiche le message d'erreur.
MsgBox(0, "Auto Connect", "Vérifiez que vous avez bien rentré votre toutes les informations demandé.")
EndIf
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func autoLog($motDePasse, $login, $CheminWow)
; 1 On exécute World Of Warcraft
; 2 On s'arrete jusqu'à que World of Warcraft Soit exécuté
; 3 On fait un petite pause pendant 6 sec
; 4 On simule la touche CTRL-a pour selectionner tous le contenu du Pseudo
; 5 Petite pause de 0.5 sec pour pas aller trop vite et éviter les beugs
; 6 On écrit le Nom d'utilisateur
; 7 Petite pause de 0.5 sec
; 8 On simule la touche TAB
; 9 Petite pause de 0.5 sec
;10 On écrit le Mot de Passe
;11 Petite pause de 0.5 sec
;12 On simule la touche ENTRER pour valider
ShellExecute($CheminWow) ; 1
WinWaitActive("World of Warcraft") ; 2
Sleep(6000) ; 3
send("^a") ; 4
sleep(500) ; 5
send($login) ; 6
sleep(500) ; 7
send("{TAB}") ; 8
sleep(500) ; 9
send($motDePasse) ; 10
sleep(500) ; 11
send("{ENTER}") ; 12
EndFunc
