概括VB.NETReadProcessMemory问题解决方法
学习VB.NET时，你可能会遇到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实现数据绑定
- VB.NET TextBox组件高手经验谈
- 瞬间掌握VB.NET Web Service
- 实例分析VB.NET Treeview结构
- 百宝箱之VB.NET设计制作窗体
网页标题：概括VB.NETReadProcessMemory问题解决方法
当前网址：http://www.shufengxianlan.com/qtweb/news21/401221.html
成都网站建设公司_创新互联，为您提供python、电子商务、网站建设、静态网站、服务器托管、品牌网站制作
声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联