[Hack] - XYZ

[Justinbank]

Hmm doesnt work for me ... jamb92 could u plz upload ur pointers?

[hampe90pro]

Yeah, would be awesome if you could share that, cause cant get it working either.

[Justinbank]

Try this hxxp://rapidshare.com/files/105199714/XyZ.rar.html (change xx to tt)
Maybe your fault is that u start the hack and than WoW
U need to start WoW and than the hack
That worked for me.

Have fun

[hampe90pro]

just gettin "the new pointers arent aviable yet, please try again later. The application will now shut down." message :/ tho thanks for the other dl link, will rep u when i can

[goonsdoom]

you might have already said but is this for 2.4.1 too

[Eepi]

http://www.filedropper.com/xyz_1. There you go. That is the latest version of this and its working for me in 2.4.1.

PS. Awwe, just tell if you want me to remove the link.

[Lindoz12]

' API
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Private Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Private Type FloatData
dta As Single
End Type
Private Type LongData
dta As Long
End Type


'OLE Constants
Global Const OLE_CREATE_NEW = 0
Global Const OLE_CREATE_FROM_FILE = 1
Global Const OLE_COPY = 4
Global Const OLE_PASTE = 5
Global Const OLE_UPDATE = 6
Global Const OLE_ACTIVATE = 7
Global Const OLE_EXECUTE = 8
Global Const OLE_CLOSE = 9
Global Const OLE_DELETE = 10
Global Const OLE_SAVE_TO_FILE = 11
Global Const OLE_READ_FROM_FILE = 12
Global Const OLE_CONVERT_TO_TYPE = 13
Global AddedNew
Global xFilename
'End OLE Constants

Enum soundConstants 'Start soundConstants
snd_sync = &H0 ' play synchronously (default)
SND_ASYNC = &H1 ' play asynchronously
SND_NODEFAULT = &H2 ' silence (!default) if sound not found
SND_MEMORY = &H4 ' pszSound points to a memory file
SND_LOOP = &H8 ' loop the sound until next sndPlaySound
SND_NOSTOP = &H10 ' don't stop any currently playing sound
SND_NOWAIT = &H2000 ' don't wait if the driver is busy
SND_ALIAS = &H10000 ' name is a registry alias
SND_ALIAS_ID = &H110000 ' alias is a predefined ID
SND_FILENAME = &H20000 ' name is file name
SND_RESOURCE = &H40004 ' name is resource name or atom
SND_PURGE = &H40 ' purge non-static events for task
SND_APPLICATION = &H80 ' look for application specific association
End Enum 'End soundConstants

'Window/Process Name Global Strings
Public Const strWN = "World of Warcraft"
Public Const strGameEXE = "Wow.exe"

'Process Stuffs
Public ProcessHandle As Long
Public bolConnected As Boolean
Public bolEXEInMemory As Boolean


'Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Function GamePID() As Long
On Error GoTo EH
Dim objWMI, objProcess, objProcesses
Dim intCounter, intRetVal As Integer
Dim bolTaskFound As Boolean
bolEXEInMemory = False
SetConnected
Set objWMI = GetObject("winmgmts://.")
If Err.Number <> 0 Then
SetConnected
GamePID2
Exit Function
End If
Set objProcesses = objWMI.execquery("Select * from win32_process")
If objProcesses.Count = 0 Then
SetConnected
GamePID2
Exit Function
End If
For Each objProcess In objProcesses
bolTaskFound = False
If UCase(objProcess.Name) = UCase(strGameEXE) Then
bolEXEInMemory = True
GamePID = objProcess.ProcessID
ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, objProcess.ProcessID)
If ProcessHandle = 0 Then
If (bolConnected = True) Then
End If
SetConnected
Else
SetConnected
End If
Exit Function
End If
Next

Exit Function
EH:
GamePID2
Exit Function
End Function

Public Function GamePID2() As Long
On Error GoTo EH
Dim hwnd As Long
Dim ProcessID As Long
Dim ProcessHandle As Long
' Find game based on window name, rather then use WMI.
hwnd = FindWindow(vbNullString, strWN)
If hwnd = 0 Then
bolEXEInMemory = False
SetConnected
Exit Function
End If
bolEXEInMemory = True
GetWindowThreadProcessId hwnd, ProcessID
ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
If ProcessHandle = 0 Then
SetConnected
Exit Function
End If
SetConnected

Exit Function
EH:
'MsgBox "An error occured while in the GamePID2 function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
SetConnected
Resume Next
End Function

'SetConnected is executed when the trainer makes or can't make a connection to the game.
'It does things like set the Status bar text, etc.
Public Function SetConnected()
Dim i As Integer

Select Case bolEXEInMemory
Case Is = True
'Game In Mem CASE
Case Is = False
'Game Not In Mem CASE
ProcessHandle = 0
End Select

Select Case ProcessHandle
Case Is = 0
'Game Not In Mem CASE
bolConnected = False
Case Else
'Game In Mem CASE
bolConnected = True
End Select
End Function

Public Function ReadXBytes(Offset As Long, ReadLen As Long) As Long
On Error GoTo EH
Dim Value As Long

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
Exit Function

End If

If ReadLen < CLng(1&) Then
ReadLen = CLng(4&)
End If

ReadProcessMem ProcessHandle, Offset, Value, ReadLen, 0&
ReadXBytes = Value

Exit Function
EH:
'MsgBox "An error occured while in the ReadXBytes function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function Read4Bytes(Offset As Long, ReadLen As Long) As Long
On Error GoTo EH
Dim Value As Long

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
Exit Function

End If

If ReadLen < CLng(1&) Then
ReadLen = CLng(4&)
End If

ReadProcessMem ProcessHandle, Offset, Value, ReadLen, 0&
Read4Bytes = Value

Exit Function
EH:
'MsgBox "An error occured while in the Read4Bytes function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function Read4Byte(Offset As Long) As Long
On Error GoTo EH
Dim Value As Long

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
Exit Function

End If

If ReadLen < CLng(1&) Then
ReadLen = CLng(4&)
End If

ReadProcessMem ProcessHandle, Offset, Value, 4, 0&
Read4Byte = Value

Exit Function
EH:
'MsgBox "An error occured while in the Read4Byte function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function Read2Byte(Offset As Long) As Long
On Error GoTo EH
Dim Value As Long

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
Exit Function

End If

If ReadLen < CLng(1&) Then
ReadLen = CLng(4&)
End If

ReadProcessMem ProcessHandle, Offset, Value, 2, 0&
Read2Byte = Value

Exit Function
EH:
'MsgBox "An error occured while in the Read2Byte function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function ReadByte(Offset As Long) As Long
On Error GoTo EH
Dim Value As Long

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
Exit Function

End If

If ReadLen < CLng(1&) Then
ReadLen = CLng(4&)
End If

ReadProcessMem ProcessHandle, Offset, Value, 1, 0&
ReadByte = Value

Exit Function
EH:
'MsgBox "An error occured while in the ReadByte function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function Write4Bytes(Offset As Long, Value As Long) As Boolean
On Error GoTo EH

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
End If

Write4Bytes = WriteProcessMemory(ProcessHandle, Offset, Value, 4, 0&)

Exit Function
EH:
MsgBox "An error occured while in the Write4Bytes function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function Write2Bytes(Offset As Long, Value As Long) As Boolean
On Error GoTo EH

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
End If

Write2Bytes = WriteProcessMemory(ProcessHandle, Offset, Value, 2, 0&)

Exit Function
EH:
'MsgBox "An error occured while in the Write2Bytes function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function WriteByte(Offset As Long, Value As Long) As Boolean
On Error GoTo EH

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
End If

WriteByte = WriteProcessMemory(ProcessHandle, Offset, Value, 1, 0&)

Exit Function
EH:
MsgBox ("An error occured while in the WriteByte function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description)
Resume Next
End Function

Public Function WriteXBytes(Offset As Long, Value As Long, SizeLen As Long) As Boolean
On Error GoTo EH

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
End If

WriteXBytes = WriteProcessMemory(ProcessHandle, Offset, Value, SizeLen, 0&)

Exit Function
EH:
'MsgBox "An error occured while in the WriteXBytes function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function LngToFlt(lngData As Long) As Double
On Error GoTo EH
Dim lngLongData As LongData
Dim fltFloatData As FloatData

lngLongData.dta = lngData
LSet fltFloatData = lngLongData
LngToFlt = CDbl(fltFloatData.dta)

Exit Function
EH:
'MsgBox "An error occured while in the LngToFlt function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function FltToLng(fltData As Double) As Long
On Error GoTo EH
Dim lngLongData As LongData
Dim fltFloatData As FloatData

fltFloatData.dta = fltData
LSet lngLongData = fltFloatData
FltToLng = lngLongData.dta

Exit Function
EH:
'MsgBox "An error occured while in the FltToLng function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function ReadAscii(Offset As Long, ReadLen As Long) As String
On Error GoTo EH
Dim Value As Long
Dim AsciiString As String
Dim Index As Integer
Dim NewOffset As Long

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
Exit Function

End If

For Index = 0 To (ReadLen - 1)
NewOffset = Offset + Index
ReadProcessMem ProcessHandle, NewOffset, Value, 1, 0&
AsciiString = AsciiString & Chr(Value)
Next

ReadAscii = AsciiString

Exit Function
EH:
'MsgBox "An error occured while in the ReadAscii function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function



Public Function WriteFloat(Offset As Long, Value As Double) As Boolean
On Error GoTo EH
Dim LngValue As Long

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
End If

LngValue = FltToLng(Value)
WriteFloat = WriteProcessMemory(ProcessHandle, Offset, LngValue, 4&, 0&)

Exit Function
EH:
'MsgBox "An error occured while in the WriteFloat function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Public Function ReadFloat(Offset As Long) As Double
On Error GoTo EH
Dim Value As Long

If ProcessHandle = 0 Then
GamePID
If ProcessHandle = 0 Then
Exit Function
End If
Exit Function

End If

If ReadLen < CLng(1&) Then
ReadLen = CLng(4&)
End If

ReadProcessMem ProcessHandle, Offset, Value, 4, 0&
ReadFloat = LngToFlt(Value)

Exit Function
EH:
'MsgBox "An error occured while in the ReadFloat function." & vbNewLine & "Error Number: " & Err.Number & vbNewLine & "Error Description: " & Err.Description
Resume Next
End Function

Some of the API

WriteFloat &H8D6080, 3247909464# <--- Is adding a "#" on the end and the hack aint working, please help! post me!

[hampe90pro]

thnks for the link.. but still doesnt work :/

[Tanzor]

realy realy nice dude !!

[hampe90pro]

bump.. can someone do somethin'? Cant really get it workin :S

[Dr_Freeman]

if you have the latest version and cant get the pointers here you go:

[Pointers]
Main=0x0E849E0
Version=0x0D06020
Build=8125
[Plus]
X=0xBF4
Y=0xBF0
Z=0xBF8

put that in your pointers.ini file. they are what i use and are tested and working on 2.4.1 retail. have fun!

[munkenfunk]

Well, i cant get it working, i cant move up in the air... else my wow will close down and make an error..

[hampe90pro]

thanks dr_freeman but doesn't work :/

[hampe90pro]

sorry for being annoying and bring it up, but i seriously cant get this working..

[R0w4n]

No update on this yet? What is Awwe doing?