AutoIt Français

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=Hellmaster
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;===============================================================================
;
; Function Name:   Autologin Dofus
; Description::    Atomatic Logue For The Game Dofus
; Parameter(s):    x
; Requirement(s):  x
; Return Value(s): x
; Author(s):       Hellmaster   
; Version :        1.0
;
;===============================================================================
;


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Dim $Pseudo[2], $Mot_de_passe[1], $Chemin_dofus_exe[1], $Pixel_color[10], $i[5], $Coord[2]
$Ini_dir = @ScriptDir & "\Parametres"
$Orange = 0xFF9900
$i = 1
$e = 1
$u = 1

$Autologin = GUICreate ( "Autologin Bot", 178, 230, @DesktopWidth/2, @DesktopHeight/2 )
$Pseudo = GUICtrlCreateInput ( "Pseudo", 8, 8, 161, 21, BitOR ( $ES_CENTER,$ES_AUTOHSCROLL ) )
$Mot_de_passe = GUICtrlCreateInput ( "Motdepasse", 8, 32, 161, 21, BitOR ( $ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL ) )
$Chemin_dofus_exe = GUICtrlCreateInput ( @ScriptDir & "\Dofus.exe", 8, 96, 121, 21, BitOR ( $ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$WS_HSCROLL,$WS_VSCROLL ) )
$Parcourir = GUICtrlCreateButton ( "...", 136, 96, 35, 25, 0 )
$Personnage = GUICtrlCreateCombo("Personnage", 8, 64, 161, 25)
GUICtrlSetData(-1, "Personnage 1|Personnage 2|Personnage 3|Personnage 4|Personnage 5")
$Sauvegarder = GUICtrlCreateButton ( "Sauvegarder", 8, 128, 163, 25, 0 )
$Go = GUICtrlCreateButton ( "Go", 8, 160, 163, 65, 0 )
GUISetState ()

If FileExists ( $Ini_dir ) Then
    GUICtrlSetData ( $Pseudo, IniRead ( $Ini_dir, "Login", "Pseudo", "Pseudo" ) )
    GUICtrlSetData ( $Mot_de_passe, IniRead ( $Ini_dir, "Login", "Mot de passe", "Motdepasse" ) )
    GUICtrlSetData ( $Chemin_dofus_exe, IniRead ( $Ini_dir, "Login", "Chemin dofus.exe", @ScriptDir & "\Dofus.exe" ) )
    GUICtrlSetData ( $Personnage, "Personnage 1|Personnage 2|Personnage 3|Personnage 4|Personnage 5", IniRead ( $Ini_dir , "Login", "Personnage", "Personnage" ) )
Else
    GUICtrlSetState ( $Pseudo, @SW_DISABLE )
    GUICtrlSetState ( $Mot_de_passe, @SW_DISABLE )
    GUICtrlSetState ( $Parcourir, @SW_DISABLE )
    GUICtrlSetState ( $Personnage, @SW_DISABLE )
EndIf

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        
        Case $GUI_EVENT_CLOSE
            Exit
            
        Case $Pseudo
            If GUICtrlRead ( $Pseudo ) <> "Pseudo" Then GUICtrlSetState ( $Mot_de_passe, @SW_ENABLE )
            
        Case $Mot_de_passe
            If GUICtrlRead ( $Mot_de_passe ) <> "motdepasse" Then GUICtrlSetState ( $Personnage, @SW_ENABLE )
            
        Case $Personnage
            If GUICtrlRead ( $Personnage ) <> "Personnage" Then GUICtrlSetState ( $Parcourir, @SW_ENABLE )
            
        Case $Parcourir
            $Filedir = FileOpenDialog ( "Veuillez indiquer le chemin jusqu'au fichier dofus.exe", @ScriptDir, "Executables (Dofus.exe)" )
            GUICtrlSetData ( $Chemin_dofus_exe, $Filedir )
            
        Case $Sauvegarder
            If FileExists ( $Ini_dir ) Then IniDelete ( $Ini_dir, "Login" )
            IniWrite ( $Ini_dir, "Login", "Pseudo", GUICtrlRead ( $Pseudo ) )
            IniWrite ( $Ini_dir, "Login", "Mot de passe", GUICtrlRead ( $Mot_de_passe ) )
            IniWrite ( $Ini_dir, "Login", "Chemin dofus.exe", GUICtrlRead ( $Chemin_dofus_exe ) )
            IniWrite ( $Ini_dir, "Login", "Personnage", GUICtrlRead ( $Personnage ) )
            
        Case $Go
            $perso = GUICtrlRead ( $Personnage )
            If $perso = "Personnage 1" Then
                $x = 148
            elseif $perso = "Personnage 2" Then
                $x = 306
            ElseIf $perso = "Personnage 3" Then
                $x = 467
            ElseIf $perso = "Personnage 4" Then
                $x = 629
            ElseIf $perso = "Personnage 5" Then
                $x = 785
            EndIf
            $Pseudo0 = GUICtrlRead ( $Pseudo )
            $Mot_de_passe0 = GUICtrlRead ( $Mot_de_passe )
            $Chemin_dofus_exe0 = GUICtrlRead ( $Chemin_dofus_exe )
            Run ( $Chemin_dofus_exe0 )
            WinWait ( "Dofus" )
            If Not WinActive("Dofus","") Then WinActivate("Dofus","")
            WinWaitActive("Dofus","")
            Sleep ( 100 )
            $Win_Dofus_pos = WinGetPos ( "[active]" )
            If @error Then 
                MsgBox ( 0, "error", "Erreur" )
                Exit
            EndIf
            While $i = 1
                PixelSearch ( 0, 0, 1920, 1080, $Orange )
                If Not @error Then $i = 0
            WEnd
            Sleep ( 100 )
            Send ( $Pseudo0 & "{TAB}" & $Mot_de_passe0 )
            $Coord = PixelSearch ( $Win_Dofus_pos[0], $Win_Dofus_pos[1], $Win_Dofus_pos[2], $Win_Dofus_pos[3], $Orange )
            For $a = 1 To 3
                $d = 1
                For $i = 0 To 4
                    $Pixel_color[$i] = PixelGetColor ( Random ( $Win_Dofus_pos[0], $Win_Dofus_pos[2] ), Random ( $Win_Dofus_pos[1], $Win_Dofus_pos[3] ) )
                Next
                While $u = 1
                    $coord = PixelSearch( $Win_Dofus_pos[0], $Win_Dofus_pos[1], $Win_Dofus_pos[2], $Win_Dofus_pos[3], $Orange )
                    If Not @error Then $u = 0
                WEnd
                Sleep ( 100 )
                If $a = 3 Then
                    MouseClick ( "left", (($x/938)*$Win_Dofus_pos[2])+$Win_Dofus_pos[0], ((435/776)*$Win_Dofus_pos[3])+$Win_Dofus_pos[1] )
                    MouseClick ( "left", ((378/758)*$Win_Dofus_pos[2])+$Win_Dofus_pos[0], ((489/612)*$Win_Dofus_pos[3])+$Win_Dofus_pos[1] )
                Else
                    MouseClick ( "left", $Coord[0], $Coord[1], 2 )
                EndIf
                $n = 1
                While $n = 1
                    If PixelGetColor ( 674, 531 ) = 0x000000 Then $n = 0
                WEnd
                while $d = 1
                    $s = 0
                    For $m = 1 to 3
                        $pixel = PixelGetColor ( Random ( $Win_Dofus_pos[0], $Win_Dofus_pos[2] ), Random ( $Win_Dofus_pos[1], $Win_Dofus_pos[3] ) )
                        If $pixel = 0x000000 Then $s = $s + 1
                    Next
                    If Not $s = 3 Then $d = 0
                WEnd
                While $e = 1
                    $p = 0
                    For $i = 0 To 3
                        $Pixel_color[$i+4] = PixelGetColor ( Random($Win_Dofus_pos[0], $Win_Dofus_pos[2]), Random($Win_Dofus_pos[1], $Win_Dofus_pos[3]) )
                    Next
                    For $i = 0 To 3
                        If $Pixel_color[$i] <> $Pixel_color[$i+4] Then $p = $p+1
                    Next
                    If $p = 4 Then $e = 0
                WEnd
            Next
            Exit
    EndSwitch
WEnd