 |
07-27-2009, 02:50 AM
|
 |
Member
|
|
Join Date: Jul 2009
Posts: 40
|
|
Changing Hex Value
I was attempting to create a little program that would change ONE hex value of a specific program to a certain value, but don't really know how to do it. Could someone give me an example code with a button or something? Thanks in advance!
Last edited by jeff223 : 07-09-2010 at 09:00 PM.
|
07-28-2009, 01:59 AM
|
|
Legend
|
|
Join Date: Jan 2007
Posts: 10,897
 
|
|
Re: Changing Hex Value
Like a memory editor?
__________________
PM me with any issues.
I do not MM or trade anything.
Anyone claiming to be me in a trade or MM is an imposter.
|
07-28-2009, 02:05 AM
|
 |
Leecher
|
|
Join Date: Jun 2008
Location: Southern California
Posts: 2,359
|
|
Re: Changing Hex Value
I made one of these in Java a few weeks ago(I was bored, Lol). Unfinished, and not too sure if it'll be much help to you (Java isn't very much like vB), but here's the download. NOTE: It's not the nicest program (kinda sloppy), but it works (somewhat). You get the idea, 
http://rapidshare.de/files/47966377/Hex_Editor.zip.html
Last edited by Jimmy : 07-28-2009 at 02:12 AM.
|
07-28-2009, 12:09 PM
|
 |
Massive Troll
|
|
Join Date: May 2006
Location: The internet.
Posts: 1,604
|
|
Re: Changing Hex Value
You want to edit the actual file or the memory?
__________________
I do not trade.
Always ask for a PM.
|
08-03-2009, 07:20 AM
|
 |
Grand Master
|
|
Join Date: May 2005
Location: USA, Oregon
Posts: 3,018
|
|
Re: Changing Hex Value
Add this to your module... Code is not by me
Code:
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal SomeValueIsStoredHere 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 WriteALong(TheGame As String, TheAddress As Long, ThisIsTheValue As Long)
Dim SomeValueIsStoredHere As Long
Dim SomeValueIsStoredHereToo As Long
Dim SomeValue As Long
SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
If (SomeValue = 0) Then
Exit Function
End If
WriteProcessMemory SomeValue, TheAddress, ThisIsTheValue, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadALong(TheGame As String, TheAddress As Long, TheValue As Long)
Dim SomeValueIsStoredHere As Long
Dim SomeValueIsStoredHereToo As Long
Dim SomeValue As Long
SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
If (SomeValue = 0) Then
Exit Function
End If
ReadProcessMem SomeValue, TheAddress, TheValue, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadAFloat(TheGame As String, TheAddress As Long, TheValue As Single)
Dim SomeValueIsStoredHere As Long
Dim SomeValueIsStoredHereToo As Long
Dim SomeValue As Long
SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
If (SomeValue = 0) Then
Exit Function
End If
ReadProcessMem SomeValue, TheAddress, TheValue, 4, 0&
CloseHandle hProcess
End Function
Public Function WriteAFloat(TheGame As String, TheAddress As Long, ThisIsTheValue As Single)
Dim SomeValueIsStoredHere As Long
Dim SomeValueIsStoredHereToo As Long
Dim SomeValue As Long
SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
If (SomeValue = 0) Then
Exit Function
End If
WriteProcessMemory SomeValue, TheAddress, ThisIsTheValue, 4, 0&
CloseHandle hProcess
End Function
Original Code by Diamondo25
Get your HEX code with cheat engine... I hope you know how to do this.. If not reply and i will show you how.
Use this in your form
&HA00000 = HEX CODE
999999 = VALUE TO CHANGE TO
Code:
Call WriteALong("TITLE OF APP", &HA00000, 99)
There are TONS more functions in that module.. look at em 
__________________
I DO NOT MM, I DO NOT BUY STUFF, I DO NOT SELL STUFF, I DO NOT PLAY RUNESCAPE!
|
|
|
Changing Hex Value
Linear Mode
