Hello Je me presente je suis Imants : je vais vous presenté un bot que j'avais acheter ! Ce bot est Naz c'est donc pour sa que je vais vous le donner . La Presentation du bot =>
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Le code Source :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Le code Source :
PHP:
HotKeySet("{F1}", "Close")
_NIVEAU()
Func _NIVEAU()
$REPONSE = InputBox("Bot Mineur Version 2.0", "Veuillez entrer votre niveau de Mineur:")
If @error = 1 Then
Exit
EndIf
If $REPONSE < 1 Then
MsgBox(16, "Erreur", "Votre niveau ne peut pas être inférieur à 1 !")
_NIVEAU()
EndIf
If $REPONSE > 100 Then
MsgBox(16, "Erreur", "Votre niveau ne peut pas être supérieur à 100 !")
_NIVEAU()
EndIf
$TEMPS = IniRead("temps.ini", "temps", $REPONSE, "notfound")
If $TEMPS = "notfound" Then
MsgBox(16, "Erreur", "La clée " & $REPONSE & " n'a pas été trouvée")
_NIVEAU()
EndIf
MsgBox(0, "Bot Mineur Version 2.0", "Cliquez sur OK pour que la fenêtre Dofus ce recadre")
WinMove("[REGEXPTITLE:^Dofus]", "", 54, -9, 1320, 784)
MsgBox(0, "Bot Mineur Version 2.0", "Cliquez sur F1 pour arrêter le bot quand vous le souhaiter") Cliquez sur OK pour que le bot commence")
Sleep(1000)
While 1
$ECHANGE = PixelGetColor(743, 439)
$COMBAT = PixelGetColor(749, 747)
$UP = PixelGetColor(690, 443)
If $ECHANGE = 16736512 Then
MouseClick("left", 743, 439)
ElseIf $COMBAT = 16731392 Then
MouseClick("left", 697, 742)
Sleep(5000)
MouseClick("left", 855, 687)
EndIf
WinActivate("Shysio")
$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 1658481, 1)
If Not @error Then
MouseClick("left", $COORD[0], $COORD[1], 1, 0)
Sleep(500)
MouseClick("left", 855, 687)
EndIf
Sleep(1500)
WinActivate("Shysio")
$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 1658481, 1)
If Not @error Then
MouseClick("left", $COORD[0], $COORD[1], 1, 0)
Sleep(500)
ElseIf $UP = 16736512 Then
MouseClick("left", 690, 443)
EndIf
$COMBAT = PixelGetColor(1138, 98)
If $COMBAT = 16736512 Then
MouseClick("left", 1138, 98)
EndIf
$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 16029989, 1)
If Not @error Then
MouseClick("left", $COORD[0], $COORD[1], 1, 0)
Sleep($TEMPS)
EndIf
$ECHANGE = PixelGetColor(743, 439)
$COMBAT = PixelGetColor(749, 747)
$UP = PixelGetColor(690, 443)
If $ECHANGE = 16736512 Then
MouseClick("left", 743, 439)
ElseIf $COMBAT = 16731392 Then
MouseClick("left", 697, 742)
Sleep(5000)
MouseClick("left", 855, 687)
EndIf
WinActivate("Shysio")
$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 255, 1)
If Not @error Then
MouseClick("left", $COORD[0], $COORD[1], 1, 0)
Sleep(500)
MouseClick("left", 855, 687)
EndIf
Sleep(1500)
WinActivate("Shysio")
$COORD = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 255, 1)
If Not @error Then
MouseClick("left", $COORD[0], $COORD[1], 1, 0)
Sleep(500)
ElseIf $UP = 16736512 Then
MouseClick("left", 690, 443)
EndIf
$COMBAT = PixelGetColor(1138, 98)
If $COMBAT = 16736512 Then
MouseClick("left", 1138, 98)
EndIf
$COMBAT2 = PixelGetColor(641, 561)
If $COMBAT2 = 16736512 Then
MouseClick("left", 641, 561)
EndIf
WEnd
EndFunc
Func CLOSE()
Exit
EndFunc