[Frage] Relogger Script
This is a discussion on [Frage] Relogger Script within the AutoIt forum part of the Gamehacking / Coding category; Ich habe ein Problem Folgender script will nicht starten :
Spoiler:
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
...
#1
^.^
Join Date: Jan 2009
Posts: 97
Received Thanks: 13
[Frage] Relogger Script
Ich habe ein Problem Folgender script will nicht starten :
Spoiler:
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
Last edited by marmalada; 11-20-2009 at 18:47 .
The Following User Says Thank You to marmalada For This Useful Post:
#2
inaktiv
Join Date: Apr 2008
Posts: 733
Received Thanks: 224
Steht doch alles da: "(177) : ==> "Wend" statement with no matching "While" statement"
Last edited by | Moep |; 11-20-2009 at 19:35 .
#3
^.^
Join Date: Jan 2009
Posts: 97
Received Thanks: 13
Sry kapier ich net kannst du mal den soruce code reinstellen wie es richtig geht?
The Following User Says Thank You to marmalada For This Useful Post:
#4
inaktiv
Join Date: Apr 2008
Posts: 733
Received Thanks: 224
The Following User Says Thank You to | Moep | For This Useful Post:
#5
Senior Member
Join Date: Jan 2009
Posts: 147
Received Thanks: 56
hir
#6
AutoIT Coder
Join Date: Jun 2008
Posts: 88
Received Thanks: 5
PHP Code:
While 1
= GUIGetMsg ()
$nMsg
Case $GUI_EVENT_CLOSE
Exit
$nMsg = $Button1 Then
While 1
If $check7 = 1 Then
= Pixelgetcolor ( 522 , 517 )
$Login = 0xC7C7C7 Then
If ( GUICtrlRead ( $input4 ) ) = 1 Then
( 269 , 274 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 2 Then
( 264 , 225 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 3 Then
( 271 , 242 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 4 Then
( 276 , 256 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 5 Then
( 268 , 275 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 6 Then
( 264 , 292 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 7 Then
( 266 , 307 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 8 Then
( 264 , 327 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 9 Then
( 264 , 344 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 10 Then
( 255 , 357 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 11 Then
( 264 , 378 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 12 Then
( 264 , 396 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 13 Then
( 264 , 411 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 14 Then
( 264 , 427 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 15 Then
( 264 , 448 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 16 Then
( 264 , 461 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 17 Then
( 264 , 479 )
MouseClick ( "left" )
GUICtrlRead ( $input4 ) ) = 18 Then
( 264 , 499 )
MouseClick ( "left" )
GUICtrlRead ( $input5 ) ) = 1 Then
( 510 , 205 )
MouseClick ( "left" )
GUICtrlRead ( $input5 ) ) = 2 Then
( 510 , 225 )
MouseClick ( "left" )
GUICtrlRead ( $input5 ) ) = 3 Then
( 510 , 240 )
MouseClick ( "left" )
GUICtrlRead ( $input5 ) ) = 4 Then
( 507 , 259 )
MouseClick ( "left" )
GUICtrlRead ( $input5 ) ) = 5 Then
( 505 , 277 )
MouseClick ( "left" )
GUICtrlRead ( $input5 ) ) = 6 Then
( 504 , 290 )
MouseClick ( "left" )
MouseMove ( 530 , 519 )
MouseClick ( "left" )
Send ( GUICtrlRead ( $ID ) )
Send ( "{Enter}" )
Send ( GUICtrlRead ( $PW ) )
Send ( "{Enter}" )
MouseMove ( 596 , 550 )
Sleep ( 100 )
$Pixel = Pixelgetcolor ( 56 , 174 )
Until $Pixel = 0x422A2A
( 2000 )
GUICtrlRead ( $input6 )) = 1 Then
( "left" , 173 , 511 )
GUICtrlRead ( $input6 )) = 2 Then
( "left" )
Sleep ( 250 )
MouseUp ( "left" )
MouseClick ( "left" , 173 , 511 )
GUICtrlRead ( $input6 )) = 3 Then
( "left" )
Sleep ( 250 )
MouseUp ( "left" )
Sleep ( 250 )
MouseDown ( "left" )
Sleep ( 250 )
MouseUp ( "left" )
MouseClick ( "left" , 173 , 511 )
GUICtrlRead ( $input6 )) = 4 Then
( "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 )
$Starts = Pixelgetcolor ( 650 , 620 )
Until $Starts = 0x0E0D0C
( 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 )
$check64 = 1 Then
( "{M down}" )
Sleep ( 100 )
Send ( "{M up}" )
WEnd
EndIf
WEnd
So ists richtig....
Du hattest ein paar EndIFs und WEnds vergessen.
#7
inaktiv
Join Date: Apr 2008
Posts: 733
Received Thanks: 224
boah leute guckt mal aus Datum...
#8
AutoIT Coder
Join Date: Jun 2008
Posts: 88
Received Thanks: 5
Ähm Ninja, was willst du eigendlich in jedem Theard???
#9
inaktiv
Join Date: Apr 2008
Posts: 733
Received Thanks: 224
Quote:
Originally Posted by
oOWaYnEOo
Ähm Ninja, was willst du eigendlich in jedem Theard???
Aufmerksamkeit?
#10
Senior Member
Join Date: Jan 2009
Posts: 147
Received Thanks: 56
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
All times are GMT +2. The time now is 12:41 .
![[Frage] Relogger Script](http://www.elitepvpers.de/forum/iconimages/autoit/frage-relogger-script_ltr.gif)
