【VB技巧】VB静态调用与动态调用dll详解

摘 自: http://lcx.cc/?i=489

 

【【请注意】】：在以下语法格式中，请注意 [函数名] 的【大小写】!!!

静态与动态比较：

    静态调用简单，动态调用麻烦；静态调用占用资源多，动态调用占用资源少；正所谓鱼和熊掌不可兼得。


静态调用定义：

    就是常用的申明API，一个DLL库里有很多的函数可供调用，把要用的申明即可。
    比如：Public/Private Declare Function [函数名] Lib "DLL文件名" [Alias "别名"] (参数变量表) [As 返回值的数据类型]
    示例：Private Declare Function Test Lib "dll.dll" (x As String) As String
    当程序结束的时候系统回自动释放DLL调用。


动态调用定义：

    使用LoadLibery(DLL名)，系统会检查DLL是否调入内存。如果调入了，可直接调用DLL里的所有函数，没有就会把DLL加入目标进程的进程空间。通过函数GetProcAddress确定函数入口地址，然后调用，后一种方法VB里不常用的。


静态调用详解：

    制作好DLL之后，首先用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明，将动态链接库中的函数声明到VB中，供VB程序调用。

    语法格式1：
        Public/Private Declare Sub [函数名] Lib "DLL文件名" [Alias "别名"] (参数变量表)

    语法格式2：
        Public/Private Declare Function [函数名] Lib "DLL文件名" [Alias "别名"] (参数变量表) [As 返回值的数据类型]

    在声明中首先用Declare关键字表示声明DLL中的函数。在C语言中有的函数类型为VOID，它表示不具有返回值，则必须用关键字Sub将其声明成过程。有的函数具有返回值，则必须用关键字Function将其声明成函数，并且在声明语句的最后要用AS关键字指明函数返回值的类型。

    例如add.DLL在VB中就可以声明为：
        Declare Function ADD Lib "c:\add.dll" (ByVal X AS Integer, ByVal Y AS Integer, ByVal filein as string) AS Integer

    通过此声明语句将函数ADD声明到VB中，便可直接调用。


动态调用详解：

    首先调用API LoadLibaray 装载dll，然后调用API GetProcAddress 得到dll的对应方法的地址。因为vb不像其他的有函数指针，在vb中声明函数原形，怎样把得到的函数地址赋给这个原形有些麻烦。

解决办法1：

Option Explicit 
 
'我们要调用没有声明的API(dll)的功能！ 
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long '释放LoadLibrary载入的动态链接库，非零表示成功，零表示失败。 
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 '检索指定的动态链接库(DLL)中的输出库函数地址(超找函数入口地址)，成功则返回值是DLL中的输出函数地址，失败返回值是NULL。 
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long '将消息信息传送给指定的窗口过程。 
 
Private Sub Form_Load() 
    Dim LibHand As Long '载入的dll句柄 
    LibHand = LoadLibrary("user32")     '将user32载入到内存。 
    CallWindowProc GetProcAddress(LibHand, "SetWindowTextA"), Me.hWnd, CStr(Now), ByVal 0&, ByVal 0& '调用SetWindowTextA函数功能 
    FreeLibrary LibHand '释放映射库的地址 
End Sub



解决办法2：
 
下面是动态调用MessageBoxA的源代码，上面的步骤被封装到RunDll32函数中，可放到模块(CallAPIbyName.bas)中： 
    Dim s1() As Byte, s2()   As Byte 
    Const hWnd = 0 
    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&) 
End Sub 
 
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 
    hModule = LoadLibrary(ByVal LibFileName)    '读取API库 
    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 
    RunDll32 = CallWindowProc(GetCodeStart(hProc, Params), 0, 1, 2, 3)  '执行Assembly   Code部分 
    FreeLibrary hModule '释放空间 
End Function

解决办法3：

在VB中嵌入汇编实现。loadlibary取得DLL，GetProcAddress取得函数地址，用VB嵌入汇编的写法压所需参数，CallWindowProc调用GetProcAddress返回的地址。