VB動態調用外部函數的方法

　　導讀:VB可以用Declare聲明來調用標準DLL的外部函數，但是其局限性也很明顯：利用Declare我們只能載入在設計時通過Lib和Alias字句指定的函數指針!而不能在運行時指定由我們自己動態載入的函數指針)，不能用Declare語句來調用任意的函數指針。當我們想動態調用外部函數的時候，就必須考慮采用其他的輔助方法，來完成這個任務了。

　　在文章《VB真是想不到系列之三：VB指針葵花寶典之函數指針 》、《Matthew Curland的VB函數指針調用》、《利用動態創建自動化接口實現VB的函數指針調用》等文獻中對此問題都進行了一定程度上的討論，但是頭緒都很繁瑣，對我這樣的菜鳥還有點深奧，在資料搜索過程中，找到通過在VB中調入匯編程序，比較簡便的實現了這個功能，下面就是實現原理：

　　1)使用LoadLibrary加載DLL;

　　2)GetProcAddress獲得函數指針;

　　以上兩步得到了預加載函數的指針，但是VB中沒有提供使用這個指針的方法。我們可以通過一段匯編語言，來完成函數指針的調用!

　　3)通過匯編語言，把函數的所有參數壓入堆棧，然后用Call待用函數指針就可以了。

　　實現以上功能的主要程序：

　　′加載Dll

　　LibAddr = LoadLibrary(ByVal "user32")

　　′獲得函數指針

　　ProcAddr = GetProcAddress(LibAddr, ByVal "MessageBoxA")

　　′原型為MessageBox(hWnd, lpText, lpCaption, uType)

　　′---以下為Assembly部分---

　　push uType

　　push lpCaption

　　push lpText

　　push hWnd

　　call ProcAddr

　　′--------------------

　　FreeLibrary LibAddr′釋放空間

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

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

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

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