(Kleiner Bot) Checkbox Problem.

Speedlink

Servus Leute,
Ich bin neu hier und hoffe mir kann geholfen werden

Nach langer zeit beschäftige ich mich mal wieder mit Autoit.
Und zwar habe ich folgende Frage/Problem.

Ich arbeite derzeit mit imagesearch an einem Bot für stronghold Kindoms
(Farmbot)

Das funktioniert auch soweit aber eben nur mit Obst.
Jetzt habe ich mir eine kleine gui geschrieben und wollte dies nun so regeln.
Das ich aussuchen kann was ich Farmen möchte.

Sprich ist Checkbox 1 Obst ausgewählt und ich drücke start farmt er Apfel.
Ist Checkbox 2 ausgewählt Holz etc...

Nun weiß ich aber nich wie ich das ganze so richtig realisieren soll.
Sprich ich benötige ein Denkanstoß.

EDIT BugFix: CLOSED -- Bot!!

C

#include <ImageSearch.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


$Form1 = GUICreate("Form1", 625, 443, 204, 174)
$Group1 = GUICtrlCreateGroup("FarmBot", 16, 8, 289, 425)
$Pic1 = GUICtrlCreatePic("C:ImageSearch.au3 + SourceCode\apple.jpg", 32, 32, 41, 41, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Checkbox1 = GUICtrlCreateCheckbox("Apfel Bot", 88, 40, 65, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("TradeBot", 312, 8, 297, 361)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Pause Bot", 480, 384, 129, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Start Bot", 312, 384, 129, 41, $WS_GROUP)
GUISetState(@SW_SHOW)




While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


EndSwitch
WEnd
$x = 0
$y = 0


$xd = @DesktopHeight
$yd = @DesktopWidth


;MsgBox(0,"", $xd & "@" & $yd)


HotKeySet("{ESC}", "Close")
HotKeySet("{F1}", "Start")
HotKeySet("{F2}", "Pause")
_Startup()




Func _Startup()
   ToolTip("Startup",0,0)
   While 1
	  Sleep(100)
	  WEnd
   EndFunc


Func Close()
   Exit
EndFunc


Func Pause()
   ToolTip("Pause",0,0)
   While 1
	  Sleep(100)
	  WEnd
   EndFunc


   Func Start()
	   ToolTip("",0,0)
	   While 1
		  $pos = MouseGetPos()
		  $IS = _ImageSearch("Start.png",1,$x,$y,50)
		  If $IS = 1 Then
			 MouseClick("left",$x,$y,5,20)
			 MouseMove($pos [0], $pos [1], 20)
			 Adlibregister ("Start", 300000)
			 IMR()
			 EndIf
			 WEnd
		  EndFunc


		  Func IMR()
			 While 1
			 $pos = MouseGetPos()
			   $IMR = _ImageSearch("IMR.png",1,$x,$y,50)
			   If $IMR = 1 Then
			   MouseClick("left",$x,$y,5,20)
			   MouseMove($pos [0], $pos [1], 20)
			   Else
				  Sleep(100)
				  BOX()
			   EndIf
			   WEnd
			EndFunc


			Func BOX()
			 While 1
			 $pos = MouseGetPos()
			 $BOX = _ImageSearch("BB.png",1,$x,$y,50)
			   If $BOX = 1 Then
			   MouseClick("left",$x,$y,5,20)
			   MouseMove($pos [0], $pos [1], 20)
			   Else
				  Sleep(100)
			   EndIf
			   WEnd
			EndFunc

Alles anzeigen