Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$IE = _IECreateEmbedded ()
$Breite = @DesktopWidth
$Hoehe = @DesktopHeight
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MyFreeFarm - Bot", $Breite, $Hoehe, 0, 0)
$browser = GUICtrlCreateObj ($IE, 16, 48, 1009, 897)
$Label1 = GUICtrlCreateLabel("MyFreeFarm Seeder,-Gießer,-Ernte Bot", 392, 16, 372, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Anleitung:", 1104, 72, 61, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Seeder - Bot:", 1048, 96, 79, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Auf die Pflanze klicken - ", 1056, 120, 121, 17)
$Label5 = GUICtrlCreateLabel("die du anbauen willst - ", 1056, 136, 112, 17)
$Label6 = GUICtrlCreateLabel("und auf Go! klicken - ", 1056, 152, 106, 17)
$Label7 = GUICtrlCreateLabel("er setzt die pflanze jetzt an!", 1056, 168, 132, 17)
$Label8 = GUICtrlCreateLabel("Gießer - Bot:", 1050, 203, 76, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("Auf das Feld mit der Gießkanne klicken", 1056, 224, 189, 17)
$Label10 = GUICtrlCreateLabel("dann auf Go! klicken", 1056, 240, 103, 17)
$Label11 = GUICtrlCreateLabel("er gießt jetzt die Pflanzen !", 1056, 256, 128, 17)
$Label12 = GUICtrlCreateLabel("Ernte - Bot:", 1052, 290, 69, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label13 = GUICtrlCreateLabel("Auf das Feld mit der Sense klicken", 1056, 312, 167, 17)
$Label14 = GUICtrlCreateLabel("dann auf Go! klicken", 1056, 328, 103, 17)
$Label15 = GUICtrlCreateLabel("er erntet jetzt die Pflanzen!", 1056, 344, 129, 17)
$txtGo = GUICtrlCreateButton("Go!", 1088, 568, 97, 33, 0)
$Label16 = GUICtrlCreateLabel("gemacht von Stjubit with AutoIt!", 1080, 928, 154, 17)
$Label17 = GUICtrlCreateLabel("Bei Fragen, Verbesserungen oder anderes", 1032, 888, 203, 17)
$Label18 = GUICtrlCreateLabel("E-Mail an [email][Only registered and activated users can see links. Click Here To Register...][/email]", 1032, 904, 184, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate ($IE, "http://www.myfreefarm.de/login.php?start=1******&wid=")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $txtGo
MouseClick("left" , 495, 436, 1)
MouseClick("left" , 531, 433, 1)
MouseClick("left" , 582, 434, 1)
MouseClick("left" , 618, 437, 1)
MouseClick("left" , 657, 430, 1)
MouseClick("left" , 694, 431, 1)
MouseClick("left" , 736, 436, 1)
MouseClick("left" , 736, 472, 1)
MouseClick("left" , 694, 467, 1)
MouseClick("left" , 660, 468, 1)
MouseClick("left" , 618, 472, 1)
MouseClick("left" , 581, 475, 1)
MouseClick("left" , 538, 472, 1)
MouseClick("left" , 497, 472, 1)
MouseClick("left" , 495, 510, 1)
MouseClick("left" , 537, 514, 1)
MouseClick("left" , 579, 516, 1)
MouseClick("left" , 620, 513, 1)
MouseClick("left" , 656, 509, 1)
MouseClick("left" , 703, 511, 1)
MouseClick("left" , 734, 512, 1)
MouseClick("left" , 739, 552, 1)
MouseClick("left" , 699, 552, 1)
MouseClick("left" , 653, 552, 1)
MouseClick("left" , 615, 555, 1)
MouseClick("left" , 539, 550, 1)
MouseClick("left" , 579, 556, 1)
MouseClick("left" , 499, 555, 1)
MouseClick("left" , 499, 590, 1)
MouseClick("left" , 541, 593, 1)
MouseClick("left" , 577, 592, 1)
MouseClick("left" , 619, 591, 1)
MouseClick("left" , 662, 589, 1)
MouseClick("left" , 695, 591, 1)
MouseClick("left" , 739, 594, 1)
MouseClick("left" , 738, 637, 1)
MouseClick("left" , 695, 632, 1)
MouseClick("left" , 658, 635, 1)
MouseClick("left" , 612, 637, 1)
MouseClick("left" , 566, 634, 1)
MouseClick("left" , 531, 630, 1)
MouseClick("left" , 500, 629, 1)
EndSwitch
WEnd