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

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