[AutoIt] Frage/Antworte Thread

Page 35 of 48

11/17/2009 21:12 RoleS#511

HotKeySet ( "{F5}" , "Start" )
HotKeySet ( "{F6}" , "Ende" )
HotKeySet ("{F7}", "STRG")

while(1)
sleep(500)
wend

Func Start ()
While 1
Sleep(100)
WEnd
EndFunc

Func STRG ()
Send("{^}"+"h",0)
EndFunc

Func Ende ()
Exit
EndFunc

11/21/2009 16:54 BowOfAim#512

Ich hab mal ne Frage undzwar, wie man die Enter taste also halt ein Zeilenumbruch in eine MsgBox einbaut hab nehmlich gestern mal mit AutoIt angefangen und wollt mir ein Relogg-Bot basteln F�r Server 18 CH 2 Charakter 3
Habs auch schon soweit geschafft aber will halt dasses wenn man auf info klickt
das Fenster dann so ungef�hr aussieht:
_____________________
|____________________|
|
| F9 Bot pausieren
|
| F10 Bot beenden
|____________________|

Pausieren versuch ich dann noch einzubauen wenn ich weis wie man des macht ;D

Oder so^^

Hier is der script mal und wundert euch nicht wen sachen da drinn �berfl�ssig sind oder es bisschen un�bersichtlich ist^^

Danke schonmal im Vorraus

MFG BowOfAim

PHP Code:


			
#include <GUIConstantsEx.au3>

        $ID = GUICtrlCreateInput("ID", 24, 72, 137, 22)

        $PW = GUICtrlCreateInput("Passwort", 24, 112, 137, 22)

Opt('MustDeclareVars', 1)





Hotkeyset("{F10}", "Terminate")



Example()



Func Example()

    Local $Button_1, $Button_2, $msg

    GUICreate("Relogg-Bot S18CH2", 220, 120, 750, 500, 2, 2) 



    Opt("GUICoordMode", 2)

    $Button_1 = GUICtrlCreateButton("Start", 10, 30, 100)

    $Button_2 = GUICtrlCreateButton("Info", 0, -1)

    $ID = GUICtrlCreateInput("ID", -175, 0, 137, 22)

    $PW = GUICtrlCreateInput("Passwort", -137, 0, 100, 22)

    GUISetState()      



    

    While 1

        $msg = GUIGetMsg()

        Select

            Case $msg = $GUI_EVENT_CLOSE

                ExitLoop

            Case $msg = $Button_1

                



    While 1

    Do    

        PixelSearch(23,35,23,35,0x1c1c1c) 

    Until Not @error     

        sleep(100)

            MouseClick("left", 300, 517, 1)

            MouseClick("left", 500, 227, 1) 

            MouseClick("left", 500, 537, 1) 

            MouseClick("left", 610, 495, 1) 

            Send ( GUICtrlRead ( $ID) ) 

            MouseClick("left", 610, 522, 1) 

            Send ( GUICtrlRead ( $PW ) )

            MouseClick("left", 586, 547, 1) 

        sleep(100)

    Do

        PixelSearch(95,277,95,277,0x9c0000) 

    Until Not @error         

        MouseClick("left", 500, 557, 2) 

        MouseClick("left", 171, 505, 1)

    

    Wend



    

            Case $msg = $Button_2

                msgBox(1,"Info", "F10 Bot beenden")

        EndSelect

    WEnd

EndFunc 



    Func Terminate() 

            Exit 0

    Endfunc

11/21/2009 17:31 Tazaki#513

autoit ist ja kostenlos oder? ich komme n�mlich uimmer nur auf seiten, wo es 50€+ kostet xD

11/21/2009 18:24 BowOfAim#514

Also ich habs kostenlos bei CHIP runtergeladen glaube ich.

11/22/2009 18:38 Melez1#515

Brauche Hilfe bei meinen kleinen Bot f�r "NosTale"
Ich will das es unter Minimierung l�uft oder halt hidden

Mein Code:

PHP Code:


			
HotKeySet("{F9}","Start")

While(1)
    Sleep(500)
WEnd


Func Start()
While 1
Sleep ( 500 )
ControlSend("NosTale", "", 0, "{Space}")
If PixelGetColor (842,185) = 0x343433 Then
    Sleep(2000)
    ControlSend("NosTale", "", 0, "�")
    ControlSend("NosTale", "", 0, "r")
    ControlSend("NosTale", "", 0, "�")
    ControlSend("NosTale", "", 0, "r")
    ControlSend("NosTale", "", 0, "�")
    ControlSend("NosTale", "", 0, "r")
    If PixelGetColor (477,185) = 0x343433 Then 
        Sleep(15000)
        ControlSend("NosTale", "", 0, "c")
        Sleep(25000)
        ControlSend("NosTale", "", 0, "c")
    EndIf
EndIf
WEnd
EndFunc
    
Func Pause()
    While(1)
        Sleep(500)
        Send("{Pause}")
    WEnd
EndFunc

Der klappt eig ganz okey, aber wenn ich �ber den Punkt: (842,185)etwas mache ... halt es verdecke funktioniert er nicht mehr richtig. ER tun nur noch angreifen !

P.S. Sorry wenn der Code schlecht is, hab erst vor kurzen angefangen mit Autoit

Edit: Sry f�r die Falsche Section, hab nur gesehen das es fragen �ber Autoit ist und nicht das es in Metin2 Section ist.

11/24/2009 16:50 ronhill89#516

hey ich habe das selbe problem ich brauche diese exe kann mir die jemand schiken meine msn id ist [Only registered and activated users can see links. Click Here To Register...] Danke

11/27/2009 06:04 Jayzone#517

Hi.Ich hab ne frage zum (MarcoPolo Farmbot) bzw zum dem relogbot der damit verbunden ist.

Was muss ich den bei ,,Farbwert des Pixel 515,210 hin schreiben��??Was genau is das?

und bei ,,Mausklick f�r den login��?????

Kann mir da einer weiterhelfen bei mir funtz der Relogingbot net.Ich denk mal deswegen.

11/27/2009 08:56 Quade#518

Quote:

Originally Posted by Jayzone

Hi.Ich hab ne frage zum (MarcoPolo Farmbot) bzw zum dem relogbot der damit verbunden ist.

Was muss ich den bei ,,Farbwert des Pixel 515,210 hin schreiben��??Was genau is das?

und bei ,,Mausklick f�r den login��?????

Kann mir da einer weiterhelfen bei mir funtz der Relogingbot net.Ich denk mal deswegen.

Mit dem AutoIt Window Info tool kannst du den Farbwert an der Stelle rausbekommen; erkundige dich mal dar�ber; Google.

Quote:

Originally Posted by Kr0ch3r

autoit ist ja kostenlos oder? ich komme n�mlich uimmer nur auf seiten, wo es 50€+ kostet xD

Ja, ist nat�rlich kostenlos; Hauptseite von AutoIt oder halt Chip.

Quote:

Originally Posted by BowOfAim

Ich hab mal ne Frage undzwar, wie man die Enter taste also halt ein Zeilenumbruch in eine MsgBox einbaut

"Text" & @CRLF & "Text in Zeile 2" sollte klappen.

Zwischen beide mit ""< eingeschlossene Texte also einfach & @CRLF & einf�gen, bei mehreren Freizeilen also; "Zeile 1" & @CRLF & @CRLF & ....... @CRLF & "Zeile n"

Quote:

Originally Posted by Melez1

Brauche Hilfe bei meinen kleinen Bot f�r "NosTale"
Ich will das es unter Minimierung l�uft oder halt hidden

Mein Code:

PHP Code:

HotKeySet("{F9}","Start") While(1) Sleep(500) WEnd Func Start() While 1 Sleep ( 500 ) ControlSend("NosTale", "", 0, "{Space}") If PixelGetColor (842,185) = 0x343433 Then Sleep(2000) ControlSend("NosTale", "", 0, "�") ControlSend("NosTale", "", 0, "r") ControlSend("NosTale", "", 0, "�") ControlSend("NosTale", "", 0, "r") ControlSend("NosTale", "", 0, "�") ControlSend("NosTale", "", 0, "r") If PixelGetColor (477,185) = 0x343433 Then Sleep(15000) ControlSend("NosTale", "", 0, "c") Sleep(25000) ControlSend("NosTale", "", 0, "c") EndIf EndIf WEnd EndFunc Func Pause() While(1) Sleep(500) Send("{Pause}") WEnd EndFunc

Der klappt eig ganz okey, aber wenn ich �ber den Punkt: (842,185)etwas mache ... halt es verdecke funktioniert er nicht mehr richtig. ER tun nur noch angreifen !

P.S. Sorry wenn der Code schlecht is, hab erst vor kurzen angefangen mit Autoit

Edit: Sry f�r die Falsche Section, hab nur gesehen das es fragen �ber Autoit ist und nicht das es in Metin2 Section ist.

Dein Problem verstehe ich nicht ganz. Da ich kein NosTale zocke m�sstest du mir mal den gew�nschten Ablauf und die Verbindung mit deinem Script genau erkl�ren :)

11/27/2009 12:56 HighLvleR#519

PHP Code:


			
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")

Run ("notepad.exe")

WinWait ("Unbenannt")

Send ("Das wurde von dir vorgeschlagen " & $input)

Sleep (5000)

$input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!")

If $input = "ja" Then

    MouseClick ("left", 1022, 148)

    Sleep (1500)

    Send ("{right}")

    Send ("{enter}")

    MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)")

ElseIf $input = "nein" Then

    MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)")

    EndIf

Was muss ich �ndern wenn man Nein schreibt das man zur�ck zu der Inpoutbox Ja oder Nein kommt ?

mfG

PS: TEST Script bin am lernen

11/27/2009 15:22 RoleS#520

Quote:

Originally Posted by HighLvleR

PHP Code:

$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?") Run ("notepad.exe") WinWait ("Unbenannt") Send ("Das wurde von dir vorgeschlagen " & $input) Sleep (5000) $input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!") If $input = "ja" Then MouseClick ("left", 1022, 148) Sleep (1500) Send ("{right}") Send ("{enter}") MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)") ElseIf $input = "nein" Then MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)") EndIf

Was muss ich �ndern wenn man Nein schreibt das man zur�ck zu der Inpoutbox Ja oder Nein kommt ?

mfG

PS: TEST Script bin am lernen

Hier das m�sste sein was du willst:

PHP Code:


			
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")
Run ("notepad.exe")
WinWait ("Unbenannt")
Send ("Das wurde von dir vorgeschlagen " & $input)
Sleep (5000)
inputhier()

Func inputhier()
    $input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!")
If $input = "ja" Then
    MouseClick ("left", 1022, 148)
    Sleep (1500)
    Send ("{right}")
    Send ("{enter}")
    MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)")
Else
    MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)")
    inputhier()
EndIf  
EndFunc

11/27/2009 15:25 HighLvleR#521

Quote:

Originally Posted by Jurist

Hier das m�sste sein was du willst:

PHP Code:

$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?") Run ("notepad.exe") WinWait ("Unbenannt") Send ("Das wurde von dir vorgeschlagen " & $input) Sleep (5000) inputhier() Func inputhier() $input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!") If $input = "ja" Then MouseClick ("left", 1022, 148) Sleep (1500) Send ("{right}") Send ("{enter}") MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)") Else MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)") inputhier() EndIf EndFunc

Nicht ganz :o

Ich will das es wieder hier anf�ngt

PHP Code:


			
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")

Run ("notepad.exe")

WinWait ("Unbenannt")

Send ("Das wurde von dir vorgeschlagen " & $input)

Sleep (5000)

mfG

11/27/2009 15:37 RoleS#522

Quote:

Originally Posted by HighLvleR

Nicht ganz :o

Ich will das es wieder hier anf�ngt

PHP Code:

$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?") Run ("notepad.exe") WinWait ("Unbenannt") Send ("Das wurde von dir vorgeschlagen " & $input) Sleep (5000)

mfG

Einfach den Code in die Funktion einbinden und den Start an den Anfang setzen ;).

PHP Code:


			
inputhier()



Func inputhier()

    $input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")

Run ("notepad.exe")

WinWait ("Unbenannt")

Send ("Das wurde von dir vorgeschlagen " & $input)

Sleep (5000)

    $input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!")

If $input = "ja" Then

    MouseClick ("left", 1022, 148)

    Sleep (1500)

    Send ("{right}")

    Send ("{enter}")

    MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)")

Else

    MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)")

    inputhier()

EndIf  

EndFunc

Mfg

11/27/2009 16:24 MMOG4567#523

Quote:

Originally Posted by jovinkk

Tag
Super Arbeit Marco ;-)
Trotzdem geht es bei mir i-wie ned (Bin auch noch totaler Anf�nger)
Wollte nen lvl-bot schreiben, der vom pferd absteigt und dann Aura/SK reinhaut und wieder aufsteigt. Aber i-wie schaff ich es nicht ..

Hier mal nen Versuch von mir:

HotKeySet ( "{F5}" , "Start" )
HotKeySet ( "{F6}" , "Ende" )
HotKeySet ("{F7}", "STRG")

Func Start ()
While 1
Sleep(100)
WEnd
EndFunc

Func STRG ()
Send("^"+"h")
EndFunc

Func Ende ()
Exit
EndFunc

Kannst du mir vllt weiterhelfen? =/

Und wenn ich grad dabei bin was zu fragen:
Wie kann ich den lvl-bot hidden machen? :P
Als ich woanders gefragt habe bekam ich die Antwort : Bot dem Programm zuweisen

das machst du mit "ControlSend"

11/27/2009 16:49 HighLvleR#524

Hab wieder mal ein Problem >.<

Ich hab en GUI gemacht aber die Tastenw eiss ich ned wie auf eine Funktion zuweisen

PHP Code:


			
#include <GUIConstants.au3>



#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("STARTER", 301, 201, 193, 125)

GUISetIcon("C:\Users\Beni\Desktop\favicon.ico")

$Button1 = GUICtrlCreateButton("START", 32, 120, 105, 49, 0)

$Button2 = GUICtrlCreateButton("EXIT", 168, 120, 97, 49, 0)

$Label1 = GUICtrlCreateLabel("Testscript nach den AutoIT3", 32, 16, 225, 27)

GUICtrlSetFont(-1, 14, 800, 0, "Calibri")

$Label2 = GUICtrlCreateLabel("Grundlagen 1-4", 88, 64, 126, 27)

GUICtrlSetFont(-1, 14, 800, 0, "Calibri")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit



    EndSwitch

WEnd

if $Button1 Then

    Run ("script.exe")

ElseIf $Button2 Then

    Sleep (1000)

    MsgBox (0, "Copyright!", "Dieser Script wurde von ******  geschrieben Copyright 2009")

    Sleep (1500)

    Exit

    EndIf

Ich habs mal mit If $Button1 versucht funzt ned Aber eigentlich logisch :rolleyes:

mfG

11/27/2009 17:38 RoleS#525

Quote:

Originally Posted by HighLvleR

Hab wieder mal ein Problem >.<

Ich hab en GUI gemacht aber die Tastenw eiss ich ned wie auf eine Funktion zuweisen

PHP Code:

#include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("STARTER", 301, 201, 193, 125) GUISetIcon("C:\Users\Beni\Desktop\favicon.ico") $Button1 = GUICtrlCreateButton("START", 32, 120, 105, 49, 0) $Button2 = GUICtrlCreateButton("EXIT", 168, 120, 97, 49, 0) $Label1 = GUICtrlCreateLabel("Testscript nach den AutoIT3", 32, 16, 225, 27) GUICtrlSetFont(-1, 14, 800, 0, "Calibri") $Label2 = GUICtrlCreateLabel("Grundlagen 1-4", 88, 64, 126, 27) GUICtrlSetFont(-1, 14, 800, 0, "Calibri") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd if $Button1 Then Run ("script.exe") ElseIf $Button2 Then Sleep (1000) MsgBox (0, "Copyright!", "Dieser Script wurde von ****** geschrieben Copyright 2009") Sleep (1500) Exit EndIf

Ich habs mal mit If $Button1 versucht funzt ned Aber eigentlich logisch :rolleyes:

mfG

PHP Code:


			
While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

                 Case $Button1

                        Button1()

    EndSwitch

WEnd

PHP Code:


			
Func Button1()

"Dein Code

EndFunc

Oder unter Case Button1 die Funktion schreiben.

Page 35 of 48

« First

Last »