|
You last visited: Today at 05:42
Advertisement
[Frage] Relogger Script
Discussion on [Frage] Relogger Script within the AutoIt forum part of the Coders Den category.
11/20/2009, 18:32
|
#1
|
elite*gold: 0 
Join Date: Jan 2009
Posts: 105
Received Thanks: 17
|
[Frage] Relogger Script
Ich habe ein Problem Folgender script will nicht starten :
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
|
|
|
|
11/20/2009, 19:28
|
#2
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
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
|
#3
|
elite*gold: 0
Join Date: Jan 2009
Posts: 105
Received Thanks: 17
|
Sry kapier ich net kannst du mal den soruce code reinstellen wie es richtig geht?
|
|
|
|
|
11/20/2009, 22:26
|
#4
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Lad dir einfach  , lass es über dein Script laufen und freu dich... oder stell die nächste frage... 
|
|
|
|
|
12/25/2009, 19:14
|
#5
|
elite*gold: 0
Join Date: Jan 2009
Posts: 148
Received Thanks: 85
|
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
|
#6
|
elite*gold: 0
Join Date: Jun 2008
Posts: 99
Received Thanks: 19
|
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 (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
EndIf
WEnd
EndIf
WEnd
So ists richtig....
Du hattest ein paar EndIFs und WEnds vergessen.
|
|
|
|
|
12/27/2009, 14:08
|
#7
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
boah leute guckt mal aus Datum... 
|
|
|
|
|
12/27/2009, 14:30
|
#8
|
elite*gold: 0
Join Date: Jun 2008
Posts: 99
Received Thanks: 19
|
Ä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
|
#9
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Quote:
Originally Posted by oOWaYnEOo
Ä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
|
#10
|
elite*gold: 0
Join Date: Jan 2009
Posts: 148
Received Thanks: 85
|
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
|
#11
|
elite*gold: 0
Join Date: Jun 2008
Posts: 99
Received Thanks: 19
|
Ja, aber eigendlich ging es ja um was anderes...egal
Problem is geklärt.
|
|
|
|
 |
Similar Threads
|
PHP HP-Script Frage
09/13/2010 - Metin2 Private Server - 1 Replies
Hallo,
ich habe eine Frage und zwar:
Würde ich gerne wissen wie man in ein PHPscript einbaut,
dass wenn man z.B eine Beschwerde/Bestellung ausfüllt
automatisch der Benutzer eingetragen wird, mit dem man
eingeloggt ist und nicht irgendeinen Namen eintragen kann.
Dadurch möchte ich unnötigen Spam vermeiden.
Danke.
|
[Frage]Script
04/14/2010 - Metin2 Private Server - 2 Replies
Hallo,
ich habe eine Frage.
Ich habe einen Root Server und wollte dort das Scirpt einfügen, dass wenn man on kommt automatisch reload a eingeben wird.
Sufu leider nichts gefunden.
Hätte gerne den Thread und ein Tut wie das geht :P
|
Script Frage.
02/06/2010 - GW Bots - 1 Replies
Hey wen man Multi Client Benutzt kan man dann mit den einen botten und mit den anderen spielen ? oder mit beiden botten ?
danke im vorraus
|
Frage zu /script
05/18/2009 - World of Warcraft - 3 Replies
Kann mir ma pls einer sagen was es alles gibt mit /script ?? zb. schwerter spawnen oder so??
Danke im Vorraus
|
All times are GMT +1. The time now is 05:43.
|
|
![[Frage] Relogger Script](https://www.elitepvpers.com/forum/iconimages/autoit/frage-relogger-script_ltr.gif){kind=small}
