MPGHThe Dark Arts
RegisterLog in

value from a float..?

Posts 1–12 of 12 · Page 1 of 1
value from a float..?
hi,

how due i get the value of a pointer with an offset..?

like coordinates.. i got the right adress and offset.. but how can i read it..?

i tried:

Private Sub Timer1_Timer()
Dim j As Long
Dim j1 As Long
Dim j3 As Single
Call ReadALong("WarRock", &H_pointer, j)
jump1 = jump + &H_offset
jump3 = Text1.Text
Call ReadALong("WarRock", j1, j3)
End Sub

whats wrong..? neede the value (=coordinate)
#1 ·
IF IT IS A FLOAT,srry caps u cant do call writealong,you have to use call writeafloat
#2 ·
but i like to READ it...

i like to GET the value.. not WRITE it-- ^^
#3 ·
yea readafloat,and writeafloat are what u need for floats,and you need my addon for the module
#4 ·
Quote Originally Posted by cjg333 View Post
yea readafloat,and writeafloat are what u need for floats,and you need my addon for the module
thank alot seems easy
#5 ·
Quote Originally Posted by cjg333 View Post
yea readafloat,and writeafloat are what u need for floats,and you need my addon for the module
thank alot seems easy enough
#6 ·
readafloat doesnt work.. runtime error 47.. or so.. ^^
#7 ·
did you add my addon to the redeyes module

heres the module with my addon for float values

Code:
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public 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, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public 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 Function WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function

Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single) 
Dim hWnd As Long 
Dim pid As Long 
Dim phandle As Long 
hWnd = FindWindow(vbNullString, gamewindowtext) 
If (hWnd = 0) Then 
MsgBox "The Game Is Not Working", vbCritical, "Error" 
End 
Exit Function 
End If 

GetWindowThreadProcessId hWnd, pid 
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) 
If (phandle = 0) Then 
MsgBox "Can't get ProcessId", vbCritical, "Error" 
Exit Function 
End If 

ReadProcessMem phandle, address, valbuffer, 4, 0& 
CloseHandle hProcess 
End Function 



Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single) 
Dim hWnd As Long 
Dim pid As Long 
Dim phandle As Long 

hWnd = FindWindow(vbNullString, gamewindowtext) 
If (hWnd = 0) Then 
MsgBox "The Game Is Not Working", vbCritical, "Error" 
End 
Exit Function 
End If 

GetWindowThreadProcessId hWnd, pid 
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) 
If (phandle = 0) Then 
MsgBox "Can't get ProcessId", vbCritical, "Error" 
Exit Function 
End If 

WriteProcessMemory phandle, address, value, 4, 0& 
CloseHandle hProcess 
End Function
#8 ·
thx a lot for this module man, i was searchin for one with the writeafloat !
#9 ·
lol zosky i love ur sig
#10 ·
lol thx but its outdated....and im too lazy to remove it
#11 ·
lol this is my normal value.. but ReadAFloat dont work ^^
#12 ·
Posts 1–12 of 12 · Page 1 of 1
This thread is closed for replies.

Similar Threads

Visual Basic ProgrammingPulling values from CEutherson601utherson601 13 Call of Duty Modern Warfare 2 GSC Modding Help/DiscussionRound up float valueedub18edub18 3 Visual Basic Programmingfloat value to write???HAhack_tr 2 Visual Basic Programming[vb6] How do i read a float from memory(pointer+offset)+how to use multilevelpointerFRfreitag 5 Hack Requestsnooby question from a nooby guyace76543ace76543 9

Tags for this Thread

None

Talk with us