Code:
#RequireAdmin
#include <NomadMemory.au3>
GuiCreate("Speed hack",461,429,372,2)
$button1=GuiCtrlCreateButton("On",15,106,50,50)
$button2=GuiCtrlCreateButton("Off",14,174,50,50)
$button3=GuiCtrlCreateButton("Exit Speedhack",29,339,384,26)
$button4=GuiCtrlCreateButton("Exit and go to Homepage",29,404,384,26)
$L1=GUICtrlCreateLabel("SpeeD Hack",5,70,275,17)
GuiSetState()
$OnOff = 0
$Pause = 0
While 1
Check()
WEnd
Func Check()
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
If $msg=$button4 Then button4()
EndFunc
Func button1()
if $OnOff == 0 then
$OnOff = 1
EndIF
SetPrivilege("SedDebugPrivilege", 1)
$PID = WinExists("METIN2")
if $PID = 0 then
MsgBox(16, "Fehler", "Prozess nicht gefunden!")
Exit
EndIf
$Open = _MemoryOpen($PID)
Dim $Read = 0
While 1
$PID = WinGetProcess("METIN2")
$Open = _MemoryOpen($PID)
_MemoryWrite(0x001F74FC, $Open, 5)
WEnd
_MemoryClose("METIN2")
Check()
EndFunc
Func button2()
$Pause = 0
While $Pause == 0
$msg=guiGetMsg()
If $msg=$button1 Then $Pause = 1
If $msg=$button2 Then $Pause = 1
If $msg=$button3 Then Exit
Wend
EndFunc
Func button3()
Exit
EndFunc
Func button4()
ShellExecute ("http://www.thebloodofdragon.npage.de")
Exit
EndFunc