Code:
Opt("SendKeyDelay", 1)
Opt("SendKeyDownDelay", 1)
GUICreate(" Krypton's Wall Hack Version1.0 BETA", 300, 230, "", "", 1)
$PWN = GUICtrlCreateButton("GRAB YOUR COORDS!", 70, 95)
$STATUS = GUICtrlCreateLabel("Click (GRAB YOUR COORDS!) to Start Hack!", 15, 10, 220, 40)
$PIC1 = GUICtrlCreatePic("F:\PhotoShopStuff\JaysSigs\wallhacklogo.jpg", 15, 130, 250, 68, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$JUMPVALUE = GUICtrlCreateCheckbox("Enable Super Jump", 75, 45)
$TRACKER = GUICtrlCreateButton("Start WoW Tracker!", 70, 67)
$EXITME = GUICtrlCreateButton("Exit Hack", 235, 100)
If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then
RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _STRINGENCRYPT(1, _NOWCALC(), @ComputerName))
SetError(0)
EndIf
$STARTDATE = _STRINGENCRYPT(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName)
If _DATEDIFF("D", $STARTDATE, _NOWCALC()) > 30 Then
MsgBox(0, "*XPClean Menu*", "You're 30-Day BETA Testing period has expired. Please check Http://www.KryptonWorkz.info/ or MMOWNED For the latest Version of this hack! Thank you for testing!")
Exit
EndIf
$ON = 0
GUISetState(@SW_SHOW)
Dim $BFREEZE
Dim $FREEZEZ
Dim $PTRPLAYER = 19390484
Dim $INTPLAYERXOFFSET = 2000
Dim $INTPLAYERYOFFSET = 2004
Dim $INTPLAYERZOFFSET = 2008
Dim $PTRPLAYERX, $PTRPLAYERY, $PTRPLAYERZ, $PTRPLAYERBASE
$FUN = "1"
Dim $HPROCESS
$DLL = DllOpen("user32.dll")
SETPRIVILEGE("SeDebugPrivilege", 1)
HotKeySet("{F5}", "startfreeze")
HotKeySet("{F6}", "stopfreeze")
Func GETPOINTER()
Dim $INTPID = WinGetProcess("World of Warcraft")
$HPROCESS = _MEMORYOPEN($INTPID)
Dim $LVL1POINTER = _MEMORYREAD($PTRPLAYER, $HPROCESS, "ptr")
Dim $LVL2POINTER = _MEMORYREAD(($LVL1POINTER + 48), $HPROCESS, "ptr")
Dim $MEMSTART = _MEMORYREAD(($LVL2POINTER + 40), $HPROCESS, "ptr")
$PTRPLAYERX = $MEMSTART + $INTPLAYERXOFFSET
$PTRPLAYERY = $MEMSTART + $INTPLAYERYOFFSET
$PTRPLAYERZ = $MEMSTART + $INTPLAYERZOFFSET
$FREEZEZ = _MEMORYREAD($PTRPLAYERZ, $HPROCESS, "float")
GUICtrlSetData($STATUS, "Got it! Ready to Start hacking!")
HOTKEYZ()
EndFunc
Func HOTKEYZ()
While $FUN = "1"
If _ISPRESSED("68", $DLL) Then
TELEPORT("north")
ElseIf _ISPRESSED("64", $DLL) Then
TELEPORT("west")
ElseIf _ISPRESSED("65", $DLL) Then
TELEPORT("south")
ElseIf _ISPRESSED("66", $DLL) Then
TELEPORT("east")
ElseIf _ISPRESSED("67", $DLL) Then
TELEPORT(5)
ElseIf _ISPRESSED("69", $DLL) Then
TELEPORT(6)
ElseIf _ISPRESSED("61", $DLL) Then
TELEPORT(7)
ElseIf _ISPRESSED("63", $DLL) Then
TELEPORT(8)
EndIf
$MSG = GUIGetMsg()
Select
Case $MSG = $GUI_EVENT_CLOSE
ExitLoop
Case $MSG = $PWN
GETPOINTER()
Case $MSG = $TRACKER
Run("WOWTracker.exe")
Case $MSG = $EXITME
Exit
EndSelect
WEnd
EndFunc
While 1
$MSG = GUIGetMsg()
Select
Case $MSG = $GUI_EVENT_CLOSE
_MEMORYCLOSE($INTPID)
ExitLoop
Case $MSG = $PWN
GETPOINTER()
Case $MSG = $TRACKER
Run("WOWTracker.exe")
Case $MSG = $EXITME
Exit
EndSelect
WEnd
Func FREEZEZ()
While $BFREEZE
_MEMORYWRITE($PTRPLAYERZ, $HPROCESS, $FREEZEZ, "float")
WEnd
EndFunc
Func STARTFREEZE()
$BFREEZE = True
FREEZEZ()
EndFunc
Func STOPFREEZE()
$BFREEZE = False
EndFunc
Func TELEPORT($DIRE)
Select
Case $DIRE = "north"
$YEAH = _MEMORYREAD($PTRPLAYERY, $HPROCESS, "float")
$REAL = $YEAH + 0.12
_MEMORYWRITE($PTRPLAYERY, $HPROCESS, $REAL, "float")
Send("{left}{left}{right}{right}")
Sleep(10)
Case $DIRE = "west"
$YEAH = _MEMORYREAD($PTRPLAYERX, $HPROCESS, "float")
$REAL = $YEAH + 0.12
_MEMORYWRITE($PTRPLAYERX, $HPROCESS, $REAL, "float")
Send("{left}{left}{right}{right}")
Sleep(10)
Case $DIRE = "south"
$YEAH = _MEMORYREAD($PTRPLAYERY, $HPROCESS, "float")
$REAL = $YEAH - 0.12
_MEMORYWRITE($PTRPLAYERY, $HPROCESS, $REAL, "float")
Send("{left}{left}{right}{right}")
Sleep(10)
Case $DIRE = "east"
$YEAH = _MEMORYREAD($PTRPLAYERX, $HPROCESS, "float")
$REAL = $YEAH - 0.12
_MEMORYWRITE($PTRPLAYERX, $HPROCESS, $REAL, "float")
Send("{left}{left}{right}{right}")
Sleep(10)
Case $DIRE = 5
$YEAH = _MEMORYREAD($PTRPLAYERZ, $HPROCESS, "float")
$REAL = $YEAH + 1
If GUICtrlRead($JUMPVALUE) = $GUI_CHECKED Then
$REAL = $YEAH + 7
EndIf
_MEMORYWRITE($PTRPLAYERZ, $HPROCESS, $REAL, "float")
Case $DIRE = 6
$YEAH = _MEMORYREAD($PTRPLAYERZ, $HPROCESS, "float")
$REAL = $YEAH - 1
If GUICtrlRead($JUMPVALUE) = $GUI_CHECKED Then
$REAL = $YEAH - 7
EndIf
_MEMORYWRITE($PTRPLAYERZ, $HPROCESS, $REAL, "float")
Case $DIRE = 7
$YEAH = _MEMORYREAD($PTRPLAYERZ, $HPROCESS, "float")
$REAL = $YEAH + 1
Sleep(30)
If GUICtrlRead($JUMPVALUE) = $GUI_CHECKED Then
$REAL = $YEAH + 7
EndIf
_MEMORYWRITE($PTRPLAYERZ, $HPROCESS, $REAL, "float")
Case $DIRE = 8
$YEAH = _MEMORYREAD($PTRPLAYERZ, $HPROCESS, "float")
$REAL = $YEAH - 1
If GUICtrlRead($JUMPVALUE) = $GUI_CHECKED Then
$REAL = $YEAH - 7
EndIf
_MEMORYWRITE($PTRPLAYERZ, $HPROCESS, $REAL, "float")
Sleep(30)
EndSelect
EndFunc
I'm not too sure how to comment on the 30 day trial bit... heh.