All in one

11/08/2009 21:45 Führer#1
Hallo liebe e*pvpers
ich hätte da mal eine frage ich habe mir aus langerweile mal 4 kleinere Bots geschrieben also so simple klickbots aber ich würde die gerne in einem Pack haben so das man vor dem start aussuchen kann/muss welchen man benutzen will.
Also mir ist klar das man das in irgendeiner art mit der GUI verbinden muss oder :confused: hmmm.... naja vllt gibt es ja irgendwen der das selbe Problem schonmal hatte.

Freue mich über jede antwort
11/08/2009 21:58 -MARKS-#2
Holl dir koda_1.7.0.1
damit kannst du ein Fenster Design wie du es willst
Dann muss du nur noch den Einzelen Buttons ihre Funktion zufügen
z.b. $1Bot
Run("Bot1.exe")

i-wie so halt
bin noch Anfänger:P
11/09/2009 15:03 SCORNI#3
Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 200, 116, 192, 124)
$Button1 = GUICtrlCreateButton("Anthopleura", 16, 24, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Dubeni", 96, 24, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Seepferde", 16, 56, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Tibia", 96, 56, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$a=""
do
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
             
		 Case $Button1
			 GUIDelete()
			Anthopleura ()
			$a="fertig"
		Case $Button2
			guidelete ()
			 Dubeni()
			 $a="fertig"
		 Case $Button3
			 guidelete ()
			 seepferde()
			 $a="fertig"
		 Case $Button4
			 guidelete ()
			 tibia()
			 $a="fertig"
	EndSwitch
until $a="fertig"
func Anthopleura()
While 1=1
Sleep (2000)
MouseMove (713, 308)
Sleep (1500)
MouseClick ("left", 713, 308)
Sleep (8000)
MouseMove (51, 463)
MouseClick ("left", 51, 463)
Sleep (1000)
MouseMove (57, 812)
MouseClick ("left", 57, 812)
Sleep (4000)
Send ("{Enter}")
Sleep (5000)
MouseMove (598, 323)
MouseClick ("left", 598, 323)
Sleep (8500)
MouseMove (700, 322)
MouseClick ("left", 700, 322)
Sleep (8000)
MouseMove (51, 464)
MouseClick ("left", 51, 464)
Sleep (4000)
MouseMove (57, 812)
MouseClick ("left", 57, 812)
Sleep (4000)
Send ("{Enter}")
Sleep (5000)
MouseMove (598, 323)
MouseClick ("left", 598, 323)
Sleep (100000)
MouseMove (400, 326)
MouseClick ("left", 400, 326)
Sleep (8000)
MouseMove (713, 308)
Sleep (4000)
MouseClick ("left", 713, 308)
Sleep (8000)
MouseMove (400, 326)
MouseClick ("left", 400, 326)
Sleep (8000)
WEnd
endfunc
func Dubeni()
While 1=1
Sleep (2000)
MouseMove (713, 308)
Sleep (1500)
MouseClick ("left", 713, 308)
Sleep (8000)
MouseMove (165, 463)
MouseClick ("left", 165, 463)
Sleep (1000)
MouseMove (57, 812)
MouseClick ("left", 57, 812)
Sleep (4000)
Send ("{Enter}")
Sleep (5000)
MouseMove (598, 323)
MouseClick ("left", 598, 323)
Sleep (8500)
MouseMove (700, 322)
MouseClick ("left", 700, 322)
Sleep (8000)
MouseMove (165, 464)
MouseClick ("left", 165, 464)
Sleep (4000)
MouseMove (57, 812)
MouseClick ("left", 57, 812)
Sleep (4000)
Send ("{Enter}")
Sleep (5000)
MouseMove (598, 323)
MouseClick ("left", 598, 323)
Sleep (180000)
MouseMove (400, 326)
MouseClick ("left", 400, 326)
Sleep (8000)
MouseMove (713, 308)
Sleep (4000)
MouseClick ("left", 713, 308)
Sleep (8000)
MouseMove (400, 326)
MouseClick ("left", 400, 326)
Sleep (8000)
WEnd
endfunc
func seepferde()
	While 1=1
Sleep (2000)
MouseMove (713, 308)
Sleep (1500)
MouseClick ("left", 713, 308)
Sleep (8000)
MouseMove (109, 463)
MouseClick ("left", 109, 463)
Sleep (1000)
MouseMove (57, 812)
MouseClick ("left", 57, 812)
Sleep (4000)
Send ("{Enter}")
Sleep (5000)
MouseMove (598, 323)
MouseClick ("left", 598, 323)
Sleep (8500)
MouseMove (700, 322)
MouseClick ("left", 700, 322)
Sleep (8000)
MouseMove (109, 464)
MouseClick ("left", 109, 464)
Sleep (4000)
MouseMove (57, 812)
MouseClick ("left", 57, 812)
Sleep (4000)
Send ("{Enter}")
Sleep (5000)
MouseMove (598, 323)
MouseClick ("left", 598, 323)
Sleep (95000)
MouseMove (400, 326)
MouseClick ("left", 400, 326)
Sleep (8000)
MouseMove (713, 308)
Sleep (4000)
MouseClick ("left", 713, 308)
Sleep (8000)
MouseMove (400, 326)
MouseClick ("left", 400, 326)
Sleep (8000)
WEnd
endfunc
func tibia()
While 1=1
Sleep (2000)
MouseMove (713, 308)
Sleep (1500)
MouseClick ("left", 713, 308)
Sleep (8000)
MouseMove (51, 523)
MouseClick ("left", 51, 523)
Sleep (1000)
MouseMove (57, 812)
MouseClick ("left", 57, 812)
Sleep (4000)
Send ("{Enter}")
Sleep (5000)
MouseMove (598, 323)
MouseClick ("left", 598, 323)
Sleep (8500)
MouseMove (700, 322)
MouseClick ("left", 700, 322)
Sleep (8000)
MouseMove (51, 523)
MouseClick ("left", 51, 523)
Sleep (4000)
MouseMove (57, 812)
MouseClick ("left", 57, 812)
Sleep (4000)
Send ("{Enter}")
Sleep (5000)
MouseMove (598, 323)
MouseClick ("left", 598, 323)
Sleep (200000)
MouseMove (400, 326)
MouseClick ("left", 400, 326)
Sleep (8000)
MouseMove (713, 308)
Sleep (4000)
MouseClick ("left", 713, 308)
Sleep (8000)
MouseMove (400, 326)
MouseClick ("left", 400, 326)
Sleep (8000)
WEnd
endfunc
musst du testen ob es klappt
11/09/2009 15:40 Führer#4
Top funtioniert alles!!!
Dickes Thanks an alle die soo schnell geantwortet haben!

kann closed werden
11/09/2009 16:14 SCORNI#5
an alle ? sind doch nur 2. Ich war mir nicht sicher ob es klappt aber wenn es klappt bin ich froh