如何解决VB.NET中ReadProcessMemory的问题

这篇文章主要介绍如何解决VB.NET中ReadProcessMemory的问题，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！

创新互联专业提供成都主机托管四川主机托管成都服务器托管四川服务器托管，支持按月付款！我们的承诺：贵族品质、平民价格，机房位于中国电信/网通/移动机房，成都服务器托管服务有保障！

在学校上VB.NET的课，VB以前学过一点点，只会看不会写，不过没有办法，学校开的，所以几个人就组了个小组，写一个VB.NET下的杀毒软件，要用到VB.NET ReadProcessMemory来读取其它进程的内存，可以怎么调用也不行，goole和baidu找了N个小时。提这个问题的人倒是一大堆，可以是没有人解决过，但是其中也给我一些其实，后来在好友freecat的帮助下，找到了问题的所在，主要就是VB.NET ReadProcessMemory声明的问题，我们应该这样声明

Public Declare Function ReadProcessMemory Lib "kernel32" 
(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, 
ByVal lpBuffer() As Byte, ByVal nSize As Integer, 
ByRef lpNumberOfBytesWritten As Integer) As Integer 

主要是其中的,ByVal lpBaseAddress As Integer, ByVal lpBuffer() As Byte，要设为byval而不是byref，这样调用就可以得到返回值了。

Private Declare Function OpenProcess Lib "kernel32.dll" _  
(ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, 
ByVal dwProcessId As Integer) As Integer  
Public Declare Function ReadProcessMemory Lib "kernel32" 
(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, 
ByVal lpBuffer() As Byte, ByVal nSize As Integer, 
ByRef lpNumberOfBytesWritten As Integer) As Integer  
Private Const PROCESS_VM_READ As Long = &H10  
Dim ph As Integer  
Dim i As Integer  
Dim h As Integer  
Dim buffer(20) As Byte  
Dim bytesRead As Integer  
 
'获得进程  
 
ph = OpenProcess(PROCESS_ALL_ACCESS, False, 1832)  
If ph Then  
MessageBox.Show("true")  
h = ReadProcessMemory(ph, &H403000, buffer, buffer.Length, bytesRead)  
For i = 0 To buffer.Length - 1  
TempMem += buffer(i).ToString  
Next  
Else  
MessageBox.Show("false")  
End If 

以上是“如何解决VB.NET中ReadProcessMemory的问题”这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注创新互联行业资讯频道！

本文标题：如何解决VB.NET中ReadProcessMemory的问题
网站URL：http://hxwzsj.com/article/gcosdh.html