VB实现C库函数中的几个内存操作函数

Tesla.Angela

mdl_memory.bas：

1. 
   
2. Option Explicit
   
3. 
   
4. Private Declare Function VirtualAlloc Lib "kernel32.dll" (lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
   
5. Private Declare Function VirtualFree Lib "kernel32.dll" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
   
6. Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
   
7. 
   
8. Public Function malloc(ByVal dwLen As Long) As Long
   
9.     malloc = VirtualAlloc(0, dwLen, &H1000, &H40)
   
10. End Function
    
11. 
    
12. Public Sub free(ByVal PVOID As Long)
    
13.     VirtualFree PVOID, 1, &H1000
    
14. End Sub
    
15. 
    
16. Public Sub memcpy(ByVal pDst As Long, ByVal pSrc As Long, ByVal dwLen As Long)
    
17.     RtlMoveMemory pDst, pSrc, dwLen
    
18. End Sub
    
19. 
    
20. Public Sub memset(ByVal pDst As Long, ByVal bFill As Byte, ByVal dwLen As Long)
    
21.     Dim i As Long
    
22.     For i = 0 To dwLen - 1
    
23.         RtlMoveMemory pDst + i, VarPtr(bFill), 1
    
24.     Next
    
25. End Sub
    
26. 
    

复制代码

Tesla.Angela

测试：

1. 
   
2. Option Explicit
   
3. 
   
4. Private Declare Function MessageBoxA Lib "user32.dll" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
   
5. 
   
6. Private Sub Command1_Click()
   
7.     Dim maddr As Long
   
8.     Dim cn_mm As Long
   
9.     cn_mm = &HC3C3C3C3
   
10.     maddr = malloc(5)
    
11.     memcpy maddr, VarPtr(cn_mm), 4
    
12.     memset maddr + 4, 0, 1
    
13.     MessageBoxA 0, maddr, maddr, 0
    
14.     free maddr
    
15. End Sub
    

复制代码

会弹出个对话框，标题和内容都是“妹妹”。

upring

好好 非常不错哦