AutoIt - Metin2 Angelbot?

[Lukɑs]

Hallo,
ich hoffe mal, dass ich hier richtig bin, nähmlich habe ich ein kleines Problem mit meinem Angelbot:

Also, erstmal soll der Bot nur F4 drücken(Köder), Space senden(Angel auswerfen), warten bis die Fischblase erscheint, dann noch mal 3 Sek. warten und wieder Space senden(Angel einholen).

Ich habe zum Suchen der Blase die Pixelsearchfunktion genommen.

Mein Script sieht bisher so aus:

 Spoiler

PHP Code:

#include <GUIConstants.au3>

#RequireAdmin

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 291, 162, 474, 130)
$Button1 = GUICtrlCreateButton("Start", 24, 24, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$ps = PixelSearch(10, 30, 616, 572, 0xF6F1F5)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            WinActivate("METIN2", "")
            WinMove("METIN2", "", 0, 0)
            While 1
            if IsArray($ps) = False Then
            Do 
            send("{F4}") 
            Sleep(500)
            send("{space}") 
            ;was muss jetzt hier hin kommen, damit nicht immer F4 + space gesendet wird?
        Until IsArray($ps) = true
        Sleep(2938)
        Send("{space}")
    EndIf
    WEnd
EndSwitch
WEnd 


I-wie klappt das ganze aber noch nicht so genau.

Vllt. kann mir einer von euch ja helfen, freue mich auf eine baldige Antwort.

Danke im Vorraus!

[.nAno]

Fensterbezogene befehle wie WinActiv(e)ate oder ControlClick/Send funktionieren nicht in Metin (vermutlich da der Client kein Windowhandle hergibt )

Probier es mal einfach mit den TCP Befehlen, ich finde die eig. sogar einfacher als nen nervtötend aufwendig gestalteten PixelSearch Send/Klick Bot ^^

[Jerk321]

kennt wer nen guten guide zum autoit lernen?

[Lukɑs]

Originally Posted by .nAno

Fensterbezogene befehle wie WinActiv(e)ate oder ControlClick/Send funktionieren nicht in Metin (vermutlich da der Client kein Windowhandle hergibt )

Probier es mal einfach mit den TCP Befehlen, ich finde die eig. sogar einfacher als nen nervtötend aufwendig gestalteten PixelSearch Send/Klick Bot ^^

sry, aber was ist mit "TCP Befehlen" gemeint? da kenne ich mich wohl gar nicht mit aus^^

Originally Posted by Graymling1

kennt wer nen guten guide zum autoit lernen?

spam bitte nicht rum, dafür ist die sufu da, danke.

[.nAno]

Anfänger Tuts -->

TCP Tut -->

Da wird auch erklärt wie man nen gesamten Server erstellt, für deine Zwecke ist allerdings nur das Verbinden und Senden relevant

[Lukɑs]

kann man nicht einfach das script "wie gewohnt" fortsetzen?

bzw. was muss ich denn da eintragen, wo ich ne lücke hab?

[.nAno]

Sieht für mich nach nem Fall für ne If/Else Abfrage aus.

Mit na Variable kannst du dann bestimmen ob er das Erste mal durchläuft oder nicht.

[Lukɑs]

hm, ich komme einfach nicht weiter:

 Spoiler

PHP Code:

#include <GUIConstants.au3>

#RequireAdmin

$ps = PixelSearch(12,31,794,578,0xFBF8FC)

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 291, 162, 474, 130)
$Button1 = GUICtrlCreateButton("Start", 24, 24, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            WinActivate("METIN2", "")
            WinMove("METIN2", "", 0, 0)
            While 1
                if IsArray($ps) = True Then
                MsgBox(0,"","")
                EndIf
            WEnd
EndSwitch
WEnd 


was mache ich blos falsch?

farbe ist 101% right.

danke schon mal!

[cheaterundhacker]

#include <GUIConstants.au3>

#RequireAdmin

$ps = PixelSearch(12,31,794,578,0xFBF8FC)

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 291, 162, 474, 130)
$Button1 = GUICtrlCreateButton("Start", 24, 24, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
WinActivate("METIN2", "")
WinMove("METIN2", "", 0, 0)
While 1
if IsArray($ps) = True Then
MsgBox(0,"","")
EndIf
WEnd
EndSwitch
WEnd

Vielleicht machste daraus mal:

#include <GUIConstants.au3>

#RequireAdmin

$ps = PixelSearch(12,31,794,578,0xFBF8FC)

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 291, 162, 474, 130)
$Button1 = GUICtrlCreateButton("Start", 24, 24, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
WinActivate("METIN2", "")
WinMove("METIN2", "", 0, 0)
While 1
if IsArray($ps) = True Then
Send(" ",0)
EndIf
WEnd
EndSwitch
WEnd

Dann sendet der "Leertaste" zum einziehen der Angel

[omer36]

dir ist shcon kla, dass das hier ein knappes halbes jahr alt ist, ja?!