PHP Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
#Region ### START Koda GUI section ### Form=
$Bot = GUICreate("Login-Bot by Oodama", 476, 257, 203, 206)
GUISetBkColor(0xC0C0C0)
$Name = GUICtrlCreateInput("", 24, 48, 257, 21)
$Pass = GUICtrlCreateInput("", 24, 112, 257, 21,$ES_PASSWORD)
$Label1 = GUICtrlCreateLabel("Benutzername:", 104, 24, 126, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Passwort:", 128, 80, 82, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Go = GUICtrlCreateButton("Log In !", 328, 40, 137, 65, 0)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Save1 = GUICtrlCreateButton("Save 1", 24, 160, 75, 25, 0)
$Load1 = GUICtrlCreateButton("Load 1", 24, 192, 75, 25, 0)
$Save2 = GUICtrlCreateButton("Save 2", 104, 160, 75, 25, 0)
$Load2 = GUICtrlCreateButton("Load 2", 104, 192, 75, 25, 0)
$Save3 = GUICtrlCreateButton("Save 3", 184, 160, 75, 25, 0)
$Load3 = GUICtrlCreateButton("Load 3", 184, 192, 75, 25, 0)
$Save4 = GUICtrlCreateButton("Save 4", 264, 160, 75, 25, 0)
$Load4 = GUICtrlCreateButton("Load 4", 264, 192, 75, 25, 0)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Kevin Wüst\Eigene Dateien\Eigene Bilder\Arcane_Rune_Circle_by_thy6sins6of6lust.jpg", 344, 120, 124, 108, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
TraySetClick("9")
$MenuItem1 = TrayCreateItem("Window Show")
$MenuItem2 = TrayCreateItem("Window Hide")
$MenuItem3 = TrayCreateItem("Close Program")
$MenuItem4 = GUICtrlCreateMenu("Options")
$MenuItem8 = GUICtrlCreateMenu("Save", $MenuItem4)
$MenuItem12 = GUICtrlCreateMenuItem("Place 1", $MenuItem8)
$MenuItem11 = GUICtrlCreateMenuItem("Place 2", $MenuItem8)
$MenuItem10 = GUICtrlCreateMenuItem("Place 3", $MenuItem8)
$MenuItem9 = GUICtrlCreateMenuItem("Place 4", $MenuItem8)
$MenuItem5 = GUICtrlCreateMenu("Load", $MenuItem4)
$MenuItem16 = GUICtrlCreateMenuItem("Place 1", $MenuItem5)
$MenuItem15 = GUICtrlCreateMenuItem("Place 2", $MenuItem5)
$MenuItem14 = GUICtrlCreateMenuItem("Place 3", $MenuItem5)
$MenuItem13 = GUICtrlCreateMenuItem("Place 4", $MenuItem5)
$MenuItem17 = GUICtrlCreateMenuItem("Close Program", $MenuItem4)
$MenuItem7 = GUICtrlCreateMenu("Credits")
$MenuItem20 = GUICtrlCreateMenuItem("Credits", $MenuItem7)
$MenuItem6 = GUICtrlCreateMenu("Need Help?")
$MenuItem18 = GUICtrlCreateMenuItem("Short Help", $MenuItem6)
$MenuItem19 = GUICtrlCreateMenuItem("Link to Thread", $MenuItem6)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$bn=GuiCtrlRead($Name)
$pw=GUICtrlRead($Pass)
Opt("PixelCoordMode",0)
$x1 = 603 ;links
$y1 = 393 ;oben
$x2 = 605 ;rechts
$y2 = 395 ;unten
While 1
$nMsg = GUIGetMsg()
$tMsg = TrayGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Go
If NOT WinExists("S4 Client") Then ;prüft ob S4 Client vorhanden ist
WinWait("S4 Client") ;wenn nicht, wartets auf S4 Client bis es existiert
Else
WinActivate("S4 Client") ;falls S4 Client existiert, wird es aktiviert
EndIf
$shandle = WinGetHandle("S4 Client") ;lädt den Handle von S4 Client, Handle kann man als spezifische Identifikation bezeichnen
Do
$sPixel = PixelSearch($x1,$y1,$x2,$y2,0x3C4757,1,"",$shandle) ;sucht exakt im S4 Client Fenster
Until IsArray($sPixel) ;bis PixelSearch erolgreich war
ToolTip("Erfolgreich",0,0)
Sleep(150)
MouseClick("left",568, 371)
sleep(150)
Send($bn)
sleep(150)
Send("{Tab}")
sleep(150)
Send($pw)
Sleep(150)
Send("{Enter}")
sleep(150)
Tooltip("Erfolgreich Eingeloggt!")
Sleep(2500)
ToolTip()
Exit
Case $Load1
Iniread(@TempDir&"\Oodama.ini","11","12",$Name)
Iniread(@TempDir&"\Oodama.ini","12","12",$Pass)
Case $Load2
Iniread(@TempDir&"\Oodama.ini","21","21",$Name)
Iniread(@TempDir&"\Oodama.ini","22","22",$Pass)
Case $Load3
Iniread(@TempDir&"\Oodama.ini","31","31",$Name)
Iniread(@TempDir&"\Oodama.ini","32","32",$Name)
Case $Load4
Iniread(@TempDir&"\Oodama.ini","41","41",$Name)
Iniread(@TempDir&"\Oodama.ini","42","42",$Pass)
Case $Save1
IniWrite(@SCRIPTDIR&"\Oodama.ini","11","11",$bn)
IniWrite(@SCRIPTDIR&"\Oodama.ini","12","12",$pw)
Case $Save2
IniWrite(@SCRIPTDIR&"\Oodama.ini","21","21",$bn)
IniWrite(@SCRIPTDIR&"\Oodama.ini","22","22",$pw)
Case $Save3
IniWrite(@SCRIPTDIR&"\Oodama.ini","31","31",$bn)
IniWrite(@SCRIPTDIR&"\Oodama.ini","32","32",$pw)
Case $Save4
IniWrite(@SCRIPTDIR&"\Oodama.ini","41","41",$bn)
IniWrite(@SCRIPTDIR&"\Oodama.ini","42","42",$Pass)
EndSwitch
Switch $tMsg
Case $MenuItem3
Exit
Case $MenuItem1
GUISetState(@SW_SHOW)
Case $MenuItem2
GUISetState(@SW_HIDE)
EndSwitch
WEnd