内存中动态调用API--VB

VB编程 blackfeather

 

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

这份代码是动态调用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

 

 

 

评论列表:

发表评论: