【其它源码】【转载】VB.NET的指针操作模块

0xAA55

转载来源：http://www.vbasm.com/thread-8008-1-1.html
作者：Tesla.Angela
转载请注明出处！
摘自WIN64AST源码。

1. Module PtrOpr
   
2. 
   
3.     Private Declare Function VirtualAlloc Lib "kernel32.dll" Alias "VirtualAlloc"  (ByVal lpAddress As UIntPtr,
   
4.                                                                                     ByVal dwSize As UInt32,
   
5.                                                                                     ByVal flAllocationType As UInt32,
   
6.                                                                                     ByVal flProtect As UInt32) As UIntPtr
   
7. 
   
8.     Private Declare Function VirtualFree Lib "kernel32.dll" Alias "VirtualFree" (ByVal lpAddress As UIntPtr,
   
9.                                                                                  ByVal dwSize As UInt32,
   
10.                                                                                  ByVal dwFreeType As UInt32) As Int32
    
11. 
    
12.     Public Declare Sub memset Lib "kernel32.dll" Alias "RtlFillMemory" (ByVal lpAddress As UIntPtr,
    
13.                                                                         ByVal dwSize As UInt32,
    
14.                                                                         ByVal bFill As Byte)
    
15. 
    
16.     Public Declare Sub memcpy Lib "kernel32.dll" Alias "RtlMoveMemory" (ByVal Destination As UIntPtr,
    
17.                                                                         ByVal Source As UIntPtr,
    
18.                                                                         ByVal Length As UInt32)
    
19. 
    
20.     Public Declare Sub memcpy1pv Lib "kernel32.dll" Alias "RtlMoveMemory"  (ByVal Destination As UIntPtr,
    
21.                                                                             ByRef Source As Byte,
    
22.                                                                             Optional ByVal Length As UInt32 = 1)
    
23. 
    
24.     Public Declare Sub memcpy2pv Lib "kernel32.dll" Alias "RtlMoveMemory"  (ByVal Destination As UIntPtr,
    
25.                                                                             ByRef Source As UInt16,
    
26.                                                                             Optional ByVal Length As UInt32 = 2)
    
27. 
    
28.     Public Declare Sub memcpy4pv Lib "kernel32.dll" Alias "RtlMoveMemory"  (ByVal Destination As UIntPtr,
    
29.                                                                             ByRef Source As UInt32,
    
30.                                                                             Optional ByVal Length As UInt32 = 4)
    
31. 
    
32.     Public Declare Sub memcpy8pv Lib "kernel32.dll" Alias "RtlMoveMemory"  (ByVal Destination As UIntPtr,
    
33.                                                                             ByRef Source As UInt64,
    
34.                                                                             Optional ByVal Length As UInt32 = 8)
    
35. 
    
36.     Public Declare Sub memcpy1vp Lib "kernel32.dll" Alias "RtlMoveMemory"  (ByRef Destination As Byte,
    
37.                                                                             ByVal Source As UIntPtr,
    
38.                                                                             Optional ByVal Length As UInt32 = 1)
    
39. 
    
40.     Public Declare Sub memcpy2vp Lib "kernel32.dll" Alias "RtlMoveMemory"  (ByRef Destination As UInt16,
    
41.                                                                             ByVal Source As UIntPtr,
    
42.                                                                             Optional ByVal Length As UInt32 = 2)
    
43. 
    
44.     Public Declare Sub memcpy4vp Lib "kernel32.dll" Alias "RtlMoveMemory"  (ByRef Destination As UInt32,
    
45.                                                                             ByVal Source As UIntPtr,
    
46.                                                                             Optional ByVal Length As UInt32 = 4)
    
47. 
    
48.     Public Declare Sub memcpy8vp Lib "kernel32.dll" Alias "RtlMoveMemory"  (ByRef Destination As UInt64,
    
49.                                                                             ByVal Source As UIntPtr,
    
50.                                                                             Optional ByVal Length As UInt32 = 8)
    
51. 
    
52.     Public Function malloc(ByVal length As Long) As ULong
    
53.         Dim p As ULong
    
54.         p = VirtualAlloc(0, length, &H1000, &H40)
    
55.         memset(p, length, 0)
    
56.         Return p
    
57.     End Function
    
58. 
    
59.     Public Sub free(ByVal buffer As ULong)
    
60.         VirtualFree(buffer, 0, &H4000)
    
61.     End Sub
    
62. 
    
63.     Public Function GetPtrVal1(ByVal ptr As UIntPtr) As Byte
    
64.         Dim v As Byte = 0
    
65.         memcpy1vp(v, ptr)
    
66.         Return v
    
67.     End Function
    
68. 
    
69.     Public Function GetPtrVal2(ByVal ptr As UIntPtr) As UInt16
    
70.         Dim v As UInt16 = 0
    
71.         memcpy2vp(v, ptr)
    
72.         Return v
    
73.     End Function
    
74. 
    
75.     Public Function GetPtrVal4(ByVal ptr As UIntPtr) As UInt32
    
76.         Dim v As UInt32 = 0
    
77.         memcpy4vp(v, ptr)
    
78.         Return v
    
79.     End Function
    
80. 
    
81.     Public Function GetPtrVal8(ByVal ptr As UIntPtr) As UInt64
    
82.         Dim v As UInt64 = 0
    
83.         memcpy8vp(v, ptr)
    
84.         Return v
    
85.     End Function
    
86. 
    
87.     Public Sub SetPtrVal1(ByVal ptr As UIntPtr, ByVal v As Byte)
    
88.         memcpy1pv(ptr, v)
    
89.     End Sub
    
90. 
    
91.     Public Sub SetPtrVal2(ByVal ptr As UIntPtr, ByVal v As UInt16)
    
92.         memcpy2pv(ptr, v)
    
93.     End Sub
    
94. 
    
95.     Public Sub SetPtrVal4(ByVal ptr As UIntPtr, ByVal v As UInt32)
    
96.         memcpy4pv(ptr, v)
    
97.     End Sub
    
98. 
    
99.     Public Sub SetPtrVal8(ByVal ptr As UIntPtr, ByVal v As UInt64)
    
100.         memcpy8pv(ptr, v)
     
101.     End Sub
     
102. 
     
103.     Public Function AllocAndSetPtr1(ByVal v As Byte) As UIntPtr
     
104.         Dim p As UIntPtr = malloc(Len(v))
     
105.         SetPtrVal1(p, v)
     
106.         Return p
     
107.     End Function
     
108. 
     
109.     Public Function AllocAndSetPtr2(ByVal v As UInt16) As UIntPtr
     
110.         Dim p As UIntPtr = malloc(Len(v))
     
111.         SetPtrVal2(p, v)
     
112.         Return p
     
113.     End Function
     
114. 
     
115.     Public Function AllocAndSetPtr4(ByVal v As UInt32) As UIntPtr
     
116.         Dim p As UIntPtr = malloc(Len(v))
     
117.         SetPtrVal4(p, v)
     
118.         Return p
     
119.     End Function
     
120. 
     
121.     Public Function AllocAndSetPtr8(ByVal v As UInt64) As UIntPtr
     
122.         Dim p As UIntPtr = malloc(Len(v))
     
123.         SetPtrVal8(p, v)
     
124.         Return p
     
125.     End Function
     
126. 
     
127. End Module

复制代码

使用范例：

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.     Dim p As UIntPtr = malloc(1024 * 1024 * 10)
   
3.     If p.Size = 4 Then
   
4.         MsgBox("申请了10MB内存请注意内存变化", , Hex(p.ToUInt32))
   
5.     Else
   
6.         MsgBox("申请了10MB内存请注意内存变化", , Hex(p.ToUInt64))
   
7.     End If
   
8.     free(p) : MsgBox("内存已经释放请注意内存变化")
   
9. End Sub
   
10. 
    
11. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
12.     Dim p As UIntPtr = AllocAndSetPtr8(&H7FFFF80012345699)
    
13.     Dim v As ULong = GetPtrVal8(p) : MsgBox(Hex(v))
    
14.     free(p)
    
15. End Sub

复制代码