Eine Funktion, die mit einem Button ausgeführt wurde, mit einem Abbrechen-Button abbrechen

[autoit]

#include <FF.au3>
#include <FFEx.au3>

[/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=C:\Users\Linus\Desktop\Stämme.kxf
$Form1 = GUICreate("Stämme", 438, 572, 776, 395, -1, $WS_EX_TOPMOST)

[/autoit] [autoit][/autoit] [autoit]

GUISetFont (8.5)
$Group1 = GUICtrlCreateGroup("Eingabe", 8, 8, 425, 73)
;$Button1 = GUICtrlCreateButton("Initialisieren", 24, 32, 81, 33, 0)
;$Button2 = GUICtrlCreateButton("Stamm-URL lesen", 112, 32, 105, 33, 0)
;$Button3 = GUICtrlCreateButton("Code setzen", 224, 32, 97, 33, 0)
;$Button4 = GUICtrlCreateButton("Dorf hinzufügen", 328, 32, 89, 33, 0)
$Button1 = GUICtrlCreateButton("Initialisieren", 16, 32, 73, 33, 0)
$Button2 = GUICtrlCreateButton("Stamm-URL", 96, 32, 73, 33, 0)
$Button3 = GUICtrlCreateButton("Code", 176, 32, 73, 33, 0)
$Button4 = GUICtrlCreateButton("Dorf hinzufügen", 256, 32, 89, 33, 0)
$Button36 = GUICtrlCreateButton("Speed", 352, 32, 73, 33, 0)

[/autoit] [autoit][/autoit] [autoit]

$Group2 = GUICtrlCreateGroup("Steuerung", 8, 88, 425, 145)
$Button5 = GUICtrlCreateButton("<<<<", 144, 104, 41, 25, 0)

[/autoit] [autoit][/autoit] [autoit]

GUISetFont (12)
$Label1 = GUICtrlCreateLabel("", 210, 107, 36, 28)
GUISetFont (8.5)

[/autoit] [autoit][/autoit] [autoit]

$Button6 = GUICtrlCreateButton(">>>>", 256, 104, 41, 25, 0)
$Button7 = GUICtrlCreateButton("Hauptgebäude", 16, 144, 97, 33, 0)
$Button8 = GUICtrlCreateButton("Kaserne", 120, 144, 97, 33, 0)
$Button9 = GUICtrlCreateButton("Stall", 224, 144, 97, 33, 0)
$Button10 = GUICtrlCreateButton("Werkstatt", 328, 144, 97, 33, 0)
$Button11 = GUICtrlCreateButton("Schmiede", 16, 184, 97, 33, 0)
$Button12 = GUICtrlCreateButton("Adelshof", 120, 184, 97, 33, 0)
$Button13 = GUICtrlCreateButton("Versammlungsplatz", 224, 184, 97, 33, 0)
$Button14 = GUICtrlCreateButton("Marktplatz", 328, 184, 97, 33, 0)

[/autoit] [autoit][/autoit] [autoit]

$Group3 = GUICtrlCreateGroup("Bot", 8, 240, 425, 145)
$Button15 = GUICtrlCreateButton("Hauptgebäude", 21, 256, 97, 17, 0)
$Button16 = GUICtrlCreateButton("Kaserne", 21, 272, 97, 17, 0)
$Button17 = GUICtrlCreateButton("Stall", 21, 288, 97, 17, 0)
$Button18 = GUICtrlCreateButton("Werkstatt", 21, 304, 97, 17, 0)
$Button19 = GUICtrlCreateButton("Schmiede", 21, 320, 97, 17, 0)
$Button20 = GUICtrlCreateButton("Adelshof", 21, 336, 97, 17, 0)
$Button21 = GUICtrlCreateButton("Marktplatz", 21, 352, 97, 17, 0)
$Button22 = GUICtrlCreateButton("Holzfäller", 125, 256, 97, 17, 0)
$Button23 = GUICtrlCreateButton("Lehmgrube", 125, 271, 97, 17, 0)
$Button24 = GUICtrlCreateButton("Eisenmine", 125, 288, 97, 17, 0)
$Button25 = GUICtrlCreateButton("Bauernhof", 125, 304, 97, 17, 0)
$Button26 = GUICtrlCreateButton("Speicher", 125, 320, 97, 17, 0)
$Button27 = GUICtrlCreateButton("Versteck", 125, 336, 97, 17, 0)
$Button28 = GUICtrlCreateButton("Wall", 125, 352, 97, 17, 0)
$List1 = GUICtrlCreateList("", 232, 256, 97, 110)
;$Button29 = GUICtrlCreateButton("letztes löschen", 336, 256, 89, 41, 0)
;$Button30 = GUICtrlCreateButton("Los", 336, 304, 89, 65, 0)
$Button29 = GUICtrlCreateButton("letztes löschen", 336, 256, 89, 25, 0)
$Button30 = GUICtrlCreateButton("Los", 336, 328, 89, 41, 0)
$Button37 = GUICtrlCreateButton("abbrechen", 336, 288, 89, 33, 0)
GUICtrlSetOnEvent(-1, "abbrechen")

[/autoit] [autoit][/autoit] [autoit]

$Group4 = GUICtrlCreateGroup("Nützliches", 8, 392, 425, 137)
$Button31 = GUICtrlCreateButton("Timen", 24, 416, 81, 41, 0)
$Button32 = GUICtrlCreateButton("4 pro sekunde", 112, 416, 83, 41, 0)
$Button33 = GUICtrlCreateButton("Off einfügen", 24, 472, 81, 41, 0)
$Button34 = GUICtrlCreateButton("Deff einfügen", 112, 472, 81, 41, 0)
$Button35 = GUICtrlCreateButton("AG einfügen", 200, 472, 97, 41, 0)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

$url = ""
$code = ""
$Speed = ""
$Dorfanzahl = 0
$aktuellesDorf = 1
GUICtrlSetData($Label1, $aktuellesDorf)
$iD = 1
$iB = 0
$zaehler = 0
$aktuellerTab = 1
Dim $ende
$aktuellePosition = ""
$aktuelleURL = ""
Dim $Doerfer[1000]
$stop = 0

[/autoit] [autoit][/autoit] [autoit]

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

If _FFisConnected() Then

MsgBox(64, "Bereits initialisiert", "Das Programm wurde bereits Initialisiert!")

Else
If ProcessExists("firefox.exe") = 0 and ProcessExists("firefox.exe *32") = 0 Then
MsgBox(64, "Firefox starten!", "Bitte jetzt Firefox starten")
_FFConnect()
MsgBox(64, "Initialisiert", "Das Programm wurde Initialisiert!")
;_FFStart()
Else
_FFConnect()
If _FFIsConnected() Then
MsgBox(64, "Initialisiert", "Das Programm wurde Initialisiert!")
Else
MsgBox(64, "Fehler", "Das Programm konnte nicht initialisiert werden!")
EndIf
EndIf
EndIf
Case $Button2
$aktuelleURL = _FFCmd(".location.href")
$array = StringSplit($aktuelleURL, "village=", 1)
$url = ($array[1] & "village=")
MsgBox(64, "Stamm-URL gelesen", "Die Stamm-URL wurde gelesen: " & $url)
;MsgBox(64, "URL", $url)
;$urlalt = $url
;$url = InputBox("Stamm-Url eingeben", "Geben sie die Stamm-URL ein. z.B.: http://des2.ds.ignames.net/game.php?village=", "", "", _
; 400, 200, 0, 0)
;If $url = "" Then
; $url = $urlalt
;EndIf
Case $Button3
$codealt = $code
$code = InputBox("Code Eingeben", "Geben sie den Code ein. z.B.: caae", "", "", _
400, 200, 0, 0)
If $code = "" Then
$code = $codealt
Else
MsgBox(64, "Code gesetzt", "Der Code wurde gesetzt: " & $code)
EndIf
Case $Button4
;_FFOpenURL($url & "&screen=overview_villages")
$Doerfer[$Dorfanzahl + 1] = InputBox("Dorf-Nummer eingeben", "Geben sie die Dorf-Nummer ein. z.B.: 756", "", "", _
400, 200, 0, 0)
If $Doerfer[$Dorfanzahl + 1] = "" Then
Else
$Dorfanzahl = $Dorfanzahl + 1
MsgBox(64, "Dorf hinzugefügt", "Ein Dorf wurde hinzugefügt: " & $Doerfer[$Dorfanzahl])
EndIf
Case $Button36
$Speedalt = $Speed
$Speed = InputBox("Speed Eingeben", "Geben sie den Speed ein. z.B.: 400", "", "", _
400, 200, 0, 0)
If $Speed = "" Then
$Speed = $Speedalt
Else
MsgBox(64, "Speed gesetzt", "Der Speed wurde gesetzt: " & $Speed)
EndIf
Case $Button5
If $aktuellesDorf = 1 Then
Else
_aktuellePositionpruefen()
_aktuellesDorfpruefen($iD = 0)
_FFOpenURL($url & $Doerfer[$aktuellesDorf - 1] & "&screen=" & $aktuellePosition)
$aktuellesDorf = $aktuellesDorf - 1
GUICtrlSetData($Label1, $aktuellesDorf)
EndIf
Case $Button6
If $Dorfanzahl = $aktuellesDorf Then
Else
_aktuellePositionpruefen()
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf + 1] & "&screen=" & $aktuellePosition)
$aktuellesDorf = $aktuellesDorf + 1
GUICtrlSetData($Label1, $aktuellesDorf)
EndIf
Case $Button7
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
Case $Button8
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] & "&screen=barracks")
Case $Button9
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] & "&screen=stable")
Case $Button10
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] & "&screen=garage")
Case $Button11
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] & "&screen=smith")
Case $Button12
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] & "&screen=snob")
Case $Button13
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] & "&screen=place")
Case $Button14
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] & "&screen=market")
Case $Button15
_GUICtrlListBox_InsertString($List1, "Hauptgebäude")
Case $Button16
_GUICtrlListBox_InsertString($List1, "Kaserne")
Case $Button17
_GUICtrlListBox_InsertString($List1, "Stall")
Case $Button18
_GUICtrlListBox_InsertString($List1, "Werkstatt")
Case $Button19
_GUICtrlListBox_InsertString($List1, "Schmiede")
Case $Button20
_GUICtrlListBox_InsertString($List1, "Adelshof")
Case $Button21
_GUICtrlListBox_InsertString($List1, "Marktplatz")
Case $Button22
_GUICtrlListBox_InsertString($List1, "Holzfäller")
Case $Button23
_GUICtrlListBox_InsertString($List1, "Lehmgrube")
Case $Button24
_GUICtrlListBox_InsertString($List1, "Eisenmine")
Case $Button25
_GUICtrlListBox_InsertString($List1, "Bauernhof")
Case $Button26
_GUICtrlListBox_InsertString($List1, "Speicher")
Case $Button27
_GUICtrlListBox_InsertString($List1, "Versteck")
Case $Button28
_GUICtrlListBox_InsertString($List1, "Wall")
Case $Button29
$index = _GUICtrlListBox_GetCount($List1)
_GUICtrlListBox_DeleteString($List1, $index - 1)
Case $Button30
If $code = "" Then
MsgBox(64, "Fehler", "Code ist noch nicht eingegeben!")
Else
$count = _GUICtrlListBox_GetCount($List1)
If $count = 0 Then
MsgBox(64, "Fehler", "Keine Aufträge gesetzt")
Else
Dim $Bauwarteschlange[$count]
For $i = 0 to $count -1
$Bauwarteschlange[$i] = _GUICtrlListBox_GetText($List1,$i)
Next
;_ArrayDisplay($Bauwarteschlange)
_Bauwarteschlangeausfuehren($iB)
EndIf
EndIf
Case $Button37
abbrechen()
Case $Button31
$aktuellerTab = _FFTabGetSelected()
Do
_FFFormSubmit(0, "index", "submit",False)
_FFTabSetSelected(($aktuellerTab + 1))
$aktuellerTab = $aktuellerTab + 1
$ende = StringInStr( _FFTabGetSelected("label"), "Die Stämme", 1)
$test0 = _FFSearch("Du musst die x und y Koordinaten des Ziels angeben")
Until $ende = 0 or $test0 = 1
Case $Button32

Case $Button33
_FFLinkClick("input_axe", "href", False)
_FFLinkClick("input_light", "href", False)
_FFLinkClick("input_ram", "href", False)
Case $Button34
_FFLinkClick("input_spear", "href", False)
_FFLinkClick("input_sword", "href", False)
Case $Button35
_FFLinkClick("input_snob", "href", False)
_FFSetValue("100", "unit_input_light", "id")

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _aktuellesDorfpruefen($iD)

[/autoit] [autoit][/autoit] [autoit]

$aktuelleURL = _FFCmd(".location.href")

$position = StringInStr( $aktuelleURL, "=" & $Doerfer[$iD] & "&", 1)

If $iD > $Dorfanzahl Then
$iD = 1
MsgBox(64, "Fehler", "Dorf ist noch nicht eingegeben!")
Else
If $position = 0 Then
$iD = $iD + 1
_aktuellesDorfpruefen($iD)
Else
If $position = @Error Then
MsgBox(64, "Fehler", "Ein Fehler ist aufgetreten")
Else
$aktuellesDorf = $iD
GUICtrlSetData($Label1, $aktuellesDorf)
$iD = 1
EndIf
EndIf
EndIf

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _aktuellePositionpruefen()

$aktuelleURL = _FFCmd(".location.href")
$array = StringSplit($aktuelleURL, "screen=", 1)
$aktuellePosition = $array[2]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Bauwarteschlangeaufruecken()

_GUICtrlListBox_DeleteString($List1, 0)

$count = _GUICtrlListBox_GetCount($List1)
If $count = 0 Then
$Bauwarteschlange[0] = ""
Else
Dim $Bauwarteschlange[$count]
For $i = 0 to $count -1
$Bauwarteschlange[$i] = _GUICtrlListBox_GetText($List1,$i)
Next
EndIf

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Bauwarteschlangeausfuehren($iB)

[/autoit] [autoit][/autoit] [autoit]

Do
If $Bauwarteschlange[$iB] = "" Then
MsgBox(64, "Fertig", "Bauwarteschlange abgearbeitet!")
$stop = 1
Else
If $Bauwarteschlange[$iB] = "Hauptgebäude" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=main")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Kaserne" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=barracks")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Stall" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=stable")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Werkstatt" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=garage")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Schmiede" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=smith")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Adelshof" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=snob")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Marktplatz" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=market")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Holzfäller" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=wood")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Lehmgrube" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=stone")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Eisenmine" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=iron")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Bauernhof" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=farm")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Speicher" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=storage")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Versteck" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=hide")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else
If $Bauwarteschlange[$iB] = "Wall" Then
_aktuellesDorfpruefen($iD)
_FFOpenURL($url & $Doerfer[$aktuellesDorf] &"&screen=main")
$geklappt = _FFLinkClick("action=build&h=" & $code & "&id=wall")
If $geklappt = 1 Then
_Bauwarteschlangeaufruecken()
$iB = 0
_Bauwarteschlangeausfuehren($iB)
Else
Sleep(500000/$Speed)
_Bauwarteschlangeausfuehren($iB)
EndIf
Else


EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
Until $stop = 1

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func abbrechen()

$stop = 1

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;;_FFConnect()
;;_FFStart()
;;_FFStart([$sURL = "about:blank"[, $sProfile = "default"[, $iMode = 1[, $bHide = False]]]])

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;;_FFLinkClick("id=barracks")
;;_FFOpenURL($url & "main&action=build&h=" & $code & "&id=" & "barracks")

[/autoit] [autoit][/autoit] [autoit]

;; _FFLinkClick("Versammlungsplatz","text")
;; _FFTabAdd("www.google.de", False) ;

[/autoit] [autoit][/autoit] [autoit]

;;_FFTabAdd("about:blank")
;;_FFOpenURL($Haupturl)
;;_FFOpenURL ("google.de")

[/autoit]