FAST vollendet!!! geht nicht

07/11/2009 19:51 blubablubafasel#1
wo ist hier der fehler? ich kann keinen finden der bot gibt anstatt den gegeben variablen 3 ein!!! schaut

[CODE][CODE][HTML]HotKeySet("{F7}" , "Login")

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\marc\documents\form1.kxf
$Form1_1 = GUICreate("Form1", 625, 445, 192, 124)
$Benutzername = GUICtrlCreateInput("Benutzername", 24, 16, 249, 21)
$Passwort = GUICtrlCreateInput("Passwort", 24, 56, 249, 21)
$Server = GUICtrlCreateInput("Server", 24, 96, 65, 21)
$Channel = GUICtrlCreateInput("Channel", 24, 136, 65, 21)
$Charakter = GUICtrlCreateInput("Charakter", 24, 176, 65, 21)
$Label1 = GUICtrlCreateLabel("Zum Starten F7 drücken!", 64, 248, 122, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func Login ()

WinActivate("METIN2")
WinWaitActive("METIN2")

If GUICtrlRead($Server) = 1 Then
MouseMove(280, 180)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 2 Then
MouseMove(280, 195)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 3 Then
MouseMove(280, 210)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 4 Then
MouseMove(280, 230)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 5 Then
MouseMove(280, 245)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 6 Then
MouseMove(280, 265)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 7 Then
MouseMove(280, 280)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 8 Then
MouseMove(280, 295)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 9 Then
MouseMove(280, 310)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 10 Then
MouseMove(280, 330)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 11 Then
MouseMove(280, 345)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 12 Then
MouseMove(280, 365)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 13 Then
MouseMove(280, 380)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 14 Then
MouseMove(280, 395)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 15 Then
MouseMove(280, 410)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 16 Then
MouseMove(280, 430)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 17 Then
MouseMove(280, 445)
MouseClick("left")
EndIf
If GUICtrlRead($Server) = 18 Then
MouseMove(280, 465)
MouseClick("left")
EndIf

If GUICtrlRead($Channel) = 1 Then
MouseMove(500, 180)
MouseClick("left")
EndIf
If GUICtrlRead($Channel) = 2 Then
MouseMove(500, 195)
MouseClick("left")
EndIf
If GUICtrlRead($Channel) = 3 Then
MouseMove(500, 210)
MouseClick("left")
EndIf
If GUICtrlRead($Channel) = 4 Then
MouseMove(500, 230)
MouseClick("left")
EndIf
If GUICtrlRead($Channel) = 5 Then
MouseMove(500, 245)
MouseClick("left")
EndIf
If GUICtrlRead($Channel) = 6 Then
MouseMove(500, 260)
MouseClick("left")
EndIf

MouseMove(520, 490)
MouseClick("left")
sleep(100)
MouseMove(210, 470)
MouseClick("left")
GUICtrlRead($Benutzername)
Send("" & $Benutzername)
MouseMove(610, 495)
MouseClick("left")
GUICtrlRead($Passwort)
Send("" & $Passwort)
Send("{enter}")

Sleep(10000)

If GUICtrlRead($Charakter) = 1 Then
MouseMove(165, 480)
MouseClick("left")
EndIf
If GUICtrlRead($Charakter) = 2 Then
MouseMove(590, 514)
MouseClick("left")
MouseMove(165, 480)
MouseClick("left")
EndIf
If GUICtrlRead($Charakter) = 3 Then
MouseMove(590, 514)
MouseClick("left")
MouseClick("left")
MouseMove(165, 480)
MouseClick("left")
EndIf
If GUICtrlRead($Charakter) = 4 Then
MouseMove(590, 514)
MouseClick("left")
MouseClick("left")
MouseClick("left")
MouseMove(165, 480)
MouseClick("left")
EndIf



EndFunc




While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
07/11/2009 20:43 Mankana#2
GUICtrlRead($Benutzername)
Send("" & $Benutzername)
MouseMove(610, 495)
MouseClick("left")
GUICtrlRead($Passwort)
Send("" & $Passwort)

Das funktioniert so nicht, du müsstest entweder den GUICtrlRead Rückgabewert in eine
Variable speichern und dann bei Send benutzen oder gleich den Wert senden ohne
eine Zwischenspeicherung


Send("" & GUICtrlRead($Benutzername))
MouseMove(610, 495)
MouseClick("left")
Send("" & GUICtrlRead($Passwort))
07/12/2009 20:59 SCORNI#3
also ich mach es immer anders nicht so wie du mankana.
PHP Code:
$id=guictrlread ($benutzername)
$pw=guictrlread ($passwort)
mouseclick ("left",xxx,xxx)
send ($id)
send ("{enter}")
send ($pw)
send ("{enter}") 
Noch ein vorschlag von mir: anstatt des sleep (10000) einfach mit pixelsearch machen. Da ich davon aus gehe das du Das Spiel metin2 nimmst hier der code.

PHP Code:
pixelsearch (0,0,800,600,0xXXXXXX)
if not @error then
;den rest vom code ....... ^^ 
ich akzeptiere kein es klappt nicht denn es wurde alles selbst getestet und klappt einwandfrei.