易语言做一个监视鼠标右键的软件，在启动窗口外面，按住鼠标右键时钟1的时钟周期等于100，松开鼠标右

Question

易语言做一个监视鼠标右键的软件，在启动窗口外面，按住鼠标右键时钟1的时钟周期等于100，松开鼠标右键时钟1的时钟周期等于0，不会的别回答，求源码例子！

Answer 1

.版本 2

.程序集 窗口程序集1

.程序集变量 钩子, 整数型

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

钩子 ＝ 创建钩子 (14, &鼠标钩子回调函数, 取实例句柄 (0), 0)

.子程序 鼠标钩子回调函数, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型

.参数 参数三, 整数型

.如果 (参数二 ＝ 516)

    时钟1.时钟周期 ＝ 100

.否则

    .如果 (参数二 ＝ 517)

        时钟1.时钟周期 ＝ 0

    .否则

    .如果结束

.如果结束

返回 (呼叫钩子 (钩子, 参数一, 参数二, 参数三))

.版本2

.版本 2

.DLL命令 创建钩子, 整数型, , "SetWindowsHookExA", , , 创建钩子

    .参数 类型, 整数型

    .参数 回调函数地址, 子程序指针

    .参数 实例句柄, 整数型

    .参数 线程ID, 整数型

.DLL命令 呼叫钩子, 整数型, , "CallNextHookEx", , , 下一个钩子

    .参数 钩子句柄, 整数型

    .参数 参数一, 整数型

    .参数 参数二, 整数型

    .参数 参数三, 整数型

.DLL命令 取实例句柄, 整数型, , "GetModuleHandleA", , , 获取句柄

    .参数 程序名, 整数型

Answer 2

做个鼠标全局监视，调用鼠标按下弹起事件就行了