'哇好难!!! 竟然没人会 会的都不是人
'那些用"全局鼠标钩子"的是外星人 妖怪
'写以下代码的(用API的)是神是上帝:
'以下代码用上了 传说中的 "时钟控件" (高科技啊 一般人不会用的) 状态显示在了"窗口标题"(般人我不告诉他)
'注意 变量t 是 程序集变量
.版本 2
.程序集 窗口程序集1
.程序集变量 t
.子程序 __启动窗口_创建完毕
t = 取启动时间 ()
时钟1.时钟周期 = 1
.子程序 _时钟1_周期事件
.如果 (测试虚拟键_ (1) ≠ 0)
_启动窗口.标题 = “左键按下 ” + 到文本 (取鼠标水平位置 ()) + “,” + 到文本 (取鼠标垂直位置 ())
.判断循环首 (测试虚拟键_ (1) ≠ 0)
.判断循环尾 ()
_启动窗口.标题 = “左键弹起 坐标 ” + 到文本 (取鼠标水平位置 ()) + “,” + 到文本 (取鼠标垂直位置 ()) + “ 间隔” + 到文本 (取启动时间 () - t) + “毫秒”
t = 取启动时间 ()
.否则
.如果真 (测试虚拟键_ (2) ≠ 0)
_启动窗口.标题 = “右键按下 ” + 到文本 (取鼠标水平位置 ()) + “,” + 到文本 (取鼠标垂直位置 ())
.判断循环首 (测试虚拟键_ (2) ≠ 0)
.判断循环尾 ()
_启动窗口.标题 = “右键弹起 坐标 ” + 到文本 (取鼠标水平位置 ()) + “,” + 到文本 (取鼠标垂直位置 ()) + “ 间隔” + 到文本 (取启动时间 () - t) + “毫秒”
t = 取启动时间 ()
.如果真结束
.如果结束
.版本 2
.DLL命令 测试虚拟键_, 整数型, "user32", "GetAsyncKeyState"
.参数 键代码, 整数型, , vKey Long,欲测试的虚拟键的键码
2017-08-19