PHP Code:
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <string.au3>
#include <EditConstants.au3>
#include <date.au3>
#include <array.au3>
$Datum = @MDAY&"/" & @MON&"/" & @YEAR
$zeit = @HOUR&":" & @MIN &":"& @SEC
$start = IniRead("Config.ini","hotkeys","Click","up")
$walk = IniRead("Config.ini","hotkeys","Walk","{left}")
$help = IniRead("Config.ini","hotkeys","Help","{right}")
$pause = IniRead("Config.ini","hotkeys","Pause","{down}")
$ende = IniRead("Config.ini","hotkeys","End","{F10}")
$login = IniRead("Config.ini","hotkeys","Login","{p}")
$helpbox = 5
HotKeySet("{"&$ende&"}", "_ende")
HotKeySet("{"&$help&"}", "_help")
HotKeySet("{"&$start&"}", "_start")
HotKeySet("{"&$pause&"}", "_pause")
HotKeySet("{"&$walk&"}", "_walk")
HotKeySet("{"&$login&"}", "_login")
$pause = 1
$walk = 1
$running = 0
#Region ### START Koda GUI section ### Form=C:\Users\Mozo\Desktop\Form1.kxf
$Form1 = GUICreate("Dekaron Tool", 248, 202, 193, 125)
$Group2 = GUICtrlCreateGroup("Credits", 136, 0, 105, 97)
$Label2 = GUICtrlCreateLabel("Credits:", 168, 24, 47, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Mozo007", 168, 64, 48, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Change Login", 8, 0, 113, 97)
$Loginname = GUICtrlCreateInput("Loginname", 16, 16, 97, 21)
$Passwort = GUICtrlCreateInput("Passwort", 16, 40, 97, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Ändern", 16, 64, 97, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Start", 8, 96, 233, 41)
$Button2 = GUICtrlCreateButton("Start", 56, 104, 129, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Menu = GUICtrlCreateMenu("&Menu")
$Close = GUICtrlCreateMenuItem("Close", $Menu)
$MenuItem2 = GUICtrlCreateMenu("?")
$Help = GUICtrlCreateMenuItem("Help", $MenuItem2)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Datum - Uhrzeit", 8, 136, 233, 41)
$Label1 = GUICtrlCreateLabel($Datum &" - "& $zeit, 68, 152, 200, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Dim $AccelKeys[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($AccelKeys)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_ende()
Case $Button1
_change()
Case $Button2
_startdk()
Case $Close
_ende()
Case $Help
_help()
EndSwitch
If ProcessExists("dekaron.exe") Then
GUISetState(@SW_HIDE)
TraySetState(1)
$running = 1
Else
GUISetState(@SW_SHOW)
TraySetState(0)
$running = 0
EndIf
WEnd
Func _startdk()
$startdk = IniRead("Config.ini","path","Path","path")
If $running = 0 Then
If $startdk = "path" Or $startdk = "" Then
MsgBox(0,"Path","You'll need to set the gamepath!")
$dkpath = InputBox("Path","Type the path to dekaron.exe please!")
IniWrite("Config.ini","path","Path",$dkpath)
_startdk()
Else
Run($startdk)
EndIf
EndIf
EndFunc
Func _change()
If GUICtrlRead($Loginname) = "" Or GUICtrlRead($Passwort) = "" Or GUICtrlRead($Loginname) = "Loginname" Or GUICtrlRead($Passwort) = "Passwort" Then
MsgBox(0,"Daten eingeben", "Es wurden keine Daten eingegeben!")
Else
$idch = _StringEncrypt(1,GUICtrlRead($Loginname),"loginid",3)
$pwch = _StringEncrypt(1,GUICtrlRead($Passwort),"loginpw",3)
$idold = IniRead("Config.ini","login","Id","NoID")
$pwold = IniRead("Config.ini","login","Pw","NoPW")
If $idch <> $idold Then
IniWrite("Config.ini","login","Id",$idch)
IniWrite("Config.ini","change","Loginname","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN& ":" &@SEC&" !")
EndIf
If $pwch <> $pwold Then
IniWrite("Config.ini","login","Pw",$pwch)
IniWrite("Config.ini","change","Password","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN& ":" &@SEC&" !")
EndIf
$grund = InputBox("Grund", "Grund der Änderung:")
IniWrite("Config.ini","change","Grund",$grund)
MsgBox(0,"LoginDaten","Logindaten wurden erfolgreich aktuallisiert!")
EndIf
EndFunc
Func _start()
If $running = 1 Then
If $pause = 1 Then
If $walk = 1 Then
Beep(480,300)
$pause = 0
While $pause = 0
MouseClick("left")
WEnd
Else
MsgBox(0,"Walk","Walk ist an")
EndIf
Else
Beep(1568,200)
MsgBox(0,"An", "Ist an")
EndIf
EndIf
EndFunc
Func _walk()
If $running = 1 Then
If $walk = 1 Then
If $pause = 1 Then
Beep(480,300)
$walk = 0
While $walk = 0
Send("{w down}")
WEnd
Else
MsgBox(0,"Click","Autoclick ist an")
EndIf
Else
Beep(1568,200)
MsgBox(0,"An","Walk an")
EndIf
EndIf
EndFunc
Func _help()
If $helpbox = 5 Then
$helpbox = 0
Beep(480,300)
MsgBox(0,"Helpbox", ""&$start&" -> Autoklick" & @CRLF & @CRLF & ""&$walk&" -> Auto-W (Autolaufen)" & @CRLF & @CRLF & ""&$pause&" -> Alles Stoppen" & @CRLF & @CRLF & ""&$help&" -> Helpbox" & @CRLF & @CRLF & ""&$ende&" -> Tool Beenden")
$helpbox = 5
EndIf
EndFunc
Func _login()
If $running = 1 Then
If $login = 0 Then
$login = 1
$loginid = IniRead("Config.ini","login","Id","NoID")
$loginpw = IniRead("Config.ini","login","Pw","NoPW")
If $loginid = "NoID" Then
$id = InputBox("Name","Loginname eingeben!")
$id2 = _StringEncrypt(1,$id,"loginid",3)
IniWrite("Config.ini","login","Id",$id2)
IniWrite("Config.ini","change","Loginname","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN&" !")
Sleep(500)
_login()
ElseIf $loginpw = "NoPW" Then
$pw = InputBox("Passwort","Passwort eingeben!","","*")
$pw2 = _StringEncrypt(1,$pw,"loginpw",3)
IniWrite("Config.ini","login","Pw",$pw2)
IniWrite("Config.ini","change","Password","Last Change: "&@MDAY&"/"&@MON&"/"&@YEAR&", "&@HOUR&":"&@MIN&" !")
Sleep(500)
_login()
Else
$loginid2 = _StringEncrypt(0,$loginid,"loginid",3)
$loginpw2 = _StringEncrypt(0,$loginpw,"loginpw",3)
Beep(480,400)
MouseClick("left" , 624, 796, 1)
Sleep(1000)
MouseClick("left" , 641, 945, 1)
Sleep(1000)
Send($loginid2)
Send("{TAB}")
Sleep(100)
Send($loginpw2)
Sleep(100)
Send("{ENTER}")
Sleep(10000)
MouseClick("left" , 975, 84, 1)
MouseClick("left" , 642, 906, 1)
EndIf
EndIf
EndIf
EndFunc
Func _pause()
If $running = 1 Then
If $pause = 0 Then
Beep(480,300)
$pause = 1
Sleep(1000)
ElseIf $walk = 0 Then
Beep(480,300)
$walk = 1
Send("{w up}")
Sleep(1000)
ElseIf $login = 1 Then
Beep(480,300)
$login = 2
Sleep(1000)
Else
Beep(1568,200)
MsgBox(0,"Aus","Ist aus")
EndIf
EndIf
EndFunc
Func _ende()
Beep(480,300)
Exit
EndFunc
