BlackFeather'S Blog

这几天做点家伙，用到了很多动态调用的实例，淘到了一些比较有意思的代码，都贴出来涨涨人气。

这份代码是动态调用API的例子。使用的人类(Supermanking)同学（暂时称为同学吧。。比较亲切）做的APIClass类，着实很强大。

调用这个类的代码如下：

   Dim API As New APIClass
   Dim APIScript As String
   Dim fh As Long
   
   '最简单的调用API函数
   APIScript = "MessageBoxA 0, ""这是动态调用API函数显示的MSGBOX内容，下面将要在作面画一笔。"", ""API信息提示"", 1"
   fh = API.ExecuteAPI("C:\WINDOWS\system32\user32.dll", APIScript)
   
   Print "MessageBoxA返回:", fh

先写入调用的字符串，然后执行。原理就是LoadLibrary，GetProcAddress，CallWindowProc三个函数，建议同学们自己动手查查，不用光拿来主义。

附上APIClass的类模块：

 点击下载：APIClass