VBnet讀寫內(nèi)存問(wèn)題

1、VB.net 讀寫內(nèi)存問(wèn)題在 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 函數(shù)升級(jí)到 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轉(zhuǎn)成以上的形式：但 As Any 在 VB2005 里不支持，無(wú)法完成內(nèi)存讀寫，

4、在網(wǎng)上查找同樣的問(wèn)題和方法，也是無(wú)法得到答案。可在 VB2005 的幫助給了提示，成功地完成內(nèi)存的讀寫。只要在 “WriteProcessMemory” 和“ReadProcessMemory” 的函數(shù)各多插入一個(gè)函數(shù)。方法如下：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