Public Function 打开进程(pid As Integer) As IntPtr
Return OpenProcess(&H1F0FFF, False, pid)
End Function
Public Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal blnheritHandle As Integer, ByVal dwAppProcessId As Integer) As Integer
Public Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Integer, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As IntPtr, ByVal nSize As Integer, ByRef lpNumberOfBytesRead As Integer) As Boolean
Public Function 十六进制转十进制(s) As Long
Return Convert.ToInt64(s, 16)
End Function
Public Function 十进制转十六进制(s As Long) As String
Return Convert.ToString(s, 16)
End Function
Public Function 读long(对象 As IntPtr, 地址 As IntPtr) As IntPtr
Dim by(7) As Byte
Dim bufferadress = Marshal.UnsafeAddrOfPinnedArrayElement(by, 0)
ReadProcessMemory(对象, 地址, bufferadress, 8, IntPtr.Zero)
Return bytetolong(by)
End Function
Public Function 读int(对象 As IntPtr, 地址 As IntPtr) As Integer
Dim by(3) As Byte
Dim bufferadress = Marshal.UnsafeAddrOfPinnedArrayElement(by, 0)
ReadProcessMemory(对象, 地址, bufferadress, 4, IntPtr.Zero)
Return bytetoint(by)
End Function
Public 基址 As IntPtr
Public 指针 As Long
Public Function 读内存(对象 As IntPtr, 地址 As IntPtr, 偏移 As IntPtr) As Integer
Dim by(3) As Byte
Dim bufferadress = Marshal.UnsafeAddrOfPinnedArrayElement(by, 0)
ReadProcessMemory(对象, 地址 + 偏移, bufferadress, 4, IntPtr.Zero)
Return bytetoint(by)
End Function
End Module
'Dim 进程 = Process.GetProcessesByName("进程名字")
'Dim pid = 进程(0).Id
'Dim 基址 = 进程(0).MainModule.BaseAddress
'Dim 句柄 = 进程(0).MainWindowHandle
Imports System.Runtime.InteropServicesPublic Module 内存读写API Public Function bytetolong(b() As Byte) As Long Dim s As Long = 0 Dim s0 As Long = b(0) Dim s1 As Long = b(1)...
"kernel32.dll", SetLastError:=True)> _
Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, _
ByVal lpBaseAddress As IntPtr, _
using namespace std;
BOOL EnableSeDebugPrivilege(IN const CHAR * PriviledgeName, BOOL IsEnable);
typedef NTSTATUS(NT
API
*LPFN_NTWOW64READVIRTUALMEMORY6
1.int* a；和int *a 分别表示什么意思？
int* a 表示定义一个a类型的int指针，int *a 则表示a为一个指针，指向一个int类型的变量。
int* a,b; 等价于 int *a；int b；而不等价于 int *a; int *b;
所以，为了避免出现这样的歧义，很多书上都进行了规范处理，统一将星号靠近变量名，也就是写成
int *p;
2.malloc函数是什么？
malloc功能是
内存
的动态存储区中分配一个长度为size的连续空间，返回指向这块
内存
的起始位置的指针。
用VB来判断windows系统是32位还是
64位
用VB
程序
来判断系统是32位还是
64位
，主要还是靠
API
来帮忙实现此功能。实现起来也很简单，先在窗体模块里申明
API
函数：
Private Declare Function GetProcAddress Lib “kernel32” (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib “kernel32
ReadProcessMemory和WriteProcessMemory这两个函数几乎是所有跨进程读写
内存
都要用到的函数，目前网站上大多数案例都为32位进程读写，无法
读取
到
64位
内存
信息。
本文主要就C/C++中的ReadProcessMemory和WriteProcessMemory这两个函数对于x64进程的
内存
读写操作进行说明。
提示：以下是
VB.NET
是一种基于.NET Framework的编程语言，可用于开发各种类型的应用
程序
，包括Windows桌面应用
程序
、Web应用
程序
、服务等等。
OPC（OLE for Process Control）是一种通讯标准，用于在工业自动化系统中实现不同设备和过程控制应用
程序
之间的交互。
OPC Server是一种充当中介的应用
程序
，允许不同的应用
程序
和设备通过网络通信进行互操作。使用
VB.NET
可以编写应用
程序
，以浏览已连接到计算机的OPC Server。这意味着应用
程序
可以从OPC Server获取数据并进行相应的处理。
要使用
VB.NET
浏览OPC Server，需要使用OPC DA（Data Access）标准提供的
API
。这些
API
允许应用
程序
连接到OPC Server并
读取
/写入数据。在编写
VB.NET
应用
程序
时，需要引用相关的OPC DA库并调用相关的
API
来与OPC Server进行通信。一些常用的OPC DA库包括OPC Foundation的.NET库和Kepware的KEPServerEX。
总之，使用
VB.NET
浏览OPC Server是在工业自动化中开发应用
程序
的重要方面之一。它使得应用
程序
可以通过网络与设备和过程控制应用
程序
进行通信，并获取实时数据来实现相应的功能。
