[AutoIt] Frage/Antworte Thread

Page 29 of 48

06/19/2009 17:00 -jaydee-#421

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 P�nti987#422

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 P�nti987#423

hallo?????
was muss ich machen damit es funzt???

06/26/2009 22:38 Computerfreek#424

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 P�nti987#425

Thanks

06/27/2009 10:43 RoleS#426

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 BLODDYKILL#427

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 RoleS#428

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 BLODDYKILL#429

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 LordKill#430

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 marcopolo1990#431

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 BLODDYKILL#432

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 :D :)

07/04/2009 19:21 P�nti987#433

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 Quade#434

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 MrCrackR#435

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.

Page 29 of 48

« First

Last »