|
You last visited: Today at 17:08
Advertisement
[AutoIt] Frage/Antworte Thread
Discussion on [AutoIt] Frage/Antworte Thread within the Metin2 forum part of the Popular Games category.
06/19/2009, 17:00
|
#421
|
elite*gold: 0 
Join Date: Jun 2009
Posts: 6
Received Thanks: 1
|
mal ne frage wie kann ich nochmal nachschaun wie man die befehle öffnet ich mein
bei run ( " ????") find des bei meine spielen nich gibts da irgein tipp wie ich des finden kann???
|
|
|
|
06/22/2009, 17:21
|
#422
|
elite*gold: 10
Join Date: Feb 2009
Posts: 145
Received Thanks: 52
|
so ist mein neuer spambot
das problem ist das er sich wenn ich f1 drücke derspambot beendet wird
wie kann ich machen dass er richtig funzt????
GuiCreate("Spambot by Sismon",649,220,243,234)
$input1=GuiCtrlCreateInput("Welcher Text soll gesendet werden",71,40,423,20)
$input2=GuiCtrlCreateInput("Abstand der zeit in Milisekunden",70,74,210,20)
$label1=GuiCtrlCreateLabel("Start with F1",71,128,140,15)
$label2=GuiCtrlCreateLabel("Pause with F2 End with F3",201,128,300,15)
$label3=GuiCtrlCreateLabel("Createt by Sismon",366,94,123,15)
GuiSetState()
HotKeySet ( "{F1}" , "Start" )
HotKeySet ( "{F2}" , "Pause" )
HotKeySet ( "{F3}" , "Ende" )
Func Start ()
While (1)
Send ("{enter}")
Send (GuiCtrlRead($input1)
Send ("{enter}")
Sleep (GuiCtrlRead($input2)
Wend
EndFunc
Func Pause ()
While (1)
Sleep (1)
Wend
EndFunc
Func Ende ()
Exit
EndFunc
While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
Wend
|
|
|
|
|
06/26/2009, 22:30
|
#423
|
elite*gold: 10
Join Date: Feb 2009
Posts: 145
Received Thanks: 52
|
hallo?????
was muss ich machen damit es funzt???
|
|
|
|
|
06/26/2009, 22:38
|
#424
|
elite*gold: 0
Join Date: Feb 2008
Posts: 2,754
Received Thanks: 1,748
|
Du hast da ne Klammer vergessen? AutoIT weist dich normalerweise doch drauf hin..
Code:
GuiCreate("Spambot by Sismon",649,220,243,234)
$input1=GuiCtrlCreateInput("Welcher Text soll gesendet werden",71,40,423,20)
$input2=GuiCtrlCreateInput("Abstand der zeit in Milisekunden",70,74,210,20)
$label1=GuiCtrlCreateLabel("Start with F1",71,128,140,15)
$label2=GuiCtrlCreateLabel("Pause with F2 End with F3",201,128,300,15)
$label3=GuiCtrlCreateLabel("Createt by Sismon",366,94,123,15)
GuiSetState()
HotKeySet ( "{F1}" , "Start" )
HotKeySet ( "{F2}" , "Pause" )
HotKeySet ( "{F3}" , "Ende" )
Func Start ()
While (1)
Send ("{enter}")
Send (GuiCtrlRead($input1)[color=red][B])[/B][/color]
Send ("{enter}")
Sleep (GuiCtrlRead($input2)[color=red][B])[/B][/color]
Wend
EndFunc
Func Pause ()
While (1)
Sleep (1)
Wend
EndFunc
Func Ende ()
Exit
EndFunc
While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
Wend
Hab dir den Fehler rot markiert.
mfG
|
|
|
|
|
06/27/2009, 10:11
|
#425
|
elite*gold: 10
Join Date: Feb 2009
Posts: 145
Received Thanks: 52
|
Thanks
|
|
|
|
|
06/27/2009, 10:43
|
#426
|
elite*gold: 2
Join Date: Feb 2009
Posts: 1,030
Received Thanks: 586
|
Ich würde den dann eher so machen:
Code:
HotKeySet ( "{F1}" , "Start" )
HotKeySet ( "{F2}" , "Pause" )
HotKeySet ( "{F3}" , "Ende" )
GuiCreate("Spambot by Sismon",649,220,243,234)
$input1=GuiCtrlCreateInput("Welcher Text soll gesendet werden",71,40,423,20)
$input2=GuiCtrlCreateInput("Abstand der zeit in Milisekunden",70,74,210,20)
$label1=GuiCtrlCreateLabel("Start with F1",71,128,140,15)
$label2=GuiCtrlCreateLabel("Pause with F2 End with F3",201,128,300,15)
$label3=GuiCtrlCreateLabel("Createt by Sismon",366,94,123,15)
GuiSetState()
while(1)
sleep(500)
$read = GuiCtrlRead($input1)
$read1= GuiCtrlRead($input2)
WEnd
Func Start ()
While (1)
Send ("{enter}")
Send ($read)
Send ("{enter}")
Sleep ($read1)
Wend
EndFunc
Func Pause ()
While (1)
Sleep (1)
Wend
EndFunc
Func Ende ()
Exit
EndFunc
While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
Wend
|
|
|
|
|
06/30/2009, 16:26
|
#427
|
elite*gold: 0
Join Date: May 2009
Posts: 51
Received Thanks: 5
|
Ich bräuchte auch mal eben Hilfe. Der Script wird als bot verwendet welcher hoffentlich bald Selbstständig viele tolle Dinge erledigt 
Naja jedenfalls der bot wird sich sehr stark auf das If then Prinzip beziehen.(soll ja auch bisschen KI haben^^)
Naja...
hier mal mein Skript bis jetzt(hab bisschen was raus weils eigentlich unnötig ist xD):
PHP Code:
HotKeySet( "!x" , "close" )
HotKeySet( "^h" , "hilfe" )
Hotkeyset( "!a" , "NPCliste" )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MsgBox( 0, "Wilkommen", "Wenn sie wollen dass ihnen die Funktionsweise des bots erklärt wird drücken sie bitte jetzt Steuerung und h(klein). Wenn sie nicht wissen wie der Bot Funktioniert sollten sie die Tastenkombination drücken. Sie können den bot manuel mit alt+x schließen." )
Func hilfe ()
MsgBox( 0, "Funktion", "drücken sie bitte die Tasten u+e und der bot sammelt selbstständig jede Box ein die er finden kann. Sie müssen aber dabei fliegen! Der bot sammelt selbst blaue Boxen ein also vorsicht!" )
MsgBox( 0, "Funktionen", "Wenn der bot Eigenständig durch jedes gate springen soll welches er sieht, drücke bitte alt+j.")
MsgBox( 0, "Funktionen", "Der bot kann auch automatisch zur Heimatsbasis fliegen. Dafür reicht ein drücken auf die Taste Jeweiligen map Tasten. 1=mmo 2=EIC 3=VRU.")
Msgbox( 0, "Funktionen", "Damit der bot selbsständig NPC angreift muss man alt+MAPnummer drücken. Für eine detailierte Liste reicht das drücken von alt+h")
Sleep(5000)
EndFunc
Func NPCliste ()
MsgBox( "0" , "Codes", "x-1=alt+1 , x-1=alt+2 , x-1=alt+3 ,x-1=alt+4 ,x-1=alt+5 ,x-1=alt+6 ,x-1=alt+7 ,x-1=alt+8 ")
EndFunc
Func close ()
Exit
EndFunc
so das ist garnichts is ja klar-hehe
der erste bot:
PHP Code:
HotKeySet( "e4" , "ba" )
HotKeySet( "e2" , "bb" )
HotKeySet( "e3" , "bc" )
Func ba ()
$nachlinksoben4=InputBox( "Info", "Wie lange braucht das Schiff bis er links oben am gate ist?PS:in milli Sekunden")
MouseClick("left" ,1016 ,650 )
Sleep($nachlinksoben4)
Send( "j" )
Sleep(2500)
$nachrechtsoben4=InputBox( "Info", "Wie lange braucht das Schiff bis er rechts oben am gate ist?PS:in milli Sekunden")
Sleep($nachrechtsoben4)
Mouseclick( "left" ,1137 ,650 )
Send( "j" )
Sleep( 2500 )
MouseClick("left" , 1129, 658)
Endfunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func bb ()
$nachrechtsoben5=InputBox( "Info", "Wie lange braucht das Schiff bis er rechts oben am gate ist?PS:in milli Sekunden")
Mouseclick( "left" ,1137 ,650 )
Sleep($nachrechtsoben5)
Send( "j" )
Sleep( 2500 )
MouseClick("left" , 1129, 658)
Endfunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func bc ()
$nachrechtsoben6=InputBox( "info", "Wie lange braucht das Schiff bis es rechts oben am gate ist?PS:in mimlli Sekunden")
Mouseclick( "left" ,1137 ,650 )
Sleep($nachrechtsoben6)
Send( "j" )
Sleep( 2500 )
$nachrechtsoben7=InputBox( "info", "Wie lange braucht der bot bis er rechtsoben am gate ist? in milli sekunden" )
Mouseclick( "left" ,1137 ,650 )
Sleep($nachrechtsoben7)
Send( "j" )
Sleep( 2500 )
MouseClick("left" , 1129, 658)
Endfunc
so jetz kommen aber die eigentlichen bots und dafür brauche ich ja die KI mit der ich mich nochich ganz auskenn =/
PHP Code:
Hotkeyset( "!j", "autojump" )
Func autojump ()
While (1)
Dim $pix = PixelSearch(895, 645, 943, 668, 0xF6AD70 )
If Not @error Then
MouseClick("left",$pix)
Else
Dim $pix1 = PixelSearch ( 620, 146, 893, 180, 0x1F2831)
MouseClick("left",$pix1)
Endif
Wend
EndFunc
Sleep(300000)
so weiter bin ich nicht gekommen...
was sollte er machen: er sollte das Pixelgebiet nach der Farbe durchsuchen und dann draufklicken mehr erstmal nicht...
Bei mir funkt es nicht richtig und ich hoffe mir kann einer von euch helfen 
|
|
|
|
|
06/30/2009, 16:45
|
#428
|
elite*gold: 2
Join Date: Feb 2009
Posts: 1,030
Received Thanks: 586
|
Ich hab dir mal en paar kleinigkeiten makiert was falsch ist bzw. fehlt^^.
Quote:
HotKeySet( "!x" , "close" )
HotKeySet( "^h" , "hilfe" )
Hotkeyset( "!a" , "NPCliste" )
while(1)
sleep(500)
wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MsgBox( 0, "Wilkommen", "Wenn sie wollen dass ihnen die Funktionsweise des bots erklärt wird drücken sie bitte jetzt Steuerung und h(klein). Wenn sie nicht wissen wie der Bot Funktioniert sollten sie die Tastenkombination drücken. Sie können den bot manuel mit alt+x schließen." )
Func hilfe ()
MsgBox( 0, "Funktion", "drücken sie bitte die Tasten u+e und der bot sammelt selbstständig jede Box ein die er finden kann. Sie müssen aber dabei fliegen! Der bot sammelt selbst blaue Boxen ein also vorsicht!" )
MsgBox( 0, "Funktionen", "Wenn der bot Eigenständig durch jedes gate springen soll welches er sieht, drücke bitte alt+j.")
MsgBox( 0, "Funktionen", "Der bot kann auch automatisch zur Heimatsbasis fliegen. Dafür reicht ein drücken auf die Taste Jeweiligen map Tasten. 1=mmo 2=EIC 3=VRU.")
Msgbox( 0, "Funktionen", "Damit der bot selbsständig NPC angreift muss man alt+MAPnummer drücken. Für eine detailierte Liste reicht das drücken von alt+h")
Sleep(5000)
EndFunc
Func NPCliste ()
MsgBox( "0" , "Codes", "x-1=alt+1 , x-1=alt+2 , x-1=alt+3 ,x-1=alt+4 ,x-1=alt+5 ,x-1=alt+6 ,x-1=alt+7 ,x-1=alt+8 ")
EndFunc
Func close ()
Exit
EndFunc
|
Quote:
HotKeySet( "e4" , "ba" )
HotKeySet( "e2" , "bb" )
HotKeySet( "e3" , "bc" )
while(1)
sleep(500)
wend
Func ba ()
$nachlinksoben4=InputBox( "Info", "Wie lange braucht das Schiff bis er links oben am gate ist?PS:in milli Sekunden")
MouseClick("left" ,1016 ,650 )
Sleep($nachlinksoben4)
Send( "j" )
Sleep(2500)
$nachrechtsoben4=InputBox( "Info", "Wie lange braucht das Schiff bis er rechts oben am gate ist?PS:in milli Sekunden")
Sleep($nachrechtsoben4)
Mouseclick( "left" ,1137 ,650 )
Send( "j" )
Sleep( 2500 )
MouseClick("left" , 1129, 658)
Endfunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func bb ()
$nachrechtsoben5=InputBox( "Info", "Wie lange braucht das Schiff bis er rechts oben am gate ist?PS:in milli Sekunden")
Mouseclick( "left" ,1137 ,650 )
Sleep($nachrechtsoben5)
Send( "j" )
Sleep( 2500 )
MouseClick("left" , 1129, 658)
Endfunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func bc ()
$nachrechtsoben6=InputBox( "info", "Wie lange braucht das Schiff bis es rechts oben am gate ist?PS:in mimlli Sekunden")
Mouseclick( "left" ,1137 ,650 )
Sleep($nachrechtsoben6)
Send( "j" )
Sleep( 2500 )
$nachrechtsoben7=InputBox( "info", "Wie lange braucht der bot bis er rechtsoben am gate ist? in milli sekunden" )
Mouseclick( "left" ,1137 ,650 )
Sleep($nachrechtsoben7)
Send( "j" )
Sleep( 2500 )
MouseClick("left" , 1129, 658)
Endfunc
|
Quote:
Hotkeyset( "!j", "autojump" )
while(1)
sleep(500)
wend
Func autojump ()
While (1)
Dim $pix = PixelSearch(895, 645, 943, 668, 0xF6AD70 )
If Not @error Then
MouseClick("left",$pix,Koordinate)
Else
Dim $pix1 = PixelSearch ( 620, 146, 893, 180, 0x1F2831)
MouseClick("left",$pix1,Koordinate)
Endif
Wend
EndFunc
Sleep(300000)
|
|
|
|
|
|
06/30/2009, 17:26
|
#429
|
elite*gold: 0
Join Date: May 2009
Posts: 51
Received Thanks: 5
|
geht nicht es kommt Error line 24(MouseClick("left",$pix,Koordinate))
MouseClick("left",$pix,Koordinate)
MouseClink("left",$pix,Koordinate^ ERROR
Error: Missing seperator character after keyword.
|
|
|
|
|
06/30/2009, 17:56
|
#430
|
elite*gold: 41
Join Date: Oct 2007
Posts: 1,950
Received Thanks: 3,120
|
ja x und y koordinate oder?
$pix, Koordinate ist falsch
$pix ???? das soll die x achse sein und Koordinate ist kein $ also musste variable für nutzen
|
|
|
|
|
06/30/2009, 18:18
|
#431
|
elite*gold: 20
Join Date: Jan 2008
Posts: 2,632
Received Thanks: 8,492
|
wie wärs mit :
MouseClick("left",$pix[0],$pix[1])
sowie
MouseClick("left",$pix1[0],$pix1[1])
pixelsearch teils die x und y koordinate auf die arrays [0] und [1] auf
|
|
|
|
|
06/30/2009, 18:33
|
#432
|
elite*gold: 0
Join Date: May 2009
Posts: 51
Received Thanks: 5
|
thx
funkt perfekt *-*
danke dir
nochmal was wo euren Fixenköpfen leicht fällt^^
PHP Code:
Hotkeyset( "ue" , "Boxensammeln" )
HotKeySet("!x","close")
Func Boxensammeln ()
While (1)
Dim $pix = PixelSearch(895, 645, 943, 668, 0xFEFEFE )
If Not @error Then
MouseClick("left",$pix[0],$pix[1])
Sleep(5000)
Else
Dim $pix1 = PixelSearch ( 620, 146, 893, 180, 0x1F2831)
MouseClick("left",$pix1[0],$pix1[1])
Endif
Wend
EndFunc
Func close()
Exit
EndFunc
Des Sleep funct nicht...
Wies wer wie ich es schaffe dass wenn es eben diesen Pixel sucht und ihn auch findet danach 5 Sekunden wartet? bei mir macht er gleich weiter... auserdem wäre eine möglichkeit tol wie ich
Quote:
Dim $pix1 = PixelSearch ( 620, 146, 893, 180, 0x1F2831)
MouseClick("left",$pix1[0],$pix1[1])
|
Das weglassen kann? ist nervig finde weil die Pixelsearch oben schon reicht damit ich mein Ergebnis habe 
|
|
|
|
|
07/04/2009, 19:21
|
#433
|
elite*gold: 10
Join Date: Feb 2009
Posts: 145
Received Thanks: 52
|
Ich hab mal ne Frage. Wie kann ich bei AutoIt machen dass ich 2 Seiten habe z.b. wie bei dem Mhs 4.3 ???
|
|
|
|
|
07/05/2009, 00:00
|
#434
|
elite*gold: 0
Join Date: Dec 2007
Posts: 496
Received Thanks: 171
|
Quote:
Originally Posted by Pünti987
Ich hab mal ne Frage. Wie kann ich bei AutoIt machen dass ich 2 Seiten habe z.b. wie bei dem Mhs 4.3 ???
|
GuiCtrlCreateTab
GuiCtrlCreateTabItem
|
|
|
|
|
07/05/2009, 18:02
|
#435
|
elite*gold: 0
Join Date: Aug 2008
Posts: 465
Received Thanks: 224
|
Quote:
PHP Code:
Hotkeyset( "ue" , "Boxensammeln" )
HotKeySet("!x","close")
Func Boxensammeln ()
While (1)
Dim $pix = PixelSearch(895, 645, 943, 668, 0xFEFEFE )
If Not @error Then
MouseClick("left",$pix[0],$pix[1])
Sleep(5000)
Else
Dim $pix1 = PixelSearch ( 620, 146, 893, 180, 0x1F2831)
MouseClick("left",$pix1[0],$pix1[1])
Endif
Wend
EndFunc
Func close()
Exit
EndFunc
Des Sleep funct nicht...
Wies wer wie ich es schaffe dass wenn es eben diesen Pixel sucht und ihn auch findet danach 5 Sekunden wartet? bei mir macht er gleich weiter...
|
ich glaube, du hast das sleep zu weit unten eingebaut.
so wie du es geschrieben hast, sucht es nach dem pixel und wenn
es ihn gefunden hat, klickt es sofort drauf und wartet dann 5 sec.
so müsste es eigendlich aussehen:
PHP Code:
Hotkeyset( "ue" , "Boxensammeln" )
HotKeySet("!x","close")
Func Boxensammeln ()
While (1)
Dim $pix = PixelSearch(895, 645, 943, 668, 0xFEFEFE )
If Not @error Then
Sleep(5000)
MouseClick("left",$pix[0],$pix[1])
Else
Dim $pix1 = PixelSearch ( 620, 146, 893, 180, 0x1F2831)
MouseClick("left",$pix1[0],$pix1[1])
Endif
Wend
EndFunc
Func close()
Exit
EndFunc
außerdem würde ich in die while schleife ein sleep(100) einbauen, da
es sonst zu viel ressoucen zieht. musst halt mal sehen, wie es besser funktionert.
kann aber passieren, dass es bei einem zu hohen sleep
zu fehlern kommt.
|
|
|
|
All times are GMT +1. The time now is 17:08.
|
|
![[AutoIt] Frage/Antworte Thread](https://www.elitepvpers.com/forum/iconimages/metin2/autoit-frage-antworte-thread_ltr.gif){kind=small}
