Bbot-Follow par Bit-X (Multi Compte)
Bbot Follow
Voici un petit utilitaire bien utile à ceux qui jouent en TEAM et qui en ont ras le bol de changer de fenêtre tout le temps. Hein.. les acros de ALT + TAB
Bbot Follow redimensionne chaque fenêtre et vous permet d'utiliser un seul joueur (Leader) pour que tous les autres suivent.
Le principe est simple, Bbot Follow détecte un clic gauche ou droit et le reproduit immédiatement dans les fenêtres des autres personnages. Il ne reproduit pas la saisi du clavier.
Une touche pour quitter et une touche pour mettre en pause ont été assigné. ( Touche "FIN" et "PAUSE" )
Téléchargement en fichier joint (en bas du sujet).
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Détails:
Une fois télécharger, exécutez le fichier "Bbot Follow.exe".
Une petite fenêtre vas vous demander le nombre de comptes que vous utilisez, entrez un chiffre entre 2 et 8.
Ensuite, configurez les champs demandé:
Taille des fenêtres: le premier champs indique la valeur de la largeur, le second celle de la hauteur.
Nombre de comptes: Rien, le champ n'est pas modifiable.
Nom du Leader: c'est le nom de l'unique personnage que vous pourrez utiliser en tant de marche (Pause permet de débloquer la fenêtre du leader et désactive les clics sur automatiques).
Suiveur 1 , 2 ...: ce sont les personnages qui seront contrôlé automatiquement.
Lancez Bbot-Follow et profitez de bonheur !
Non ce n'en ai pas un, loin de là, voici les sources de mon programme:
Bbot Follow
Voici un petit utilitaire bien utile à ceux qui jouent en TEAM et qui en ont ras le bol de changer de fenêtre tout le temps. Hein.. les acros de ALT + TAB
Bbot Follow redimensionne chaque fenêtre et vous permet d'utiliser un seul joueur (Leader) pour que tous les autres suivent.
Le principe est simple, Bbot Follow détecte un clic gauche ou droit et le reproduit immédiatement dans les fenêtres des autres personnages. Il ne reproduit pas la saisi du clavier.
Une touche pour quitter et une touche pour mettre en pause ont été assigné. ( Touche "FIN" et "PAUSE" )
Téléchargement en fichier joint (en bas du sujet).
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Détails:
Une fois télécharger, exécutez le fichier "Bbot Follow.exe".
Une petite fenêtre vas vous demander le nombre de comptes que vous utilisez, entrez un chiffre entre 2 et 8.
Ensuite, configurez les champs demandé:
Taille des fenêtres: le premier champs indique la valeur de la largeur, le second celle de la hauteur.
Nombre de comptes: Rien, le champ n'est pas modifiable.
Nom du Leader: c'est le nom de l'unique personnage que vous pourrez utiliser en tant de marche (Pause permet de débloquer la fenêtre du leader et désactive les clics sur automatiques).
Suiveur 1 , 2 ...: ce sont les personnages qui seront contrôlé automatiquement.
Lancez Bbot-Follow et profitez de bonheur !
_ __ _ __ _ __ _ __ _ __ _ __ _ __ _ __ _ __ _
Pour ceux qui se dirait, mais c'est un KeyLogger, il détect les clicks...Non ce n'en ai pas un, loin de là, voici les sources de mon programme:
PHP:
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_Icon=Icone_Bbot-Follow.ico
#AutoIt3Wrapper_Res_Description=Follow Bot (Multi compte) Dofus
#AutoIt3Wrapper_Res_Fileversion=1.9.0.252
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Misc.au3>
#include <Constants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt ('WinTitleMatchMode','3')
Local $iX,$iY,$Full,$HWnD,$iButton,$iClicks,$Title,$i,$activate,$Paused,$OS,$Button,$ButtonDown,$ButtonUp,$X,$Y _
,$Input1,$Input2,$Input3,$Input4,$Input5,$Input6,$Input7,$Input8,$Input9,$Input10,$Combo1,$Label1,$Label10 _
,$Label11,$Label12,$Label13,$Label2,$Label3,$Label4,$Label5,$Label6,$Label7,$Label8,$Label9,$Numb
Global $Chars[9]
$X_plus=0
$Y_plus=0
$Clic_Num=0
$Numb=2
$Last_num=2
$x_win=IniRead("Config.ini","Wins","Largeur","800")
$y_win=IniRead("Config.ini","Wins","Hauteur","600")
For $i=1 To 8
$Chars[$i]=IniRead("Config.ini","Chars","Char_"&$i,"")
Next
$Numb=InputBox("Bbot Follow","Entrez le nombre de compte que vous utilisez."&@CRLF&"(8 comptes max)")
If @error=1 Then Exit
$Chars[0]=$Numb
#Region ### START Koda GUI section ### Form=C:\Users\Nik'O\Documents\AUTOIT\Dofus\Bbot-Follow\Final\Form1.kxf
$Form1 = GUICreate("Bbot Follow", 255, 338, 192, 124)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput($x_win, 120, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetLimit(-1, 4)
$Input2 = GUICtrlCreateInput($y_win, 184, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetLimit(-1, 4)
$Input3 = GUICtrlCreateInput($Chars[1], 120, 96, 121, 21)
$Input4 = GUICtrlCreateInput($Chars[2], 120, 120, 121, 21)
$Numb=StringLeft($Numb,1)
If $Numb="3" Then
$Label6 = GUICtrlCreateLabel(" Suiveur 2 :", 48, 144, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input5 = GUICtrlCreateInput($Chars[3], 120, 144, 121, 21)
ElseIf $Numb="4" Then
$Label6 = GUICtrlCreateLabel(" Suiveur 2 :", 48, 144, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel(" Suiveur 3:", 48, 168, 58, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input5 = GUICtrlCreateInput($Chars[3], 120, 144, 121, 21)
$Input6 = GUICtrlCreateInput($Chars[4], 120, 168, 121, 21)
ElseIf $Numb="5" Then
$Label6 = GUICtrlCreateLabel(" Suiveur 2 :", 48, 144, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel(" Suiveur 3:", 48, 168, 58, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel(" Suiveur 4 :", 48, 192, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input5 = GUICtrlCreateInput($Chars[3], 120, 144, 121, 21)
$Input6 = GUICtrlCreateInput($Chars[4], 120, 168, 121, 21)
$Input7 = GUICtrlCreateInput($Chars[5], 120, 192, 121, 21)
ElseIf $Numb="6" Then
$Label6 = GUICtrlCreateLabel(" Suiveur 2 :", 48, 144, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel(" Suiveur 3:", 48, 168, 58, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel(" Suiveur 4 :", 48, 192, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label9 = GUICtrlCreateLabel(" Suiveur 5 :", 48, 216, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input5 = GUICtrlCreateInput($Chars[3], 120, 144, 121, 21)
$Input6 = GUICtrlCreateInput($Chars[4], 120, 168, 121, 21)
$Input7 = GUICtrlCreateInput($Chars[5], 120, 192, 121, 21)
$Input8 = GUICtrlCreateInput($Chars[6], 120, 216, 121, 21)
ElseIf $Numb="7" Then
$Label6 = GUICtrlCreateLabel(" Suiveur 2 :", 48, 144, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel(" Suiveur 3:", 48, 168, 58, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel(" Suiveur 4 :", 48, 192, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label9 = GUICtrlCreateLabel(" Suiveur 5 :", 48, 216, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label10 = GUICtrlCreateLabel(" Suiveur 6 :", 48, 240, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input5 = GUICtrlCreateInput($Chars[3], 120, 144, 121, 21)
$Input6 = GUICtrlCreateInput($Chars[4], 120, 168, 121, 21)
$Input7 = GUICtrlCreateInput($Chars[5], 120, 192, 121, 21)
$Input8 = GUICtrlCreateInput($Chars[6], 120, 216, 121, 21)
$Input9 = GUICtrlCreateInput($Chars[7], 120, 240, 121, 21)
ElseIf $Numb="8" Then
$Label6 = GUICtrlCreateLabel(" Suiveur 2 :", 48, 144, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel(" Suiveur 3:", 48, 168, 58, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel(" Suiveur 4 :", 48, 192, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label9 = GUICtrlCreateLabel(" Suiveur 5 :", 48, 216, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label10 = GUICtrlCreateLabel(" Suiveur 6 :", 48, 240, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label11 = GUICtrlCreateLabel(" Suiveur 7 :", 48, 264, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input5 = GUICtrlCreateInput($Chars[3], 120, 144, 121, 21)
$Input6 = GUICtrlCreateInput($Chars[4], 120, 168, 121, 21)
$Input7 = GUICtrlCreateInput($Chars[5], 120, 192, 121, 21)
$Input8 = GUICtrlCreateInput($Chars[6], 120, 216, 121, 21)
$Input9 = GUICtrlCreateInput($Chars[7], 120, 240, 121, 21)
$Input10 = GUICtrlCreateInput($Chars[8], 120, 264, 121, 21)
EndIf
$Label1 = GUICtrlCreateLabel(" Taille des fenêtres :", 16, 24, 99, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel(" ;", 168, 24, 10, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Nombre de comptes :", 8, 64, 105, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel(" Nom du Leader :", 24, 96, 86, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel(" Suiveur 1 :", 48, 120, 61, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("Lancer Bbot-Follow", 72, 296, 121, 33)
$Label12 = GUICtrlCreateLabel("Bbot-Follow par Bit-X", 0, 0, 102, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label13 = GUICtrlCreateLabel("Utilitaire Multi Compte Dofus", 112, 0, 136, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label14 = GUICtrlCreateLabel("0 = Plein écran", 40, 40, 75, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input11 = GUICtrlCreateInput($Numb, 120, 64, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
GUICtrlSetLimit(-1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$x_win=GUICtrlRead($Input1)
$y_win=GUICtrlRead($Input2)
$Chars[1]=GUICtrlRead($Input3)
$Chars[2]=GUICtrlRead($Input4)
$Chars[3]=GUICtrlRead($Input5)
$Chars[4]=GUICtrlRead($Input6)
$Chars[5]=GUICtrlRead($Input7)
$Chars[6]=GUICtrlRead($Input8)
$Chars[7]=GUICtrlRead($Input9)
$Chars[8]=GUICtrlRead($Input10)
IniWrite("Config.ini","Wins","Largeur",$x_win)
IniWrite("Config.ini","Wins","Hauteur",$y_win)
For $i=1 To $Chars[0]
IniWrite("Config.ini","Chars","Char_"&$i,$Chars[$i])
Next
For $i=1 To $Chars[0]
WinActivate($Chars[$i])
If $x_win=0 Then
WinSetState($Chars[$i],"",@SW_MAXIMIZE)
Else
WinMove($Chars[$i],"",0,0,$x_win,$y_win)
EndIf
Next
GUIDelete()
ExitLoop
EndSwitch
WEnd
HotKeySet("{END}","_Exit")
HotKeySet("{PAUSE}","_Pause")
Sleep(500)
$res=PixelSearch(2,2,10,50,0x000000,0)
If IsArray($res) Then
$X_plus=$res[0]
$Y_plus=$res[1]
EndIf
Sleep(500)
ToolTip('Touches:'&@CRLF&'PAUSE pour mettre en pause'&@CRLF&'Fin pour arreter Bbot Follow'&@CRLF&@CRLF&'Clics : '&$Clic_Num,$x_win+10,10,'Bbot-Follow par Bit-X')
While 1
If Not WinActive($Chars[1]) Then WinActivate($Chars[1])
If _IsPressed(01) Then
$iX=MouseGetPos(0)
$iY=MouseGetPos(1)
For $i=2 To $Chars[0]
Click($Chars[$i],"left",$iX,$iY,1)
Next
Sleep(100)
EndIf
If _IsPressed(02) Then
$iX=MouseGetPos(0)
$iY=MouseGetPos(1)
For $i=2 To $Chars[0]
Click($Chars[$i],"right",$iX,$iY,1)
Next
Sleep(100)
EndIf
WEnd
Func Click($Title, $iButton = "left", $X = "", $Y = "", $iClicks = 1)
$Clic_Num+=1
ToolTip('Touches:'&@CRLF&'PAUSE pour mettre en pause'&@CRLF&'Fin pour arreter Bbot Follow'&@CRLF&@CRLF&'Clics : '&$Clic_Num,$x_win+10,10,'Bbot-Follow par Bit-X')
$X-=$X_plus
$Y-=$Y_plus
$Full = WinGetTitle ($Title) ; Get The Full Title..
$HWnD = WinGetHandle ($Full) ; Get The Handle
If IsHWnD ($HWnD) And WinExists ($Full) <> '0' Then ; Win Check
Local $MK_LBUTTON = 0x0001
Local $WM_LBUTTONDOWN = 0x0201
Local $WM_LBUTTONUP = 0x0202
Local $MK_RBUTTON = 0x0002
Local $WM_RBUTTONDOWN = 0x0204
Local $WM_RBUTTONUP = 0x0205
Local $WM_MOUSEMOVE = 0x0200
Local $i = 0
Select
Case $iButton = "left"
$Button = $MK_LBUTTON
$ButtonDown = $WM_LBUTTONDOWN
$ButtonUp = $WM_LBUTTONUP
Case $iButton = "right"
$Button = $MK_RBUTTON
$ButtonDown = $WM_RBUTTONDOWN
$ButtonUp = $WM_RBUTTONUP
EndSelect
If $X = "" OR $Y = "" Then
$MouseCoord = MouseGetPos()
$X = $MouseCoord[0]
$Y = $MouseCoord[1]
EndIf
For $i = 1 to $iClicks
DllCall("user32.dll", "int", "SendMessage", _
"hwnd", $HWnD, _
"int", $WM_MOUSEMOVE, _
"int", 0, _
"long", _MakeLong($X, $Y))
Sleep(20)
DllCall("user32.dll", "int", "SendMessage", _
"hwnd", $HWnD, _
"int", $ButtonDown, _
"int", $Button, _
"long", _MakeLong($X, $Y))
Sleep(30)
DllCall("user32.dll", "int", "SendMessage", _
"hwnd", $HWnD, _
"int", $ButtonUp, _
"int", $Button, _
"long", _MakeLong($X, $Y))
Next
EndIf
EndFunc
Func _MakeLong($LoWord,$HiWord)
Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc
Func _Exit()
Exit
EndFunc
Func _Pause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Pressez "Pause" pour continuer',10,10,'Script is "Paused"')
WEnd
ToolTip('Touches:'&@CRLF&'PAUSE pour mettre en pause'&@CRLF&'Fin pour arreter Bbot Follow'&@CRLF&@CRLF&'Clics : '&$Clic_Num,$x_win+10,10,'Bbot-Follow par Bit-X')
EndFunc
Attachments
Last edited: