如何释放动态连接库？（急）

Question

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

Answer 1

如果你使用LoadLibrary，就用FreeLibrary释放：
Dim lb As Long
lb = LoadLibrary("user32")
FreeLibrary lb

Answer 2

GW_API DWORD ConnectGW(char* szServer,WORD wPort,DWORD dwStationID,char* szPassword);
    GW_API DWORD MsgSend(char* szMobile,char* szMsg,DWORD dwSequence,BYTE bMsgLen,BYTE bFormat,BYTE isReply);
    GW_API DWORD MsgRecv(char* szMobile,char* szMsg,DWORD *dwSequence);
    GW_API void StopGW();
浠ヤ笂鏄垜鎵€杩炴帴鐨勫姩鎬佽繛鎺ュ簱鐨?涓帴鍙ｏ紝涓嬮潰鏄垜鐨勪唬鐮侊紝楹荤儲鍚勪綅甯垜鐪嬬湅鎴戠殑鍙傛暟杞崲鐨勬槸鍚︽纭€?
    Public Declare Function MsgSend Lib " App.Path\Release" Alias "gw.dll" (szMobile As String, szMsg As String, dwSequence As Integer, bMsglen As Integer, bFormat As Long, isReply As Byte) As Integer
    Public Declare Function ConnectGW Lib " App.Path\Release" Alias "gw.dll" (szServer As String, wPORT As Integer, dwStationID As Long, szPassword As String) As Integer
    Public Declare Function MsgRecv Lib " App.Path\Release" Alias "gw.dll" (szMobile As String, szMsg As String, dwSequence As Long) As Integer
    Public Declare Function stopGW Lib " App.Path\Release" Alias "gw.dll" () As Variant璋㈣阿浜嗭紒

Answer 3

lh = LoadLibaray(youdll)call your dll funcs
do
   FreeLibaray lh
until IsBadReadPtr(ByVal lh, 2)