Autoit Multi comptes et changements de maps

  • Auteur de la discussion Anonymous
  • Date de début
A

Anonymous

Invité
#1
#1
Bonsoir

Je possède plusieurs personnages sur D. et je joue en multi comptes. Ce que je souhaiterai faire en fait c'est plus une aide au multicompte qu'un vrai "bot" automatisé et tout (déjà parce que pour l'instant je n'ai guère le temps d'apprendre à programmer et parce que ça me plait bien de jouer avec tous mes persos, enfin pour l'instant...). Donc voilà je fais appel à vous pour savoir comment on pourrait se faire suivre des personnages entre 2 maps. J'explique : une fois que j'ai cliqué sur l'un des rebords de la map et que la flèche orange est apparue, je veux que sur les fenêtres des autres personnages la même chose se fasse.

Merci et cordialement :)
 
NicoMasterChief

NicoMasterChief

Membre
#2
Inscrit
15 Avril 2011
Messages
457
Reactions
1
#2
Tu peux pas faire ça avec un bot pixel car il faut que la fenêtre de tes personnages soit affiché, tu dois faire un bot socket, mais c'est beaucoup plus compliqué.
Sinon, tu peux utiliser une machine virtuelle, mais il t'en faudrait une pour chaque compte (sauf le perso principal) et c'est inconcevable :S.
 
KardSharpz

KardSharpz

Membre Actif
#3
Inscrit
17 Mars 2009
Messages
48
Reactions
0
#3
J'ai déja codé un programme qui me permettait de faire ça mais les fenêtres alternait, je sais pas si c'est un problème pour toi. Sinon essai ça. Sinon fait une recherche sur "autohotkey" sur google, il serait peu être possible de ne pas faire alterner les fenêtres.
Code: 
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#RequireAdmin

HotKeySet("{F1}","actionUn")
HotKeySet("{F2}","actionDeux") 
HotKeySet("{F3}","actionTrois") 
HotKeySet("{F4}","actionQuatre")

Global $Combo1, $Input1, $Input2, $Input3, $Input4, $Input5, $Input6, $Input7, $Input8

Global $nom1 = IniRead("perso1.ini","perso1","nom","")
Global $nom2 = IniRead("perso2.ini","perso2","nom","")
Global $nom3 = IniRead("perso3.ini","perso3","nom","")
Global $nom4 = IniRead("perso4.ini","perso4","nom","")
Global $nom5 = IniRead("perso5.ini","perso5","nom","")
Global $nom6 = IniRead("perso6.ini","perso6","nom","")
Global $nom7 = IniRead("perso7.ini","perso7","nom","")
Global $nom8 = IniRead("perso8.ini","perso8","nom","")

Interface()

Func Interface()
#Region ### START Koda GUI section ### Form=C:\Users\1141360\Desktop\Programmation AutoIt\raccourcis multi bot\Form1.kxf
$Form1 = GUICreate("Form1", 611, 339, 192, 124)
$Group1 = GUICtrlCreateGroup("Configuration", 8, 8, 289, 57)
$Label1 = GUICtrlCreateLabel("Nombre de compte à utiliser:", 24, 32, 138, 17)
$Combo1 = GUICtrlCreateCombo("", 176, 32, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1|2|3|4|5|6|7|8")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Personnage 1", 8, 72, 289, 57)
$Label2 = GUICtrlCreateLabel("Nom du personnage:", 24, 96, 103, 17)
$Input1 = GUICtrlCreateInput($nom1, 136, 96, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Personnage 2", 8, 134, 289, 57)
$Label3 = GUICtrlCreateLabel("Nom du personnage:", 24, 158, 103, 17)
$Input2 = GUICtrlCreateInput($nom2, 136, 158, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Personnage 3", 8, 200, 289, 57)
$Label4 = GUICtrlCreateLabel("Nom du personnage:", 24, 224, 103, 17)
$Input3 = GUICtrlCreateInput($nom3, 136, 224, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Personnage 4", 8, 270, 289, 57)
$Label5 = GUICtrlCreateLabel("Nom du personnage:", 24, 294, 103, 17)
$Input4 = GUICtrlCreateInput($nom4, 136, 294, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Personnage 5", 309, 72, 289, 57)
$Label6 = GUICtrlCreateLabel("Nom du personnage:", 325, 96, 103, 17)
$Input5 = GUICtrlCreateInput($nom5, 437, 96, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("Personnage 6", 310, 134, 289, 57)
$Label7 = GUICtrlCreateLabel("Nom du personnage:", 326, 158, 103, 17)
$Input6 = GUICtrlCreateInput($nom6, 438, 158, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("Personnage 7", 312, 200, 289, 57)
$Label8 = GUICtrlCreateLabel("Nom du personnage:", 328, 224, 103, 17)
$Input7 = GUICtrlCreateInput($nom7, 440, 224, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group9 = GUICtrlCreateGroup("Personnage 8", 310, 270, 289, 57)
$Label9 = GUICtrlCreateLabel("Nom du personnage:", 326, 294, 103, 17)
$Input8 = GUICtrlCreateInput($nom8, 438, 294, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group10 = GUICtrlCreateGroup("", 312, 8, 289, 57)
$Button1 = GUICtrlCreateButton("Sauvegarder", 328, 24, 121, 25)
$Button2 = GUICtrlCreateButton("Quitter", 464, 24, 121, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1 ;sauvegarder
			;...
			$Inp1 = GUICtrlRead($Input1)
			IniWrite("perso1.ini","perso1","nom",$Inp1)
			
			$Inp2 = GUICtrlRead($Input2)
			IniWrite("perso2.ini","perso2","nom",$Inp2)
			
			$Inp3 = GUICtrlRead($Input3)
			IniWrite("perso3.ini","perso3","nom",$Inp3)
			
			$Inp4 = GUICtrlRead($Input4)
			IniWrite("perso4.ini","perso4","nom",$Inp4)
			
			$Inp5 = GUICtrlRead($Input5)
			IniWrite("perso5.ini","perso5","nom",$Inp5)
			
			$Inp6 = GUICtrlRead($Input6)
			IniWrite("perso6.ini","perso6","nom",$Inp6)
			
			$Inp7 = GUICtrlRead($Input7)
			IniWrite("perso7.ini","perso7","nom",$Inp7)
			
			$Inp7 = GUICtrlRead($Input7)
			IniWrite("perso7.ini","perso7","nom",$Inp7)
			
		Case $Button2 ;quitter
			Exit

	EndSwitch
WEnd
EndFunc

Func actionUn()
	WinActivate($nom1)
	$pos = MouseGetPos()
	MouseClick("left")
	
	$nbr_compte = GUICtrlRead($Combo1)
	if $nbr_compte = "2" Then
		WinActivate($nom2)
		Sleep(1000)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]+1,$pos[1],1,1)
		;...
		WinActivate($nom1)
	EndIf
	
	if $nbr_compte = "3" Then
		WinActivate($nom2)
		Sleep(1000)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]+1,$pos[1],1,1)
		WinActivate($nom3)
		Sleep(1000)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]-1,$pos[1],1,1)
		;...
		WinActivate($nom1)
	EndIf
	
	if $nbr_compte = "4" Then
		WinActivate($nom2)
		Sleep(1000)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]+1,$pos[1],1,1)
		WinActivate($nom3)
		Sleep(1000)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]-1,$pos[1],1,1)
		WinActivate($nom4)
		Sleep(1000)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]+1,$pos[1],1,1)
		;...
		WinActivate($nom1)
	EndIf
	
	if $nbr_compte = "5" Then
		WinActivate($nom2)
		Sleep(500)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]+1,$pos[1],1,2)
		WinActivate($nom3)
		Sleep(500)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]-1,$pos[1],1,2)
		WinActivate($nom4)
		Sleep(500)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]+1,$pos[1],1,2)
		WinActivate($nom5)
		Sleep(500)
		MouseMove(0,0,1)
		MouseClick("left",$pos[0]-1,$pos[1],1,2)
		;...
		WinActivate($nom1)
	EndIf
	
	if $nbr_compte = "6" Then
		WinActivate($Input2)
		Sleep(1000)
		MouseClick("left")
		WinActivate($Input3)
		Sleep(1000)
		MouseClick("left")
		WinActivate($Input4)
		Sleep(1000)
		MouseClick("left")
		WinActivate($Input5)
		Sleep(1000)
		MouseClick("left")
		WinActivate($Input6)
		Sleep(1000)
		MouseClick("left")
		;...
		WinActivate($Input1)
	EndIf
	
	if $nbr_compte = "7" Then
		WinActivate($Input2)
		MouseClick("left")
		WinActivate($Input3)
		MouseClick("left")
		WinActivate($Input4)
		MouseClick("left")
		WinActivate($Input5)
		MouseClick("left")
		WinActivate($Input6)
		MouseClick("left")
		WinActivate($Input7)
		MouseClick("left")
		;...
		WinActivate($Input1)
	EndIf
	
	if $nbr_compte = "8" Then
		WinActivate($Input2)
		MouseClick("left")
		WinActivate($Input3)
		MouseClick("left")
		WinActivate($Input4)
		MouseClick("left")
		WinActivate($Input5)
		MouseClick("left")
		WinActivate($Input6)
		MouseClick("left")
		WinActivate($Input7)
		MouseClick("left")
		WinActivate($Input8)
		MouseClick("left")
		;...
		WinActivate($Input1)
	EndIf
	
EndFunc

Func actionDeux()
	;...
EndFunc

Func actionTrois()
	;...
EndFunc

Func actionQuatre()
	;...
EndFunc
Fonctionnement:
1- Clic sur le monstre avec ton "chef"
2- Fait F1 sur l'épée avec ton deuxième compte
3- Tout les autres mules vont rejoindre le combat (Tu peux faire de même pour prêt, fermer et changer de map)

EDIT: Si tu utilise plus que 5 comptes, tu dois modifier le code de if $nbr_compte = "6" Then, if $nbr_compte = "7" Then et if $nbr_compte = "8" Then et de le coder de la même façon que if $nbr_compte = "5" Then.
 
A

Anonymous

Invité
#4
#4
C'est COOL ! Merci beaucoup les gars je vais essayer ça dès que je pourrai avoir accès à mon pc. Eh il est super cool ce site merci beaucoup à toute l'équipe de Cadernis x) !
 
P

pierre33

Membre
#5
Inscrit
13 Avril 2012
Messages
4
Reactions
0
#5
Kard, ce script est légèrement non efficace !

Utilise des controlclick au lieu de winactivate / mouseclick.
 
A

Anonymous

Invité
#6
#6
NicoMasterChief a dit:
Tu peux pas faire ça avec un bot pixel car il faut que la fenêtre de tes personnages soit affiché, tu dois faire un bot socket, mais c'est beaucoup plus compliqué.
Sinon, tu peux utiliser une machine virtuelle, mais il t'en faudrait une pour chaque compte (sauf le perso principal) et c'est inconcevable :S.
Cliquez pour agrandir...
Cela dépend pour qui, le socket n'est pas compliqué quand tu comprend le principe. Mais quand on essaye pas c'est sur que c'est dur.
 
NicoMasterChief

NicoMasterChief

Membre
#7
Inscrit
15 Avril 2011
Messages
457
Reactions
1
#7
lolodu92 a dit:
NicoMasterChief a dit:
Tu peux pas faire ça avec un bot pixel car il faut que la fenêtre de tes personnages soit affiché, tu dois faire un bot socket, mais c'est beaucoup plus compliqué.
Sinon, tu peux utiliser une machine virtuelle, mais il t'en faudrait une pour chaque compte (sauf le perso principal) et c'est inconcevable :S.
Cliquez pour agrandir...
Cela dépend pour qui, le socket n'est pas compliqué quand tu comprend le principe. Mais quand on essaye pas c'est sur que c'est dur.
Cliquez pour agrandir...
Par rapport au bot Pixel, le socket est beaucoup plus difficile, le bot Pixel est presque intuitif.
 
A

Anonymous

Invité
#8
#8
Tu repette ta remarque et moi je repette la mienne.
Quand tu comprends le principe tout va beaucoup plus vite.
 
A

Anonymous

Invité
#10
#10
Pourquoi ne pas demander ? ajoute moi sur skype frydman.alexandre
On discutera par message
 
NicoMasterChief

NicoMasterChief

Membre
#11
Inscrit
15 Avril 2011
Messages
457
Reactions
1
#11
Ak ok, merci ^^
Ton pseudo c'est BlueDream sur Skype ?
 
Dernière édition par un modérateur:
ToOnS

ToOnS

Membre Actif
#12
Inscrit
8 Avril 2009
Messages
974
Reactions
0
#12
(chuttttte mais non c'est pas BlueDream , lui il est banni , c'est lolodu92 , lui il est bien)
 
Dernière édition par un modérateur:
G

Geraff

Administrateur
Membre du personnel
#14
Inscrit
13 Mars 2008
Messages
564
Reactions
0
#14
Quoi???!! aller hop banni.

lol
 
Sparkdaemon

Sparkdaemon

Staff
Membre du personnel
#15
Inscrit
7 Avril 2009
Messages
556
Reactions
3
#15
Bandef + blacklist sur le htaccess.

\o/
 
A

Anonymous

Invité
#16
#16
Puisque j'y suis, ton banne ip ne marche pas geraff. Enfin tu peux pas creer de compte mais tu peux te connecter avec un compte creer sous un autre ip :D
 
G

Geraff

Administrateur
Membre du personnel
#17
Inscrit
13 Mars 2008
Messages
564
Reactions
0
#17
Un ban ne marche jamais, c'est impossible de vraiment bannir un membre.
HS clos, ce n'est pas le sujet de cette conversation.
 
Vous devez vous connecter ou vous inscrire pour répondre ici.
Haut Bas