Fehler beim Bot

03/27/2010 11:51 sulak#1
Hallo ich habe heute morgen aus langeweile einfach mal einen Metin2 Bot gemacht mit Relogger, Autoschlagen, Potten usw.
Die Source unten

Der Fehler ist
Quote:
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
03/27/2010 11:54 HardCore.1337#2
Quote:
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 
03/27/2010 13:52 sulak#3
Ok danke ich versuchs mal

€: Hmm habs jetzt glaub ich gemacht aber jetzt kommt ein neuer Fehler
Quote:
C:\Users\-\Desktop\farmbot erweitert.au3(105,1) : ERROR: syntax error
Case
^
Mein Code jetzt
Wurde gelöscht
03/28/2010 15:36 sulak#4
Hmm wenn ich den unteren Teil weg nehme klappt es bei dem Bot nehm ich einfach Button2 raus
03/28/2010 16:34 nico_w#5
///Edit: geht doch nich, ich teste nochmal
03/28/2010 16:37 o6_SpeeD_o6#6
Quote:
Originally Posted by nico_w View Post
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 *=)
03/28/2010 16:45 sulak#7
Quote:
Originally Posted by o6_SpeeD_o6 View Post
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
03/28/2010 16:47 nico_w#8
Ok

Quote:
#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
03/28/2010 18:14 HardCore.1337#9
siehe mein Post
03/28/2010 18:18 Cholik#10
Wird auf Wunsch des Threaderstellers geschlossen.

#closed