AutoIt problem^^

Ecnelis · 02/13/2009, 14:40

Quote:

Originally Posted by fieser-hund

alter, du hast die ganzen includes vergessen?
#include <ButtonContants.au3>
usw. und du hast _start () nicht deklariert
und sei du mal ruhig vertical, ok?

Sei DU mal schön ruhig. Erst flamen und als ob das nicht genug wäre, auch noch an das Elitepvpers-Team. Es gibt einen gewaltigen Unterschied zwischen Kritik und Geflame. Niemand zwingt dich hier zu bleiben, wenn du das Team nicht magst bzw. nicht höflich zu ihnen sein willst/kannst.

B2T
@c_gebing
Wenn du willst mach ich dir ein Zip-Archiv mit den Vorlesungunterlagen zu einer Programmierung-Vorlesung. ^^ Es ist nicht allzu schwer und sehr interessant. Musst ja auch nicht alles machen.

Computerfreek · 02/13/2009, 18:48

Au Backe...
Hab nu auch mal nen Blick über den Code geworfen und bin zu der gleichen Ansicht wie Vertical gekommen,...
Das meiste an Fehlern sind Flüchtigkeitsfehlern die einem - wenn man sowas schon coden kann - nichtmehr passieren sollten.
Und falls doch - Tidy hilft da eig immer... (oder sehr oft)

Ganz im übrigen gibts es da einige andere Funktionen die das ganze extrem erleichtern...
(Werd keine Namen nennen, da Banjo sonst gleich widda losschreit (nix gegen dich)

)

€dit:
Ich bin mal noch so nett und poste dir den richtigen Code (hoffe hab nix übersehen)
Für das ganze habe ich ganz genau 9 Minuten gebraucht!

PHP Code:


			
#cs ----------------------------------------------------------------------------

    

    AutoIt Version: 3.3.0.0

    Author:         myName

    

    Script Function:

    Template AutoIt script.

    

#ce ----------------------------------------------------------------------------



; Script Start - Add your code below here



#include <GUIConstants.au3>



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

$Form1 = GUICreate("Fischöffner", 633, 451, 199, 142)

$Label1 = GUICtrlCreateLabel("Fischöffner Von Christian", 8, 16, 613, 79)

GUICtrlSetFont(-1, 45, 400, 0, "A Charming Font Superexpanded")

$Button1 = GUICtrlCreateButton("Start", 112, 112, 433, 209, 0)

GUICtrlSetFont(-1, 100, 400, 0, "A Charming Font Superexpanded")

GUICtrlSetColor(-1, 0x3169B6)

$Label2 = GUICtrlCreateLabel("Wenn ihr auf Star drückt startet der Bot in 45 min. dann wartet der Bot wieder 45 und öffnet wieder alle Fisch. ", 16, 424, 595, 19)

GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")

GUICtrlSetBkColor(-1, 0x00FFFF)

$Label3 = GUICtrlCreateLabel("Er öffnet Manderienfische, Zander, Karpfen, Bachforrellen, Lachse und sonst nichts !", 0, 328, 625, 39)

GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")

GUICtrlSetBkColor(-1, 0xFFFF00)

GUISetState(@SW_SHOW)

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





#include <GUIConstants.au3>



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

$Form1 = GUICreate("Fischöffner", 633, 451, 199, 142)

$Label1 = GUICtrlCreateLabel("Fischöffner Von Christian", 8, 16, 613, 79)

GUICtrlSetFont(-1, 45, 400, 0, "A Charming Font Superexpanded")

$Button1 = GUICtrlCreateButton("Start", 112, 112, 433, 209, 0)

GUICtrlSetFont(-1, 100, 400, 0, "A Charming Font Superexpanded")

GUICtrlSetColor(-1, 0x3169B6)

$Label2 = GUICtrlCreateLabel("Wenn ihr auf Star drückt startet der Bot in 45 min. dann wartet der Bot wieder 45 und öffnet wieder alle Fisch. ", 16, 424, 595, 19)

GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")

GUICtrlSetBkColor(-1, 0x00FFFF)

$Label3 = GUICtrlCreateLabel("Er öffnet Manderienfische, Zander, Karpfen, Bachforrellen, Lachse und sonst nichts !", 0, 328, 625, 39)

GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")

GUICtrlSetBkColor(-1, 0xFFFF00)

GUISetState(@SW_SHOW)

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



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Button1

            _start()

    EndSwitch

WEnd



While 1

    Sleep(5000)

WEnd





Func _start()

    While (1)

        Send("{numpad5}")

        Global $bachforelle = PixelSearch(635, 240, 795, 556, 0x6B5931)

        If Not @error Then

            MouseMove($bachforelle[0], $bachforelle[1], 1)

            Sleep(500)

            MouseClick("Right")



            Global $Mandarinenfisch = PixelSearch(635, 240, 795, 556, 0x635129)

            If Not @error Then

                MouseMove($Mandarinenfisch[0], $Mandarinenfisch[1], 1)

                Sleep(500)

                MouseClick("Right")



                Global $Zander = PixelSearch(635, 240, 795, 556, 0xFFFFBD)

                If Not @error Then

                    MouseMove($Zander[0], $Zander[1], 1)

                    Sleep(500)

                    MouseClick("Right")



                    Global $kleinerfisch = PixelSearch(635, 240, 795, 556, 0x424929)

                    If Not @error Then

                        MouseMove($kleinerfisch[0], $kleinerfisch[1], 1)

                        Sleep(500)

                        MouseClick("left")

                        Sleep(200)

                        MouseMove(365, 347)

                        Sleep(200)

                        MouseClick("left")

                        Sleep(200)

                        MouseMove(360, 320)

                        Sleep(200)

                        MouseClick("left")

                    EndIf

                    Sleep(5000)

                EndIf

            EndIf

        EndIf

    WEnd

EndFunc   



Func ende()

    Exit

EndFunc

P.S.
Ich habe nur das Script "zu laufen gebracht".
Du hast es gescriptet, ich nur verbessert.
Den Fenstertitel hab ich übrigends auch abgeändert - Form1 ist hässlich

Ob das Teil nun so funktioniert wie es soll (laufen tuts jedenfalls) musst du wissen.

c_gebing · 02/13/2009, 19:04

und woher bekomme ich dieses tidy her ?

c_gebing · 02/13/2009, 19:04

und woher bekomme ich dieses tidy her ?

Computerfreek · 02/13/2009, 19:07

1. Hast du (vilt ausversehen) nen Doppelpost gemacht.
2. Schau mal da vorbei:

mfG

€dit:
Mal noch ne Frage:
Warum in Dreiteufels Namen hast du da 2 Koda-Abschnitte mit exakt demselben Inhalt?!
Ganz im übrigen glaube ich auch nicht, dass der Bot so laufen wird wie du das möchtest...
Dazu sind einfach noch ein paar logische Fehler drinne glaube ich,...

verT!c4L · 02/13/2009, 19:08

Das funktioniert so nicht, wie es gewünscht ist, kann das ? :P
Sry wenn meine Kritik für manch einen zu schroff rüber kommt.
Und sag mir mal bitte einer, warum sich die ersten Zeilen
wiederholen und ob das so sein muss? ^^

Computerfreek · 02/13/2009, 19:13

Hab ich auch schon so bei mir reineditiert.
Noch dazu, was zum Geier soll

PHP Code:


			
Send("{numpad5}")

direkt am beginn der While?!
Das ist doch schwachsinn meiner Meinung nach!

€dit:

Hier habe ich dir mal den, meiner Meinung nach, auch ohne Logischen fehlern enthaltenden Code (Ob du die Pixel etc. richtig eingetragen hast musst du wissen)...

PHP Code:


			
#cs ----------------------------------------------------------------------------
    
    AutoIt Version: 3.3.0.0
    Author:         c_gebing aka Christian (Verbessert by Computerfreek© - EPvP)
    
    Script Function:
    Das Script ist ein einfacher Fischöffner für das Online-MMORPG Metin2.
    
#ce ----------------------------------------------------------------------------

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Fischöffner", 733, 451, 199, 142)
$Label1 = GUICtrlCreateLabel("Fischöffner Von Christian", 8, 16, 1200, 79)
GUICtrlSetFont(-1, 45, 400, 0, "A Charming Font Superexpanded")
$Button1 = GUICtrlCreateButton("Start", 112, 112, 433, 209, 0)
GUICtrlSetFont(-1, 100, 400, 0, "A Charming Font Superexpanded")
GUICtrlSetColor(-1, 0x3169B6)
$Label2 = GUICtrlCreateLabel("Wenn ihr auf Star drückt startet der Bot in 45 min. dann wartet der Bot wieder 45 und öffnet wieder alle Fisch. ", 16, 424, 595, 19)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FFFF)
$Label3 = GUICtrlCreateLabel("Er öffnet Manderienfische, Zander, Karpfen, Bachforrellen, Lachse und sonst nichts !", 0, 328, 625, 39)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFFFF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _start()
    EndSwitch
WEnd

Func _start()
    While (1)
        Global $bachforelle = PixelSearch(635, 240, 795, 556, 0x6B5931)
        If Not @error Then
            MouseMove($bachforelle[0], $bachforelle[1], 1)
            Sleep(500)
            MouseClick("Right")

            Global $Mandarinenfisch = PixelSearch(635, 240, 795, 556, 0x635129)
            If Not @error Then
                MouseMove($Mandarinenfisch[0], $Mandarinenfisch[1], 1)
                Sleep(500)
                MouseClick("Right")

                Global $Zander = PixelSearch(635, 240, 795, 556, 0xFFFFBD)
                If Not @error Then
                    MouseMove($Zander[0], $Zander[1], 1)
                    Sleep(500)
                    MouseClick("Right")

                    Global $kleinerfisch = PixelSearch(635, 240, 795, 556, 0x424929)
                    If Not @error Then
                        MouseMove($kleinerfisch[0], $kleinerfisch[1], 1)
                        Sleep(500)
                        MouseClick("left")
                        Sleep(200)
                        MouseMove(365, 347)
                        Sleep(200)
                        MouseClick("left")
                        Sleep(200)
                        MouseMove(360, 320)
                        Sleep(200)
                        MouseClick("left")
                    EndIf
                    Sleep(5000)
                EndIf
            EndIf
        EndIf
    WEnd
EndFunc   

Func ende()
    Exit
EndFunc

P.S.
Hab das Fenster doch einfach bissl Größer gemacht - so siehste auch die ganze Schrift.

verT!c4L · 02/13/2009, 19:32

Quote:

Originally Posted by Computerfreek

PHP Code:

While 1 Sleep(5000) WEnd

Wofür soll das gut sein? o.O
Die GUI reagiert so schnell wie ein totes Pferd, nachdem man Start drückt, warum ? :P
Sleep(5000) ist auch etwas überdimensioniert... andere Strategie vlt?

Computerfreek · 02/13/2009, 19:34

Hupsala, sorry übersehen xD
Dachte hab das verbessert, hatte da aber den richtigen Code noch nicht in der Zwischenablage xD

€dit:
So, hab die While nu verbessert (bzw einfach entfernt).
Die Reaktionszeit sollte nun so auf ein Minimum reduziert worden sein.
Hoffe, dass du nun nicht (oder kaum noch was) dran auszusetzten hast ;D

€dit2:
Habe deinen Edit nu auch erst gelesen.
Denke die andere Strategie ist sie, wie ich nun, einfach wegzulassen.
Oder man dreht die Sleep auf 200 statt 5000 ms herunter...

c_gebing · 02/13/2009, 19:48

dankeschön

Computerfreek · 02/13/2009, 19:54

Der klick aufs Thanks alleine hätts auch getan

Aber da du dich auchnoch so bedankt hast:
Kein Problem!

Nächstes mal versuch diene Arbeit gewissenhafter zu erledigen, dass dir solche Kleinigkeiten nicht wieder passieren.

€dit:

Ich denke mal, dass sich dashier dann auch erledigt hat.

Deshalb bin ich an dieser Stelle für ein
#close.

c_gebing · 02/20/2009, 17:26

woher bekomme ich dieses Tidy?

Computerfreek · 02/20/2009, 19:47

Lad dir folgendes runter und installier es:

Damit wird dein Script-Editor erweitert.
Du kannst dann im Editor Tidy über das Menü Tools in der oberen Leiste starten.

c_gebing · 02/21/2009, 23:02

thx