Alors ne croiyez pas que ce soit un bot ou quoi que ce soit d'autre de malveillant.
En ayant marre d'avoir a me loguer a chaque ... rentrer son mot de passe, attendre pour selectionner son serveur, selectionner son personnage ...
M'enfin voila, donc j'ai creé ce script afin de me simplifier la vie pour me loguer.
Donc voila si vous avez dofus, ce scipt ira largement plus vite que vos tites mimines pour vous loguer en jeu : Bon test
► Afficher le texte
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
WEndGenaile
