2011年計算機等考二級VB輔導知識技巧總結(7)

　　嘿，夠簡單吧!下面是動態(tài)調用MessageBoxA的源代碼，上面的步驟被封裝到RunDll32函數中，可放到模塊(CallAPIbyName.bas)中：

　　Dim s1() As Byte, s2() As Byte

　　Dim ret As Long

　　s1 = StrConv("Hello~World", vbFromUnicode)

　　s2 = StrConv("VBNote", vbFromUnicode)

　　ret = RunDll32("user32", "MessageBoxA", hwnd, VarPtr(s1(0)), VarPtr(s2(0)), 0&)

　　CallAPIbyName.bas中的源代碼：

　　Option Explicit

　　Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

　　Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long

　　Private Declare Function CallWindowProc Lib "User32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

　　Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

　　Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)

　　Public m_opIndex As Long ′寫入位置

　　Private m_OpCode() As Byte ′Assembly 的OPCODE

　　Public Function RunDll32(LibFileName As String, ProcName As String, ParamArray Params()) As Long

　　Dim hProc As Long

　　Dim hModule As Long

　　ReDim m_OpCode(400 + 6 * UBound(Params)) ′保留用來寫m_OpCode

　　′讀取API庫

　　hModule = LoadLibrary(ByVal LibFileName)

　　If hModule = 0 Then

　　MsgBox "Library讀取失敗!"

　　Exit Function

　　End If

　　′取得函數地址

　　hProc = GetProcAddress(hModule, ByVal ProcName)

　　If hProc = 0 Then

　　MsgBox "函數讀取失敗!", vbCritical

　　FreeLibrary hModule

　　Exit Function

　　End If

　　′執(zhí)行Assembly Code部分

　　RunDll32 = CallWindowProc(GetCodeStart(hProc, Params), 0, 1, 2, 3)

　　FreeLibrary hModule ′釋放空間

　　End Function

　　Private Function GetCodeStart(ByVal lngProc As Long, ByVal arrParams As Variant) As Long

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等考二級VB輔導知識技巧匯總