Cheat Engine

[tprice88]

I have made tons of trainers with GTS 1.64 and im wanting to learn Visual Basic Or c++. If anyone could upload a source code in either language or both that supports pointers. it would help me alot.
Mainly i want to do this because in the game im hacking i need to set kills to random value between 2000-4000. and gts will not support random values.

Thank you,

[NoMercy]

It would be easier for everyone, if you first learn the basics of C++ (or c#). After that, this kind of stuff will be easy for you.

[tprice88]

Heres my code i got so far but its not working for visual basic 6.0
this is the module

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

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
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
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function Hotkey Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

Public Function WPM(gamewindowtext As String, address As Long, value As Long, bytes As Byte)
Dim handle As Long
Dim processID As Long
Dim ProcessHandle As Long
handle = FindWindow(vbNullString, gamewindowtext)
GetWindowThreadProcessId handle, processID
ProcessHandle = OpenProcess(&H1F0FFF, True, processID)
WriteProcessMemory ProcessHandle, address, value, bytes, 0
CloseHandle ProcessHandle
End Function

Public Function WPMbuf(gamewindowtext As String, address As Long, value As Byte, bytes As Byte)
Dim handle As Long
Dim processID As Long
Dim ProcessHandle As Long
handle = FindWindow(vbNullString, gamewindowtext)
GetWindowThreadProcessId handle, processID
ProcessHandle = OpenProcess(&H1F0FFF, True, processID)
WriteProcessMemory ProcessHandle, address, value, bytes, 0
CloseHandle ProcessHandle
End Function


Public Function RPM(gamewindowtext As String, address As Long, value As Long, bytes As Long)
Dim handle As Long
Dim processID As Long
Dim ProcessHandle As Long
handle = FindWindow(vbNullString, gamewindowtext)
GetWindowThreadProcessId handle, processID
ProcessHandle = OpenProcess(&H1F0FFF, True, processID)
ReadProcessMem ProcessHandle, address, value, bytes, 0
CloseHandle ProcessHandle
End Function

AND THIS IS THE CODE FOR THE FORM, ANYONE KNOW WHATS WRONG?

Private Sub Command1_Click()
Dim PointerValue As Long

Dim AddressDec As Long
Dim AddressHex As String
Dim NewAddress As Long

Call RPM("Well of Souls", &H67FBF8, PointerValue, 4)

AddressDec = PointerValue + 1832
AddressHex = Hex(AddressDec)
NewAddress = "&H" & AddressHex

Call WPM("Well of Souls", NewAddress, &H3000, 2)

End Sub

[Stylo]

I believe that the lines

[DDS]

Use &H before the numbers when u r turning Addresses into words in vb.net
Example AddressDEC = Something + &H12345

&H = Hexadecimal Numbers

[atom0s]

[DDS]

@ Pingo u r right the code is wrong i made a boo boo
ill fix it as soon as i can

[Pingo]

@<<< DDS >>
That code doesnt really make sence to me.
The first argument for both read and write is an integer but you're using the process name as a string. Which isnt even used in your functions.
PHandle, when was this created.
Also shouldnt you be writing the offsets as an int array and not a single int.
I might be wrong since i dont code in vb but i thought id point it out incase he tried to just copy it.