Ich habe ein Problem Folgender script will nicht starten :
Danke
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Relogg-Bot by Marmalada ", 274, 264, 192, 124)
GUISetFont(8, 400, 0, "Ruach LET")
$ID = GUICtrlCreateInput("ID", 24, 72, 137, 22)
$PW = GUICtrlCreateInput("Passwort", 24, 112, 137, 22)
GUICtrlCreateCheckbox("Relogger Aktivieren", 16, 24, 153, 25)
$check64 = GUICtrlCreateCheckbox("M Nach Relog", 24, 160, 89, 17)
$check1 = GUICtrlCreateCheckbox("Strg+Q nach relogg", 24, 192, 113, 25)
$Button1 = GUICtrlCreateButton("Start", 184, 0, 89, 65, 0)
$Button2 = GUICtrlCreateButton("Hilfe", 16, 240, 105, 17, 0)
$Button3 = GUICtrlCreateButton("Beenden", 168, 232, 97, 25, 0)
$Input4 = GUICtrlCreateInput("Server", 168, 72, 97, 22)
$Input5 = GUICtrlCreateInput("Channel", 168, 112, 89, 22)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If $nMsg = $Button1 Then
While 1
If $check7 = 1 Then
$Login = Pixelgetcolor (522, 517)
If $Login = 0xC7C7C7 Then
If ( GUICtrlRead ( $input4 ) ) = 1 Then
MouseMove (269, 274)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 2 Then
MouseMove (264, 225)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 3 Then
MouseMove (271, 242)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 4 Then
MouseMove (276, 256)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 5 Then
MouseMove (268, 275)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 6 Then
MouseMove (264, 292)
MouseClick ("left")
Elseif ( GUICtrlRead ( $input4 ) ) = 7 Then
MouseMove (266, 307)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 8 Then
MouseMove (264, 327)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 9 Then
MouseMove (264, 344)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 10 Then
MouseMove (255, 357)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 11 Then
MouseMove (264, 378)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 12 Then
MouseMove (264, 396)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 13 Then
MouseMove (264, 411)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 14 Then
MouseMove (264, 427)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 15 Then
MouseMove (264, 448)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 16 Then
MouseMove (264, 461)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 17 Then
MouseMove (264, 479)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input4 ) ) = 18 Then
MouseMove (264, 499)
MouseClick ("left")
EndiF
If ( GUICtrlRead ( $input5 ) ) = 1 Then
MouseMove (510, 205)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 2 Then
MouseMove (510, 225)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 3 Then
MouseMove (510, 240)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 4 Then
MouseMove (507, 259)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 5 Then
MouseMove (505, 277)
MouseClick ("left")
ElseIf ( GUICtrlRead ( $input5 ) ) = 6 Then
MouseMove (504, 290)
MouseClick ("left")
EndIf
MouseMove (530, 519)
MouseClick ("left")
Send ( GUICtrlRead ( $ID) )
Send ("{Enter}")
Send ( GUICtrlRead ( $PW ) )
Send ("{Enter}")
MouseMove (596, 550)
Do
Sleep (100)
$Pixel=Pixelgetcolor (56, 174)
Until $Pixel = 0x422A2A
Sleep (2000)
If (GUICtrlRead($input6)) = 1 Then
MouseClick ("left", 173, 511)
ElseIf (GUICtrlRead($input6)) = 2 Then
MouseDown ("left")
Sleep (250)
MouseUp ("left")
MouseClick ("left", 173, 511)
ElseIf (GUICtrlRead($input6)) = 3 Then
MouseDown ("left")
Sleep (250)
MouseUp ("left")
Sleep (250)
MouseDown ("left")
Sleep (250)
MouseUp ("left")
MouseClick ("left", 173, 511)
ElseIf (GUICtrlRead($input6)) = 4 Then
MouseDown ("left")
Sleep (250)
MouseUp ("left")
Sleep (250)
MouseDown ("left")
Sleep (250)
MouseUp ("left")
Sleep (250)
MouseDown ("left")
Sleep (250)
MouseUp ("left")
MouseClick ("left", 173, 511)
EndIF
Do
$Starts = Pixelgetcolor (650, 620)
Until $Starts = 0x0E0D0C
Sleep (5000)
Send ("{R down}")
Sleep (2000)
Send ("{R up}")
Send ("{G down}")
Sleep (2000)
Send ("{G up}")
Send ("{I down}")
Sleep (2000)
Send ("{I up}")
Send ("^{q}")
$check64 = guictrlread($checkbox64)
If $check64 = 1 Then
Send ("{M down}")
Sleep (100)
Send ("{M up}")
ENDif
endif
wend
Danke