易语言-API点击鼠标

.版本 2

.DLL命令 UnregisterHotKey, 整数型, , "UnregisterHotKey"
    .参数 hWnd, 整数型
    .参数 HotKeyID, 整数型

.DLL命令 RegisterHotKey, 整数型, "user32.dll", "RegisterHotKey"
    .参数 hWnd, 整数型
    .参数 id, 整数型
    .参数 fsModifoers, 整数型
    .参数 vk, 整数型

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 _控制鼠标, , "user32", "mouse_event"
    .参数 dwFlags, 整数型
    .参数 dx, 整数型
    .参数 dy, 整数型
    .参数 cButtons, 整数型
    .参数 dwExtraInfo, 整数型

 

 

 

.版本 2

.程序集 窗口程序集1
.程序集变量 集_热键句柄, 整数型

.子程序 __启动窗口_创建完毕

集_热键句柄 ＝ RegHotKey (取窗口句柄 (), 1, #Z键, &开始点击)

 

.子程序 开始点击

.如果 (标签_工作状态.标题 ＝ “已停止”)
    标签_工作状态.标题 ＝ “运行中”
    时钟1.时钟周期 ＝ 10
.否则
    标签_工作状态.标题 ＝ “已停止”
    时钟1.时钟周期 ＝ 0
.如果结束

.子程序 __启动窗口_将被销毁

UnRegHotKey (取窗口句柄 (), 集_热键句柄)

.子程序 _时钟1_周期事件

_控制鼠标 (2, 0, 0, 0, 0)  ' 按下
_控制鼠标 (4, 0, 0, 0, 0)  ' 放开