HotKeySet("{F12}" , "Stop")
HotKeySet("{F11}" , "Start")
HotKeySet("{F10}" , "npad")
HotKeySet("{F9}" , "show")
HotKeySet("{F8}" , "hide")
HotKeySet("{F7}" , "Login")
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Marc\Documents\aSSF.kxf
$Form1 = GUICreate("Botset von BlUbAbLuBaFaSeL", 625, 445, 192, 124)
$Benutzername = GUICtrlCreateLabel("Benutzername", 16, 8, 72, 17)
$Passwort = GUICtrlCreateLabel("Passwort", 16, 40, 47, 17)
$Benutzernam = GUICtrlCreateInput("Benutzername", 112, 8, 121, 21)
$Passwor = GUICtrlCreateInput("Passwort", 112, 40, 9, 21)
$Server = GUICtrlCreateLabel("Server", 16, 72, 35, 17)
$Channel = GUICtrlCreateLabel("Channel", 16, 104, 43, 17)
$Charakter = GUICtrlCreateLabel("Charakter", 16, 136, 50, 17)
$Serve = GUICtrlCreateInput("Server", 112, 72, 121, 21)
$Channe = GUICtrlCreateInput("Channel", 112, 104, 121, 21)
$Charakte = GUICtrlCreateInput("Charakter", 112, 136, 121, 21)
$Zum = GUICtrlCreateLabel("Zum einloggen F7 drücken", 96, 176, 131, 17)
$F = GUICtrlCreateLabel("Für den hidden Pickupbot einfach F11 zum Starten und F12 zum beenden drücken!", 48, 216, 398, 17)
$Label2 = GUICtrlCreateLabel("Fenster Zeigen F9", 48, 280, 199, 17)
$Label3 = GUICtrlCreateLabel("Pickupzeit", 56, 312, 53, 17)
GUICtrlCreateInput("500", 128, 312, 121, 21)
GUICtrlSetTip(-1, "In millisekunden 1sec=1000ms")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
func Start ()
WinActivate("METIN2")
WinWaitActive("METIN2")
While 1
ControlSend("METIN2","","","y")
Sleep(GUICtrlRead($Label3) & $Label3)
WEnd
EndFunc
func Stop ()
While 1
Sleep(1)
WEnd
EndFunc
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")
Send(""& GUICtrlRead($Benutzername))
MouseMove(610, 495)
MouseClick("left")
Send(""& GUICtrlRead($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
func npad()
send("{Numpadenter 7}")
EndFunc
Func show ()
WinActivate("Botset von BlUbAbLuBaFaSeL")
EndFunc
Func hide ()
WinSetState("Botset von BlUbAbLuBaFaSeL","",@SW_SHOWMINNOACTIVE)
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
HotKeySet("{F11}" , "Start")
HotKeySet("{F10}" , "npad")
HotKeySet("{F9}" , "show")
HotKeySet("{F8}" , "hide")
HotKeySet("{F7}" , "Login")
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Marc\Documents\aSSF.kxf
$Form1 = GUICreate("Botset von BlUbAbLuBaFaSeL", 625, 445, 192, 124)
$Benutzername = GUICtrlCreateLabel("Benutzername", 16, 8, 72, 17)
$Passwort = GUICtrlCreateLabel("Passwort", 16, 40, 47, 17)
$Benutzernam = GUICtrlCreateInput("Benutzername", 112, 8, 121, 21)
$Passwor = GUICtrlCreateInput("Passwort", 112, 40, 9, 21)
$Server = GUICtrlCreateLabel("Server", 16, 72, 35, 17)
$Channel = GUICtrlCreateLabel("Channel", 16, 104, 43, 17)
$Charakter = GUICtrlCreateLabel("Charakter", 16, 136, 50, 17)
$Serve = GUICtrlCreateInput("Server", 112, 72, 121, 21)
$Channe = GUICtrlCreateInput("Channel", 112, 104, 121, 21)
$Charakte = GUICtrlCreateInput("Charakter", 112, 136, 121, 21)
$Zum = GUICtrlCreateLabel("Zum einloggen F7 drücken", 96, 176, 131, 17)
$F = GUICtrlCreateLabel("Für den hidden Pickupbot einfach F11 zum Starten und F12 zum beenden drücken!", 48, 216, 398, 17)
$Label2 = GUICtrlCreateLabel("Fenster Zeigen F9", 48, 280, 199, 17)
$Label3 = GUICtrlCreateLabel("Pickupzeit", 56, 312, 53, 17)
GUICtrlCreateInput("500", 128, 312, 121, 21)
GUICtrlSetTip(-1, "In millisekunden 1sec=1000ms")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
func Start ()
WinActivate("METIN2")
WinWaitActive("METIN2")
While 1
ControlSend("METIN2","","","y")
Sleep(GUICtrlRead($Label3) & $Label3)
WEnd
EndFunc
func Stop ()
While 1
Sleep(1)
WEnd
EndFunc
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")
Send(""& GUICtrlRead($Benutzername))
MouseMove(610, 495)
MouseClick("left")
Send(""& GUICtrlRead($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
func npad()
send("{Numpadenter 7}")
EndFunc
Func show ()
WinActivate("Botset von BlUbAbLuBaFaSeL")
EndFunc
Func hide ()
WinSetState("Botset von BlUbAbLuBaFaSeL","",@SW_SHOWMINNOACTIVE)
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd






