#include <ImageSearch2015.au3>
HotKeySet("{+}", "starten")
HotKeySet("{-}", "pause")
HotKeySet("{#}", "quit")
HotKeySet("{.}", "koord")
global $y = 0, $x = 0
ToolTip( "Start: +" &@CRLF& "Pause: -" &@CRLF& "Ende: #" &@CRLF& "Koordinaten anzeigen: .", 0, 0)
While 1
Sleep(100)
WEnd
Func koord()
While 2
Sleep (50)
$arr1 = mousegetpos()
ToolTip( "Start: +" &@CRLF& "Pause: -" &@CRLF& "Ende: #" &@CRLF& "Koordinaten anzeigen: ." &@CRLF& "Koordinaten:" & $arr1[0]&", "&$arr1[1], 0, 0)
WEnd
EndFunc
Func starten()
While 3
local $search = _ImageSearchArea('links.bmp', 1, 568, 86, 588, 108, $x, $y, 0) ; links
If $search = 1 Then
MouseClick( "left", 929, 647,1,10)
Sleep ( 4200)
$search = 0
EndIf
local $search = _ImageSearchArea('rechts.bmp', 1, 568, 86, 588, 108, $x, $y, 0) ; rechts
If $search = 1 Then
MouseClick( "left", 968, 647,1,10)
Sleep ( 4200)
$search = 0
EndIf
local $search = _ImageSearchArea('nach.bmp', 1,568, 86, 588, 108, $x, $y, 0) ; nachgeben
If $search = 1 Then
MouseClick( "left", 1002,647,1,10)
Sleep ( 4200)
$search = 0
EndIf
local $search = _ImageSearchArea('ein.bmp', 1, 568, 86, 588, 108, $x, $y, 0) ; einholen
If $search = 1 Then
MouseClick( "left", 860, 682,1,10)
Sleep ( 4200)
$search = 0
EndIf
local $search = _ImageSearchArea('gein.bmp', 1, 568, 86, 588, 108, $x, $y, 0) ; groß einholen
If $search = 1 Then
MouseClick( "left", 895, 682,1,10)
Sleep ( 4200)
$search = 0
EndIf
WEnd
EndFunc
Func pause()
While True
Sleep(1)
WEnd
Endfunc
Func quit()
Exit
EndFunc
|