Can someone help me?

[clipster15]

I'm making a hack and I can get every thing to work but offsets.

Like stamina for example:


' ' This is in a timer with interval set to 1
Dim address1 As Long
Dim address2 As Long
Call ReadALong("WarRock", &H136A0E0, address1)
address2 = address1 + &H288
Call WriteALong("WarRock", address2, 1120403456)


And weapon:


' ' This is in a timer with interval set to 1
Dim address1 As Long
Dim address2 As Long
Call ReadALong("WarRock", &H136A0E0, address1)
address2 = address1 + &H4C
Call WriteALong("WarRock", address2, 44)



None of those work.

I'm using VB.Net,


Thanks.

[frostbitekid]

try this for stamina

Dim stam2 As Long
Dim stam3 As Long
Call ReadAlong("WarRock", &H136A0F0, stam1)
stam2 = stam1 + &H288
stam3 = 100
Call WriteAFloat("WarRock", stam2, stam3)

u freeze it at 100 for readafloat

and for weapons

Dim gun1 As Long
Dim gun2 As Long
Dim gun3 As Long
Call ReadAlong("WarRock", &H136A0F0, gun1)
gun2 = gun1 + &H4C
gun3 = txtGun.Text
Call WriteAlong("WarRock", gun2, gun3)

you need a textbox for the gun. make a txtbox and name it txtGun. name it, not the caption. and then put "42" as the text inside the txtbox. 42 will give you wichester, the only gun that does damage.

[clipster15]

No.

The game does not crash or anything. It's just like as if it's not the right address.


Ive even tried other peoples hacks with stamina and theres don't work either.

Are these the right addresses?


EDIT:

Heres the code that reads a long:


''Public Delcarations
Public Const PAA3911 = &H1F0FFF
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function FindWin Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As IntPtr
Public Declare Function OpenProcess Lib "kernel32 " (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As IntPtr
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As IntPtr) As Integer
Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Short, ByVal lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Short, ByVal lpNumberOfBytesWritten As Integer) As Integer

Public Function RdAlong(ByVal WinName7347 As String, ByVal Address3757 As Long, ByVal WD2415 As Long)
Dim FW2816 As Long
Dim ProcID3365 As Long
Dim PH3798 As Long
FW2816 = FindWin(Nothing, WinName7347)
GetWindowThreadProcessId(FW2816, ProcID3365)
PH3798 = OpenProcess(PAA3911, False, ProcID3365)
ReadProcessMemory(PH3798, Address3757, WD2415, 4, 0&)
Return 0
End Function



Is there somthing wrong with that?

I notice that if I do this:


Dim address As Long
RdAlong("WarRock", &H136A0E0, address)
MsgBox(address)


The message box always holds 0.

Which I believe it supposed to get the value, right?

[frostbitekid]

whats with the rapidshare link in ur module?

[clipster15]

http://rapidshare.com/files/103182701/module.txt.html

[frostbitekid]

Dim address As Long
RdAlong("WarRock", &H136A0E0, address)
MsgBox(address)


u do know the addresses that are supposed to go in the parts u wrote addresses right?

[clipster15]

Yeah, it's the player pointer + the offset, right?

[frostbitekid]

yea, but u need to fill them in, not leave them as addresses.

[clipster15]

Could you show me an example?