Fram Bot

06/21/2016 19:00 evlior#1
Hey ich will ein Auto It Script schreiben.

Wie bekomme ich es hin das die Befehle im Metin 2 fenster Ausgeführt werden?

#include <String.au3>
#include <Array.au3>
#include <Timers.au3>





HotKeySet("{F9}", "Start")
HotKeySet("{F10}", "Pause")
HotKeySet("{F11}", "Close")


Func Startup()
ToolTip("F9 Start, F10 Pause, F11 Exit",0,0)
While 1
Sleep(100)
WEnd
EndFunc

Func Close()
Exit
EndFunc

Func Pause()
ToolTip("Pause || Tools: F9 Start, F10 Pause, F11 Exit",0,0)
MouseUp("left")
While 1
Sleep(1000)
WEnd
EndFunc

Startup()

Func Start()
ToolTip("Running!",0,0)


While 1
;ControlSend("{SPACE down}")
;Sleep(100)
;ControlSend("{SPACE up}")
;Sleep(100)

framen()
WEnd

EndFunc



Func framen()
ToolTip("Framen!",0,0)
WinGetHandle("[ACTIVE]")
Sleep(5000)
ToolTip("Frosch klick!",0,0)
$search = PixelSearch(0, 0, @[Only registered and activated users can see links. Click Here To Register...]Width @[Only registered and activated users can see links. Click Here To Register...]Height, 0xCE1308)
If IsArray($search) Then
MouseClick( "left", $search[0], $search[1])
Opt("SendKeyDownDelay",60000)
ControlSend("{SPACE down}")
EndIf
Sleep(60000)

ToolTip("Muschel öfnen!",0,0)
$search = PixelSearch(0, 0, @[Only registered and activated users can see links. Click Here To Register...]Width @[Only registered and activated users can see links. Click Here To Register...]Height, 0xCEC4BB)
If IsArray($search) Then
MouseMove($search[0], $search[1], 1)
MouseClick("right")
EndIf

Sleep(5000)


EndFunc



Func Send_Space()
Send("{SPACE down}")
EndFunc
06/23/2016 08:07 andii#2
Einmal posten reicht... [Only registered and activated users can see links. Click Here To Register...]
06/23/2016 08:58 Jinbei#3
^
#closed