|
You last visited: Today at 20:08
Advertisement
All in one
Discussion on All in one within the AutoIt forum part of the Coders Den category.
11/08/2009, 21:45
|
#1
|
elite*gold: 0
Join Date: Jul 2009
Posts: 79
Received Thanks: 8
|
All in one
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  hmmm.... naja vllt gibt es ja irgendwen der das selbe Problem schonmal hatte.
Freue mich über jede antwort
|
|
|
11/08/2009, 21:58
|
#2
|
elite*gold: 0
Join Date: Oct 2009
Posts: 141
Received Thanks: 26
|
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
|
#3
|
elite*gold: 26
Join Date: Jun 2009
Posts: 972
Received Thanks: 228
|
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
|
#4
|
elite*gold: 0
Join Date: Jul 2009
Posts: 79
Received Thanks: 8
|
Top funtioniert alles!!!
Dickes Thanks an alle die soo schnell geantwortet haben!
kann closed werden
|
|
|
11/09/2009, 16:14
|
#5
|
elite*gold: 26
Join Date: Jun 2009
Posts: 972
Received Thanks: 228
|
an alle ? sind doch nur 2. Ich war mir nicht sicher ob es klappt aber wenn es klappt bin ich froh
|
|
|
All times are GMT +2. The time now is 20:09.
|
|