AutoIt problem^^

Page 2 of 2 1 2
02/13/2009 14:40 Ecnelis#16
Quote:
Originally Posted by fieser-hund View Post
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. :p
02/13/2009 18:48 Computerfreek#17
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) :D)


€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 :D
Ob das Teil nun so funktioniert wie es soll (laufen tuts jedenfalls) musst du wissen.
02/13/2009 19:04 c_gebing#18
und woher bekomme ich dieses tidy her ?
02/13/2009 19:04 c_gebing#19
und woher bekomme ich dieses tidy her ?
02/13/2009 19:07 Computerfreek#20
1. Hast du (vilt ausversehen) nen Doppelpost gemacht.
2. Schau mal da vorbei: [Only registered and activated users can see links. Click Here To Register...]

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,...
02/13/2009 19:08 verT!c4L#21
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? ^^
02/13/2009 19:13 Computerfreek#22
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.
02/13/2009 19:32 verT!c4L#23
Quote:
Originally Posted by Computerfreek View Post
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? ;)
02/13/2009 19:34 Computerfreek#24
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...
02/13/2009 19:48 c_gebing#25
dankeschön
02/13/2009 19:54 Computerfreek#26
Der klick aufs Thanks alleine hätts auch getan :D
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.
02/20/2009 17:26 c_gebing#27
woher bekomme ich dieses Tidy?
02/20/2009 19:47 Computerfreek#28
Lad dir folgendes runter und installier es:
[Only registered and activated users can see links. Click Here To Register...]

Damit wird dein Script-Editor erweitert.
Du kannst dann im Editor Tidy über das Menü Tools in der oberen Leiste starten.
02/21/2009 23:02 c_gebing#29
thx
Page 2 of 2 1 2