Imports System
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Linq
Imports System.Runtime.InteropServices
Imports System.Text
Imports Microsoft.Win32.SafeHandles
Namespace SomeProjectName.Classes
Public Class API
#Region "API Class Win32 API Definitions"
''' <summary>
''' kernel32.OpenProcess
''' </summary>
''' <param name="dwDesiredAccess"></param>
''' <param name="bInheritHandle"></param>
''' <param name="dwProcessId"></param>
''' <returns></returns>
<DllImport("kernel32.dll", SetLastError:=True)> _
Public Shared Function OpenProcess(ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr
End Function
''' <summary>
''' kernel32.CloseHandle
''' </summary>
''' <param name="hObject"></param>
''' <returns></returns>
<DllImport("kernel32.dll", SetLastError:=True)> _
Public Shared Function CloseHandle(ByVal hObject As IntPtr) As Int32
End Function
''' <summary>
''' kernel32.ReadProcessMemory
''' </summary>
''' <param name="hProcess"></param>
''' <param name="lpBaseAddress"></param>
''' <param name="lpBuffer"></param>
''' <param name="nSize"></param>
''' <param name="lpNumberOfBytesRead"></param>
''' <returns></returns>
<DllImport("kernel32.dll", SetLastError:=True)> _
Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal lpBuffer As Byte(), ByVal nSize As UInt32, ByRef lpNumberOfBytesRead As IntPtr) As Boolean
End Function
''' <summary>
''' kernel32.WriteProcessMemory
''' </summary>
''' <param name="hProcess"></param>
''' <param name="lpBaseAddress"></param>
''' <param name="lpBuffer"></param>
''' <param name="nSize"></param>
''' <param name="lpNumberOfBytesWritten"></param>
''' <returns></returns>
<DllImport("kernel32.dll", SetLastError:=True)> _
Public Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal lpBuffer As Byte(), ByVal nSize As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Boolean
End Function
#End Region
#Region "API Class Main API Wrappers"
''' <summary>
''' Poke - Overall ReadProcessMemory wrapper used to
''' read any amount of memory into a byte array.
''' </summary>
''' <param name="proc"></param>
''' <param name="iAddress"></param>
''' <param name="btBuffer"></param>
''' <returns></returns>
Public Shared Function Poke(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal btBuffer As Byte()) As Boolean
If proc Is Nothing OrElse proc.HasExited = True Then
Return False
End If
Dim ptBytesWritten As New IntPtr(0)
Return WriteProcessMemory(proc.Handle, iAddress, btBuffer, CUInt(btBuffer.Length), ptBytesWritten)
End Function
''' <summary>
''' Peek - Overall WriteProcessMemory wrapper used to
''' write the given data buffer into a process.
''' </summary>
''' <param name="proc"></param>
''' <param name="iAddress"></param>
''' <param name="btBuffer"></param>
''' <returns></returns>
Public Shared Function Peek(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal btBuffer As Byte()) As Boolean
If proc Is Nothing OrElse proc.HasExited = True OrElse btBuffer Is Nothing OrElse btBuffer.Length = 0 Then
Return False
End If
Dim ptBytesRead As New IntPtr(0)
Return ReadProcessMemory(proc.Handle, iAddress, btBuffer, CUInt(btBuffer.Length), ptBytesRead)
End Function
#End Region
#Region "API Class Peek Wrappers"
Public Function GetByte(ByVal proc As Process, ByVal iAddress As IntPtr) As Byte
Dim btTemp As Byte() = New Byte(0) {}
Peek(proc, iAddress, btTemp)
Return btTemp(0)
End Function
Public Function GetByteArray(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal nSize As Integer) As Byte()
Dim btTemp As Byte() = New Byte(nSize - 1) {}
Peek(proc, iAddress, btTemp)
Return btTemp
End Function
Public Function GetInt16(ByVal proc As Process, ByVal iAddress As IntPtr) As Int16
Dim btTemp As Byte() = New Byte(1) {}
Peek(proc, iAddress, btTemp)
Return BitConverter.ToInt16(btTemp, 0)
End Function
Public Function GetInt32(ByVal proc As Process, ByVal iAddress As IntPtr) As Int32
Dim btTemp As Byte() = New Byte(3) {}
Peek(proc, iAddress, btTemp)
Return BitConverter.ToInt32(btTemp, 0)
End Function
Public Function GetUInt16(ByVal proc As Process, ByVal iAddress As IntPtr) As UInt16
Dim btTemp As Byte() = New Byte(1) {}
Peek(proc, iAddress, btTemp)
Return BitConverter.ToUInt16(btTemp, 0)
End Function
Public Function GetUInt32(ByVal proc As Process, ByVal iAddress As IntPtr) As UInt32
Dim btTemp As Byte() = New Byte(3) {}
Peek(proc, iAddress, btTemp)
Return BitConverter.ToUInt32(btTemp, 0)
End Function
Public Function GetString(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal nSize As Integer) As String
Dim btTemp As Byte() = New Byte(nSize - 1) {}
Peek(proc, iAddress, btTemp)
Return Encoding.ASCII.GetString(btTemp)
End Function
#End Region
#Region "API Class Poke Wrappers"
Public Function SetByte(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal btValue As Byte) As Boolean
Dim btTemp As Byte() = BitConverter.GetBytes(btValue)
Return Poke(proc, iAddress, btTemp)
End Function
Public Function SetByteArray(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal btValue As Byte()) As Boolean
Return Poke(proc, iAddress, btValue)
End Function
Public Function SetInt16(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal iValue As Int16) As Boolean
Dim btTemp As Byte() = BitConverter.GetBytes(iValue)
Return Poke(proc, iAddress, btTemp)
End Function
Public Function SetInt32(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal iValue As Int32) As Boolean
Dim btTemp As Byte() = BitConverter.GetBytes(iValue)
Return Poke(proc, iAddress, btTemp)
End Function
Public Function SetUInt16(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal iValue As UInt16) As Boolean
Dim btTemp As Byte() = BitConverter.GetBytes(iValue)
Return Poke(proc, iAddress, btTemp)
End Function
Public Function SetUInt32(ByVal proc As Process, ByVal iAddress As IntPtr, ByVal iValue As UInt32) As Boolean
Dim btTemp As Byte() = BitConverter.GetBytes(iValue)
Return Poke(proc, iAddress, btTemp)
End Function
#End Region
End Class
End Namespace
