VBnet读写内存问题

1、VB.net 读写内存问题在 VB6 中：Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As LongPrivate Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProc

2、ess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long的 API 函数升级到 VB2005 后 :Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Int

3、eger, lpNumberOfBytesWritten As Integer) As IntegerPrivate Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Integer,lpNumberOfBytesWritten As Integer) As Integer转成以上的形式：但 As Any 在 VB2005 里不支持，无法完成内存读写，

4、在网上查找同样的问题和方法，也是无法得到答案。可在 VB2005 的帮助给了提示，成功地完成内存的读写。只要在 “WriteProcessMemory” 和“ReadProcessMemory” 的函数各多插入一个函数。方法如下：Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As String, ByRef lpBuffer As

5、 String, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As IntegerPrivate Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Inte

6、ger) As IntegerPrivate Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As String, ByRef lpBuffer As String, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As IntegerPrivate Declare Function ReadProcessMemory Lib"kerne

7、l32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer  “As Any”, 可是 “String ” 也可是 “Integer” 所以一条的 “As Any ” 改为 &#82