动态调用API函数,输入字符串即可调用API,作者为Supermanking

马大哈

此类模块在写类似按键精灵一样的解释器时非常有用,API的名称与参数均为字符串.

主要功能为调用API并取得返回值.

以下是源码内部的调用示例:

1. Option Explicit
   
2. 
   
3. Private Sub Command1_Click()
   
4.    Dim API As New APIClass
   
5.    Dim APIScript As String
   
6.    '最简单的调用API函数
   
7.    APIScript = "MessageBoxA 0, ""这是动态调用API函数显示的MSGBOX内容，下面将要在桌面画一笔。"", ""API信息提示"", 0"
   
8.    API.ExecuteAPI "C:\WINDOWS\system32\user32.dll", APIScript
   
9.    
   
10.    '=============在桌面画画============
    
11.    Dim DesktophWnd As Long, DesktophDC As Long
    
12.    '取得桌面窗口句柄
    
13.    DesktophWnd = API.ExecuteAPI("C:\WINDOWS\system32\user32.dll", "GetDesktopWindow")
    
14.    '取得桌面窗口设备句柄
    
15.    DesktophDC = API.ExecuteAPI("C:\WINDOWS\system32\user32.dll", "GetWindowDC " & DesktophWnd)
    
16.    '在作面设备上画一条线
    
17.    API.ExecuteAPI "C:\WINDOWS\system32\gdi32.dll", "LineTo " & DesktophDC & "," & Screen.Width / 15 & "," & Screen.Height / 15
    
18. End Sub
    

复制代码

动态调用API函数.rar (3.36 KB, 下载次数: 15129)

2012-6-27 21:45 上传

点击文件名下载附件

PS:

我也慢慢发些组件上来.....

aprotect

直接reload 一下，修复导入导出重定位表，然后弄个HashTable，就可以通过hash条用api了

马大哈

aprotect 发表于 2012-6-29 09:52
直接reload 一下，修复导入导出重定位表，然后弄个HashTable，就可以通过hash条用api了 ...

没明白.......

sunshinebean

自己构造push参数..感觉没啥技术含量

其实可以用callwindowproc执行汇编代码获取kernel32基址,然后通过pe格式获取到loadlibrary函数地址,然后再自己构造参数继续callwindowproc去call

yxd199512041

可以做个伪编译器了{:soso_e113:}

supertankhzt

yxd199512041 发表于 2012-7-10 22:25
可以做个伪编译器了

是解析器吧？

感觉效率会比较低。

现在很多游戏封杀按键精灵，做个伪按键精灵也不错，哈哈。

马大哈

supertankhzt 发表于 2012-7-10 22:48
是解析器吧？

感觉效率会比较低。

现在游戏都封杀按键精灵了?

supertankhzt

马大哈 发表于 2012-7-11 23:44
现在游戏都封杀按键精灵了?

貌似TX的游戏不会管，但其它的网游不少都封杀按键精灵，一开就弹非法，游戏自动退出。
一般玩家开神盾能躲过部分网游的扫描，但神盾要开通会员才能使用，也有一些高手用非常规手段过检测。

马大哈

supertankhzt 发表于 2012-7-12 03:02
貌似TX的游戏不会管，但其它的网游不少都封杀按键精灵，一开就弹非法，游戏自动退出。
一般玩家开神盾能 ...

那按键精灵的那个硬件挂呢?也有办法封?

不知道好不好卖

supertankhzt

马大哈 发表于 2012-7-12 17:46
那按键精灵的那个硬件挂呢?也有办法封?

不知道好不好卖

那个按键盒子我买过，不过又两百块卖掉了。
虽然没发现有被游戏封杀（可能是用的人太少了），但是功能太弱，如果不使用配套的软件加载器，就只有鼠标和键盘的功能，找图都不行。
要封的话对那个加载器下手就行。

马大哈

supertankhzt 发表于 2012-7-12 22:38
那个按键盒子我买过，不过又两百块卖掉了。
虽然没发现有被游戏封杀（可能是用的人太少了），但是功能太 ...

我还以为很好卖呢.

如果好卖的话就可以做一个来玩玩,嘿嘿.

xxhaishixx

很好很强大的说