[Frage] Relogger Script

11/20/2009 18:32 marmalada#1
Ich habe ein Problem Folgender script will nicht starten :

Danke
11/20/2009 19:28 | Moep |#2
Steht doch alles da: "(177) : ==> "Wend" statement with no matching "While" statement"

Du machst zweimal While auf, schließt es aber nur einmal...


Edit: Und außer dem While, machst du auch noch 2 If´s auf ohne sie am Ende wieder zu schließen...
11/20/2009 20:45 marmalada#3
Sry kapier ich net kannst du mal den soruce code reinstellen wie es richtig geht?
11/20/2009 22:26 | Moep |#4
Lad dir einfach [Only registered and activated users can see links. Click Here To Register...], lass es über dein Script laufen und freu dich... oder stell die nächste frage... ;)
12/25/2009 19:14 ninjaprobe#5
hir
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
hab gemacht aber es geht trotzdem nicht ich hab jetz while mit wend geschlossen geht nicht
12/27/2009 12:10 WieMeinen#6
PHP Code:
While 1
$nMsg 
GUIGetMsg()
Switch 
$nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch



If 
$nMsg $Button1 Then

While 1
If $check7 1 Then
$Login 
Pixelgetcolor (522517)
If 
$Login 0xC7C7C7 Then
If ( GUICtrlRead $input4 ) ) = 1 Then
MouseMove 
(269274)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 2 Then
MouseMove 
(264225)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 3 Then
MouseMove 
(271242)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 4 Then
MouseMove 
(276256)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 5 Then
MouseMove 
(268275)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 6 Then
MouseMove 
(264292)
MouseClick ("left")
Elseif ( 
GUICtrlRead $input4 ) ) = 7 Then
MouseMove 
(266307)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 8 Then
MouseMove 
(264327)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 9 Then
MouseMove 
(264344)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 10 Then
MouseMove 
(255357)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 11 Then
MouseMove 
(264378)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 12 Then
MouseMove 
(264396)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 13 Then
MouseMove 
(264411)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 14 Then
MouseMove 
(264427)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 15 Then
MouseMove 
(264448)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 16 Then
MouseMove 
(264461)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 17 Then
MouseMove 
(264479)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input4 ) ) = 18 Then
MouseMove 
(264499)
MouseClick ("left")
EndiF
If ( 
GUICtrlRead $input5 ) ) = 1 Then
MouseMove 
(510205)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input5 ) ) = 2 Then
MouseMove 
(510225)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input5 ) ) = 3 Then
MouseMove 
(510240)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input5 ) ) = 4 Then
MouseMove 
(507259)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input5 ) ) = 5 Then
MouseMove 
(505277)
MouseClick ("left")
ElseIf ( 
GUICtrlRead $input5 ) ) = 6 Then
MouseMove 
(504290)
MouseClick ("left")
EndIf
MouseMove (530519)
MouseClick ("left")
Send GUICtrlRead $ID) )
Send ("{Enter}")
Send GUICtrlRead $PW ) )
Send ("{Enter}")
MouseMove (596550)
Do
Sleep (100)
$Pixel=Pixelgetcolor (56174)
Until $Pixel 0x422A2A
Sleep 
(2000)
If (
GUICtrlRead($input6)) = 1 Then
MouseClick 
("left"173511)
ElseIf (
GUICtrlRead($input6)) = 2 Then
MouseDown 
("left")
Sleep (250)
MouseUp ("left")
MouseClick ("left"173511)
ElseIf (
GUICtrlRead($input6)) = 3 Then
MouseDown 
("left")
Sleep (250)
MouseUp ("left")
Sleep (250)
MouseDown ("left")
Sleep (250)
MouseUp ("left")
MouseClick ("left"173511)
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"173511)
EndIF
Do
$Starts Pixelgetcolor (650620)
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
EndIf
WEnd
EndIf
WEnd 
So ists richtig....
Du hattest ein paar EndIFs und WEnds vergessen.
12/27/2009 14:08 | Moep |#7
boah leute guckt mal aus Datum... :facepalm:
12/27/2009 14:30 WieMeinen#8
Ähm Ninja, was willst du eigendlich in jedem Theard???
Eigendlich geht es ja hier um marmalada und nicht um dich.....

@Moep: Ich guck nie aufs Datum.....Der Theard war halt mit neuen Beiträgen und dann hab ich halt geguckt....
12/27/2009 14:36 | Moep |#9
Quote:
Originally Posted by oOWaYnEOo View Post
Ähm Ninja, was willst du eigendlich in jedem Theard???
Eigendlich geht es ja hier um marmalada und nicht um dich.....
Aufmerksamkeit?
12/27/2009 14:39 ninjaprobe#10
ich wollte doch nur meine frage stellen damit sie beantwortet wird meher nicht wo steht das man seine fragen nicht in ein anderen theard stellen darf es ist doch nicht verboten
12/27/2009 15:36 WieMeinen#11
Ja, aber eigendlich ging es ja um was anderes...egal

Problem is geklärt.