- 版主
- 211464
- 21164
- 13
- 258 朵
- 47817 个
- 60 个
- 263800
- 2008-12-23
|
1#
t
T
发表于 2010-01-27 11:44
|
|只看楼主
调用API插件(危险武器) 命令格式: API.DLLCall(DLL文件名[字符串型], API函数名[字符串型], API参数表[字符串型],)[返回同API类型] | VB声明: Declare Function GetDC Lib "user32.dll" Alias "GetDC" (ByVal hwnd As Long) As Long Declare Function GetPixel Lib "gdi32.dll" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Declare Function ReleaseDC Lib "user32.dll" Alias "ReleaseDC" (ByVal hwnd As Long, ByVal hdc As Long) As Long
| API帮助文件下载地址: http://bbs.vrbrothers.com/viewthread.php?tid=110838[8.X版]调用例子: - x=0
- y=0
- DesktophDC=Plugin.API.DLLCall("user32.dll", "GetDC", 0)
- 颜色=Plugin.API.DLLCall("gdi32.dll","GetPixel",DesktophDC & "," & x & "," & y)
- Call Plugin.API.DLLCall("user32.dll", "ReleaseDC", "0," & DesktophDC)
- MsgBox "得到指定点(" & x &"," & y & ")颜色为:" & Hex(颜色)
复制代码 [7.X版]调用例子: - x=0
- y=0
- Plugin DesktophDC=API.DLLCall("user32.dll", "GetDC", 0)
- Plugin 颜色=API.DLLCall("gdi32.dll","GetPixel",DesktophDC & "," & x & "," & y)
- Plugin API.DLLCall("user32.dll", "ReleaseDC", "0," & DesktophDC)
- MsgBox "得到指定点(" & x &"," & y & ")颜色为:" & Hex(颜色)
复制代码下面是复杂例子: [8.X版]Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) |
打开记事本,鼠标放在记事本中,启动脚本测试,发现可以输入2个a:
调用例子: Delay 1000 Const VK_A = 65 Const WM_KEYDOWN = 256 Const WM_KEYUP = 257 Hwnd = Plugin.Window.MousePoint() Call Plugin.API.DLLCall("user32.dll", "PostMessageA",hwnd & "," & WM_KEYDOWN & "," & VK_A & ",0") Call Plugin.API.DLLCall("user32.dll", "PostMessageA",hwnd & "," & WM_KEYUP & "," & VK_A & ",0") |
-
-
API.rar
(, 下载次数:621)
(2010/1/27 11:45:38 上传)
-
-
8.jpg
(, 下载次数:2)
(2010/1/27 11:53:21 上传)
-
-
E.jpg
(, 下载次数:3)
调用E写的dll(2010/1/27 12:43:00 上传)
-
-
C.jpg
(, 下载次数:2)
调用vc写的dll(2010/1/27 12:47:13 上传)
|