Fehler beim Bot

[sulak]

Hallo ich habe heute morgen aus langeweile einfach mal einen Metin2 Bot gemacht mit Relogger, Autoschlagen, Potten usw.
Die Source unten

Der Fehler ist

C:\Users\-\Desktop\farmbot erweitert.au3(49,1) : ERROR: syntax error
Case
^

Ich weiß nicht was ich machen muss damit der funktioniert

Bedank mich jetzt schon mal auf die Antworten

[HardCore.1337]

hile 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Case $Button1
If (GUICtrlRead($Checkbox1)) = 1 Then
Send("{space}")
EndIf
If (GUICtrlRead($Checkbox2)) = 1 Then
Send("{y}")
EndIf

Das

PHP Code:

EndSwitch
WEnd 


Kommt ganz ans Ende.

So ist´s richtig:

PHP Code:

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
  Deine Function
Case $Button1
  Seine 2. Funktion
EndSwitch
WEnd 


[sulak]

Ok danke ich versuchs mal

€: Hmm habs jetzt glaub ich gemacht aber jetzt kommt ein neuer Fehler

C:\Users\-\Desktop\farmbot erweitert.au3(105,1) : ERROR: syntax error
Case
^

Mein Code jetzt
Wurde gelöscht

[sulak]

Hmm wenn ich den unteren Teil weg nehme klappt es bei dem Bot nehm ich einfach Button2 raus

[nico_w]

///Edit: geht doch nich, ich teste nochmal

[o6_SpeeD_o6]

Originally Posted by nico_w

Mach mal aus
Case $Button2
While 1
MsgBox(0,"","Bot wurde beendet")
Exit
WEnd

Case $Button2
MsgBox(0,"","Bot wurde beendet")
Exit

Und ich frag mich wie du bei

Case $Button1
If (GUICtrlRead($Checkbox5)) = 1 Then
If PixelGetColor(675, 552) = 0x39ADF6 Then
MouseClick("left", 389, 336)
MouseClick("left", 510, 266)
MouseClick("left", 525, 544)
Send(GUICtrlRead($Id))
Send("{tab}")
Send(GUICtrlRead($Passwort))
Send("{enter}")
Sleep(20000)
Send("{enter}")
Sleep(10000)
EndIf
EndIf
EndSwitch
WEnd

auf WEnd kommst, ich seh da keine While-Schleife :O

mit 15+ Jahren so gut mit Programmieren sein reSpekT *=)

[sulak]

Originally Posted by o6_SpeeD_o6

mit 15+ Jahren so gut mit Programmieren sein reSpekT *=)

Wer ist 15+ Jahre wenn meinst du?

Edit: Ahh schon gut
Kann geclosed werden ich mache es anderes aber danke für die hilfen

[nico_w]

Ok

#RequireAdmin
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("By Sulak", 185, 306, 193, 125)
GUISetFont(12, 400, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Farmbot by Sulak", 24, 0, 136, 27)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 32, 17, 17)
$Label2 = GUICtrlCreateLabel("Schlagen", 24, 32, 59, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 96, 32, 17, 17)
$Label3 = GUICtrlCreateLabel("Pickup", 120, 32, 43, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 8, 56, 17, 17)
$Label4 = GUICtrlCreateLabel("Hier neu starten", 24, 56, 103, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 8, 80, 17, 17)
$Label5 = GUICtrlCreateLabel("Stadt neu starten", 24, 80, 110, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 8, 176, 17, 17)
$Label6 = GUICtrlCreateLabel("Relogger", 24, 176, 57, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 8, 128, 17, 17)
$Label7 = GUICtrlCreateLabel("Potten (rot)", 24, 128, 74, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Checkbox7 = GUICtrlCreateCheckbox("Checkbox7", 8, 152, 17, 17)
$Label8 = GUICtrlCreateLabel("Potten (blau)", 24, 152, 82, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 8, 104, 17, 17)
$Label9 = GUICtrlCreateLabel("Fertigkeiten", 24, 104, 78, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Id = GUICtrlCreateInput("Id", 8, 200, 105, 26)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Passwort = GUICtrlCreateInput("Passwort", 8, 232, 105, 26)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button1 = GUICtrlCreateButton("Start", 8, 272, 81, 25)
$Button2 = GUICtrlCreateButton("Beenden", 96, 272, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Case $Button1
If (GUICtrlRead($Checkbox1)) = 1 Then
Send("{space}")
EndIf

Case $Button1
If (GUICtrlRead($Checkbox2)) = 1 Then
Send("{y}")
EndIf

Case $Button1
If (GUICtrlRead($Checkbox3)) = 1 Then
If PixelGetColor(150, 103) = 0xC7C7C7 Then
Sleep(10000)
MouseClick("left", 150, 103)
EndIf
EndIf

Case $Button1
If (GUICtrlRead($Checkbox6)) = 1 Then
If PixelGetColor(131, 595) = 0x141414 Then
Send("{1}")
EndIf
EndIf

Case $Button1
If (GUICtrlRead($Checkbox7)) = 1 Then
If PixelGetColor(154, 604) = 0x141414 Then
Send("{2}")
EndIf
EndIf

Case $Button1
If (GUICtrlRead($Checkbox6)) = 1 Then
Send("{3}")
Sleep(5000)
Send("{4}")
Sleep(5000)
EndIf

Case $Button2
MsgBox(0,"","Bot wurde beendet")
Exit

Case $Button1
If (GUICtrlRead($Checkbox5)) = 1 Then
If PixelGetColor(675, 552) = 0x39ADF6 Then
MouseClick("left", 389, 336)
MouseClick("left", 510, 266)
MouseClick("left", 525, 544)
Send(GUICtrlRead($Id))
Send("{tab}")
Send(GUICtrlRead($Passwort))
Send("{enter}")
Sleep(20000)
Send("{enter}")
Sleep(10000)
EndIf
EndIf
EndSwitch
WEnd

So gehts

Der Button2 war hinter dem EndSwitch, so kanns nich gehen ;D

[HardCore.1337]

siehe mein Post

[Cholik]

Wird auf Wunsch des Threaderstellers geschlossen.

#closed