WEnd fehler ? O.o

06/20/2010 18:08 _sh0x#1
Hi ich hab ein Bot gemacht nur er zeigt mir immer ein WEnd fehler an hier der genaue fehler:

Code:
>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\Dawid\Pulpit\Seeli Reader.au3"    
C:\Documents and Settings\Dawid\Pulpit\Seeli Reader.au3 (24) : ==> "Wend" statement with no matching "While" statement.:
WEnd

>Exit code: 1    Time: 0.214
Und dann noch mein Script:

Code:
HotKeySet ( "{F1}" , "Start" )
HotKeySet ( "{F2}" , "Terminate" )


$Seeli = PixelSearch ( 1274,514,1431,810,0xF5F269 )


Func Start()
	
	
	While 1
		
		WinWaitActive ( "Metin2 United" )
		send ( "!1" )
		send ( "!2" )
		if isArray($Seeli) = True Then
		Mousemove($Seeli[0], $Seeli[1], 1)
		MouseClick ( "left" ,"","",1,1 )
		MouseClick ( "left" ,721,397,1,1 )
		MouseClick ( "left" ,722,388,1,1 )
		MouseClick ( "left" ,726,450,1,1 )
		MouseClick ( "left" ,722,431,1,1 )
		
	WEnd
EndFunc


Func Terminate()
	Exit
EndFunc
Ich hoffe das ihr mir helfen könnt danke!
06/20/2010 18:12 omer36#2
PHP Code:
HotKeySet ("{F1}" , "Start")
HotKeySet ("{F2}" , "Terminate")


$Seeli = PixelSearch ( 1274,514,1431,810,0xF5F269 )


Func Start()
    While 1
        WinWaitActive ( "Metin2 United" )
        send ( "!1" )
        send ( "!2" )
        if isArray($Seeli) = True Then
        Mousemove($Seeli[0], $Seeli[1], 1)
        MouseClick ( "left" ,"","",1,1 )
        MouseClick ( "left" ,721,397,1,1 )
        MouseClick ( "left" ,722,388,1,1 )
        MouseClick ( "left" ,726,450,1,1 )
        MouseClick ( "left" ,722,431,1,1 )
    EndIf
    WEnd
EndFunc



Func Terminate()
    Exit
EndFunc 
06/20/2010 18:16 _sh0x#3
Ahhh bin ich dumm danke!
06/20/2010 18:18 omer36#4
:D np
06/22/2010 14:53 bladerofdarknes#5
ich weiß es war net gefragt aber willst du das ganze nicht lieber universal nehmen, sprich das es für jeden (privat) server funktioniert?
wäre relativ simpel!

Quote:
#Include <SendMessage.au3>
HotKeySet ("{F1}" , "Start")
HotKeySet ("{F2}" , "Terminate")

IniWrite("seeli.ini", "window", "name", "METIN2")
sleep(100)
$read1=IniRead("seeli.ini","window","name","")
$input1=InputBox("Prozess","Gebe hier den Namen deines Metin2 Fensters an, groß klein Schreibung beachten!",$read1)
IniWrite("seeli.ini","window","name",$input1)
$window = FileRead("bot.ini")

$Seeli = PixelSearch ( 1274,514,1431,810,0xF5F269 )


Func Start()
While 1
WinWaitActive ( "$window" )
send ( "!1" )
send ( "!2" )
if isArray($Seeli) = True Then
Mousemove($Seeli[0], $Seeli[1], 1)
MouseClick ( "left" ,"","",1,1 )
MouseClick ( "left" ,721,397,1,1 )
MouseClick ( "left" ,722,388,1,1 )
MouseClick ( "left" ,726,450,1,1 )
MouseClick ( "left" ,722,431,1,1 )
EndIf
WEnd
EndFunc



Func Terminate()
Exit
EndFunc

while 2
sleep(10000)
WEnd
nur ein verbesserungsvorschlag ;)