Home › Forum › MultiPlayer Game Hacks & Cheats › Call of Duty Hacks & Cheats › Call of Duty 8 - Modern Warfare 3 (MW3) Hacks & Cheats › Call of Duty Modern Warfare 3 Coding, Programming & Source Code › VB.Net Memory Class (Writen by Jorndel)
VB.Net Memory Class (Writen by Jorndel)
VB.Net Memory Class (Writen by Jorndel)
Well, so I re-wrote the Trainer Class. (Also re-named it.)
What is new:
It's way shorter thanks too: Dr. D (That informed me that I didn't need to use the OpenProcess()
)
New Functions:
Process_Handle = Process to write/read too. (Returns an Boolean Value)
-Write-
WriteInteger = Writes an integer. (4 byte) Address = Offset to Write. Value = Value to Write.
WriteString = Writes an string. Address = Offset to Write. Text= String to Write.
WriteBytes = Writes an Byte Array. Address = Offset to Write. Bytes= Byte Array to Write.
WriteNOP = Writes an Byte Array. 5 Bytes of 0x90. Address = Offset to Write.
-Read-
ReadInteger = Reads an integer. (4 Byte also able to change) Address = Offset to Read. Length = Bytes to write [OPTIMAL]
ReadString = Reads an string. Address = Offset to Read from. Length = Length to read.
ReadBytes = Reads an Byte Array. Address = Offset to Read from. Length = Length to read.
-Extra-
HotKey = Allow you to check if the key is down. (Need to be in a timer to work)
Check_Value = Allow you to check the input in the TextBox / String. (If it's not a number, it returns 0. Else the written value)
Image:
Scans:
Memory Class VB.Net.rar - Jotti's malware scan
https://www.virustotal.com/file/c445...is/1337500752/
Report - Antivirus online virus scan - viruschief.com
What is new:
It's way shorter thanks too: Dr. D (That informed me that I didn't need to use the OpenProcess()
)New Functions:
Process_Handle = Process to write/read too. (Returns an Boolean Value)
-Write-
WriteInteger = Writes an integer. (4 byte) Address = Offset to Write. Value = Value to Write.
WriteString = Writes an string. Address = Offset to Write. Text= String to Write.
WriteBytes = Writes an Byte Array. Address = Offset to Write. Bytes= Byte Array to Write.
WriteNOP = Writes an Byte Array. 5 Bytes of 0x90. Address = Offset to Write.
-Read-
ReadInteger = Reads an integer. (4 Byte also able to change) Address = Offset to Read. Length = Bytes to write [OPTIMAL]
ReadString = Reads an string. Address = Offset to Read from. Length = Length to read.
ReadBytes = Reads an Byte Array. Address = Offset to Read from. Length = Length to read.
-Extra-
HotKey = Allow you to check if the key is down. (Need to be in a timer to work)
Check_Value = Allow you to check the input in the TextBox / String. (If it's not a number, it returns 0. Else the written value)
Image:
Scans:
Memory Class VB.Net.rar - Jotti's malware scan
https://www.virustotal.com/file/c445...is/1337500752/
Report - Antivirus online virus scan - viruschief.com
so should I use this instead of
Code:
<Flags()> _
Public Enum ProcessAccessType
PROCESS_TERMINATE = (&H1)
PROCESS_CREATE_THREAD = (&H2)
PROCESS_SET_SESSIONID = (&H4)
PROCESS_VM_OPERATION = (&H8)
PROCESS_VM_READ = (&H10)
PROCESS_VM_WRITE = (&H20)
PROCESS_DUP_HANDLE = (&H40)
PROCESS_CREATE_PROCESS = (&H80)
PROCESS_SET_QUOTA = (&H100)
PROCESS_SET_INFORMATION = (&H200)
PROCESS_QUERY_INFORMATION = (&H400)
End Enum
<DllImport("kernel32.dll")> _
Public Shared Function OpenProcess(ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr
End Function
<DllImport("kernel32.dll")> _
Public Shared Function CloseHandle(ByVal hObject As IntPtr) As Int32
End Function
<DllImport("kernel32.dll")> _
Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesRead As IntPtr) As Int32
End Function
<DllImport("kernel32.dll")> _
Public Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
End Function
Public Function Hack(ByVal Application As String) As Boolean
Dim pArray As Process() = Process.GetProcessesByName(Application)
If pArray.Length = 0 Then
Return True
End If
ReadProcess = pArray(0)
Open()
Return False
End Function
Public Sub SetInt(ByVal Address As Integer, ByVal Value As Integer)
Dim byteswritten As Integer
Write(Address, BitConverter.GetBytes(Value), byteswritten)
End Sub
Public Sub SetByte(ByVal Address As Integer, ByVal Value As Byte())
Dim byteswritten As Integer
Write(Address, Value, byteswritten)
End Sub
Private Property ReadProcess() As Process
Get
Return m_ReadProcess
End Get
Set(ByVal value As Process)
m_ReadProcess = value
End Set
End Property
Private m_ReadProcess As Process = Nothing
Private m_hProcess As IntPtr = IntPtr.Zero
Private Sub Open()
Dim access As ProcessAccessType
access = ProcessAccessType.PROCESS_VM_READ Or ProcessAccessType.PROCESS_VM_WRITE Or ProcessAccessType.PROCESS_VM_OPERATION
m_hProcess = OpenProcess(CUInt(access), 1, CUInt(m_ReadProces*****))
End Sub
Private Sub CloseHandle()
Dim iRetValue As Integer
iRetValue = CloseHandle(m_hProcess)
If iRetValue = 0 Then
Throw New Exception("CloseHandle failed")
End If
End Sub
Private Sub Write(ByVal MemoryAddress As IntPtr, ByVal bytesToWrite As Byte(), ByRef bytesWritten As Integer)
Dim ptrBytesWritten As IntPtr
WriteProcessMemory(m_hProcess, MemoryAddress, bytesToWrite, CUInt(bytesToWrite.Length), ptrBytesWritten)
bytesWritten = ptrBytesWritten.ToInt32()
End Sub
Originally Posted by Phusic
so should I use this instead of
Code:
<Flags()> _
Public Enum ProcessAccessType
PROCESS_TERMINATE = (&H1)
PROCESS_CREATE_THREAD = (&H2)
PROCESS_SET_SESSIONID = (&H4)
PROCESS_VM_OPERATION = (&H8)
PROCESS_VM_READ = (&H10)
PROCESS_VM_WRITE = (&H20)
PROCESS_DUP_HANDLE = (&H40)
PROCESS_CREATE_PROCESS = (&H80)
PROCESS_SET_QUOTA = (&H100)
PROCESS_SET_INFORMATION = (&H200)
PROCESS_QUERY_INFORMATION = (&H400)
End Enum
<DllImport("kernel32.dll")> _
Public Shared Function OpenProcess(ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr
End Function
<DllImport("kernel32.dll")> _
Public Shared Function CloseHandle(ByVal hObject As IntPtr) As Int32
End Function
<DllImport("kernel32.dll")> _
Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesRead As IntPtr) As Int32
End Function
<DllImport("kernel32.dll")> _
Public Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
End Function
Public Function Hack(ByVal Application As String) As Boolean
Dim pArray As Process() = Process.GetProcessesByName(Application)
If pArray.Length = 0 Then
Return True
End If
ReadProcess = pArray(0)
Open()
Return False
End Function
Public Sub SetInt(ByVal Address As Integer, ByVal Value As Integer)
Dim byteswritten As Integer
Write(Address, BitConverter.GetBytes(Value), byteswritten)
End Sub
Public Sub SetByte(ByVal Address As Integer, ByVal Value As Byte())
Dim byteswritten As Integer
Write(Address, Value, byteswritten)
End Sub
Private Property ReadProcess() As Process
Get
Return m_ReadProcess
End Get
Set(ByVal value As Process)
m_ReadProcess = value
End Set
End Property
Private m_ReadProcess As Process = Nothing
Private m_hProcess As IntPtr = IntPtr.Zero
Private Sub Open()
Dim access As ProcessAccessType
access = ProcessAccessType.PROCESS_VM_READ Or ProcessAccessType.PROCESS_VM_WRITE Or ProcessAccessType.PROCESS_VM_OPERATION
m_hProcess = OpenProcess(CUInt(access), 1, CUInt(m_ReadProces*****))
End Sub
Private Sub CloseHandle()
Dim iRetValue As Integer
iRetValue = CloseHandle(m_hProcess)
If iRetValue = 0 Then
Throw New Exception("CloseHandle failed")
End If
End Sub
Private Sub Write(ByVal MemoryAddress As IntPtr, ByVal bytesToWrite As Byte(), ByRef bytesWritten As Integer)
Dim ptrBytesWritten As IntPtr
WriteProcessMemory(m_hProcess, MemoryAddress, bytesToWrite, CUInt(bytesToWrite.Length), ptrBytesWritten)
bytesWritten = ptrBytesWritten.ToInt32()
End Sub
This is just smaller and easier to work with.
Also more options.
But use what you like the best :P
Originally Posted by Jorndel
Up to you
This is just smaller and easier to work with.
Also more options.
But use what you like the best :P
This is just smaller and easier to work with.
Also more options.
But use what you like the best :P
Originally Posted by Phusic
You say more options, what may these options be?
And see what you have...
Originally Posted by Jorndel
Like read the thread sometimes answers the question:
And see what you have...
And see what you have...
Originally Posted by Jorndel
Well, so I re-wrote the Trainer Class. (Also re-named it.)
What is new:
It's way shorter thanks too: Dr. D (That informed me that I didn't need to use the OpenProcess())
New Functions:
Process_Handle = Process to write/read too. (Returns an Boolean Value)
-Write-
WriteInteger = Writes an integer. (4 byte) Address = Offset to Write. Value = Value to Write.
WriteString = Writes an string. Address = Offset to Write. Text= String to Write.
WriteBytes = Writes an Byte Array. Address = Offset to Write. Bytes= Byte Array to Write.
WriteNOP = Writes an Byte Array. 5 Bytes of 0x90. Address = Offset to Write.
-Read-
ReadInteger = Reads an integer. (4 Byte also able to change) Address = Offset to Read. Length = Bytes to write [OPTIMAL]
ReadString = Reads an string. Address = Offset to Read from. Length = Length to read.
ReadBytes = Reads an Byte Array. Address = Offset to Read from. Length = Length to read.
-Extra-
HotKey = Allow you to check if the key is down. (Need to be in a timer to work)
Check_Value = Allow you to check the input in the TextBox / String. (If it's not a number, it returns 0. Else the written value)
Image:
Scans:
Memory Class VB.Net.rar - Jotti's malware scan
https://www.virustotal.com/file/c445...is/1337500752/
Report - Antivirus online virus scan - viruschief.com
What is new:
It's way shorter thanks too: Dr. D (That informed me that I didn't need to use the OpenProcess()
)New Functions:
Process_Handle = Process to write/read too. (Returns an Boolean Value)
-Write-
WriteInteger = Writes an integer. (4 byte) Address = Offset to Write. Value = Value to Write.
WriteString = Writes an string. Address = Offset to Write. Text= String to Write.
WriteBytes = Writes an Byte Array. Address = Offset to Write. Bytes= Byte Array to Write.
WriteNOP = Writes an Byte Array. 5 Bytes of 0x90. Address = Offset to Write.
-Read-
ReadInteger = Reads an integer. (4 Byte also able to change) Address = Offset to Read. Length = Bytes to write [OPTIMAL]
ReadString = Reads an string. Address = Offset to Read from. Length = Length to read.
ReadBytes = Reads an Byte Array. Address = Offset to Read from. Length = Length to read.
-Extra-
HotKey = Allow you to check if the key is down. (Need to be in a timer to work)
Check_Value = Allow you to check the input in the TextBox / String. (If it's not a number, it returns 0. Else the written value)
Image:
Scans:
Memory Class VB.Net.rar - Jotti's malware scan
https://www.virustotal.com/file/c445...is/1337500752/
Report - Antivirus online virus scan - viruschief.com
You could add read and write Floats and get BaseAddress
For every one who may need this and dont know how to write it (may it isn't the best solution I only work with java usually)
Write:
Code:
Public Sub WriteFloat(Address As Integer, Float As Single)
Dim Buffer As Byte() = BitConverter.GetBytes(Float)
Dim Zero As IntPtr = IntPtr.Zero
WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, 4, Zero)
End Sub
Code:
Public Function ReadFloat(Address As Integer, Optional Length As Integer = 4) As Double
Return BitConverter.ToSingle(Read(Address, Length), 0)
End Function
Code:
Private pHandel As IntPtr
Private ProcessModule As ProcessModule
Public BaseAddress As Integer
Public Function Process_Handle(ProcessName As String) As Boolean
Try
ProcList = Process.GetProcessesByName(ProcessName)
If ProcList.Length = 0 Then
Return False
Else
pHandel = ProcList(0).Handle
ProcessModule = ProcList(0).MainModule
BaseAddress = ProcessModule.BaseAddress
Return True
End If
Catch ex As Exception
Console.WriteLine("Process_Handle - " + ex.Message)
Return False
End Try
End Function
Originally Posted by Nordiii
You could add read and write Floats and get BaseAddress
Originally Posted by Jorndel
Well, nice of you to add, but already released update with this in it
I used this Class ^^ have nothing said :3 Originally Posted by Nordiii
Oh sorry I doesn't saw it I used this Class ^^ have nothing said :3
I used this Class ^^ have nothing said :3Glad to see someone use and appreciate it, and add some updates to it
Don't really understand how to use this 
Could someone give me basic examples of selecting which process to read/Write from and how to Read/Write a certain memory adress
Could someone give me basic examples of selecting which process to read/Write from and how to Read/Write a certain memory adress
Originally Posted by fredemm
Don't really understand how to use this
Could someone give me basic examples of selecting which process to read/Write from and how to Read/Write a certain memory adress
Could someone give me basic examples of selecting which process to read/Write from and how to Read/Write a certain memory adress
Why are you telling at him idiot ??!?, someone ask for help you should help him not say this, stupid...
Originally Posted by Mayion
Why are you telling at him idiot ??!?, someone ask for help you should help him not say this, stupid...
Usual Choice: Read other 99%. If you can't figure it out after, ask for help.
His Choice: Read 1% and ask for help.
You tend to get pissed at that...
How can I modify the 8Bytes values?
Similar Threads
- C# Memory Class (Writen by Jorndel)By Jorndel in Call of Duty Modern Warfare 3 Coding, Programming & Source Code12Last post
- 7Last post
- Memory Hack base Using Classes Help I Don't Get ItBy kmanev073 in CrossFire Hack Coding / Programming / Source Code10Last post
- 10Last post
- 2Last post