Code:
#AutoIt3Wrapper_UseX64=n
#RequireAdmin
#include <ImageSearch.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Hotkeyset("{UP}", "Start")
Hotkeyset("{DOWN}", "Ende")
FileInstall('C:\Vinci HD Backup\Desktop Backup 14.03.2014\Prof. Linebecks Level & Farmbot NEW\bot3.jpg', @ScriptDir & 'bot3.jpg')
$GUI_Main = GUICreate("Bot", 269, 413, 400, 100, $WS_POPUPWINDOW, BitOR($WS_EX_TOPMOST,$WS_EX_CONTROLPARENT))
GUICtrlSetState(-1,$GUI_DISABLE)
$Pic = GUICtrlCreatePic(@ScriptDir & "bot3.jpg", 0, 0, 269, 413)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()
$X = 0
$Y = 0
$input1 = GUICtrlCreateInput(IniRead("config.ini", "Einstellungen", "Koordinaten 1", ""), 30, 152, 50, 15)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$text1 = GUICtrlCreateLabel(":", 30, 130, 60, 20)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$input2 = GUICtrlCreateInput(IniRead("config.ini", "Einstellungen", "Koordinaten 2", ""), 150, 152, 50, 15)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$text2 = GUICtrlCreateLabel("", 150, 130, 60, 20)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$input3 = GUICtrlCreateInput(IniRead("config.ini", "Einstellungen", "Koordinaten 3", ""), 30, 202, 50, 15)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$text3 = GUICtrlCreateLabel("", 30, 180, 60, 20)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$input4 = GUICtrlCreateInput(IniRead("config.ini", "Einstellungen", "Koordinaten 4", ""), 150, 202, 50, 15)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$text4 = GUICtrlCreateLabel("", 150, 180, 60, 20)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$start = GUICtrlCreateLabel("START", 30, 375, 72, 20);Start
$infotool = GUICtrlCreateLabel("TOOL", 230, 25, 30, 30)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Global $funcs = false
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $infotool
Infotool ()
Case $start
Start ()
EndSwitch
if $funcs = True then;wenn start gedrückt wird
$Search = _ImageSearch("item.bmp", 0, $X, $Y, 0);bild wird gesucht
If $Search = 1 Then;wenn bild gefunden, dann ...
MouseMove($X, $Y,10);.. maus aufs bild bewegen und ...
Sleep(500)
MouseDown("left");.. linke maus taste gedrückt halten
Sleep(500)
MouseMove(GUICtrlRead($input1), GUICtrlRead($input2),10);Item zur leeren Stelle ziehen
Sleep(500)
MouseUp("left");linke maustaste loslassen
Sleep(500)
MouseMove(GUICtrlRead($input3), GUICtrlRead($input4),10);löschen bestätigen
MouseClick("left")
MouseClick("left")
MouseClick("left")
MouseClick("left")
Sleep(500)
EndIf
EndIf
WEnd
Func Start()
$funcs = True
EndFunc
Func Ende()
IniWrite("config.ini", "Einstellungen", "Koordinaten 1", GUICtrlRead($input1))
IniWrite("config.ini", "Einstellungen", "Koordinaten 2", GUICtrlRead($input2))
IniWrite("config.ini", "Einstellungen", "Koordinaten 3", GUICtrlRead($input3))
IniWrite("config.ini", "Einstellungen", "Koordinaten 4", GUICtrlRead($input4))
Exit
EndFunc
Func Infotool ()
run( @ScriptDir & "/Au3Info_x64.exe" )
EndFunc
