2011年计算机等考二级VB辅导知识技巧总结(7)

　　嘿，够简单吧!下面是动态调用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

　　′执行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辅导知识技巧汇总