易语言怎么监视鼠标左键有没有被按下

下面是大神你以前做的
不过我不知道怎么让这个监控停下来 把时钟周期改为0没用啊
求大神指点

创建Dll命令(下)
.版本 2

.DLL命令 键_判断函数调用时指定虚拟键状态, 短整数型, "user32.dll", "GetAsyncKeyState"
.参数 键码, 整数型

窗口添加时钟组件(时钟周期=30),程序集添加下两子程序:

.版本 2

.子程序 键_当前已按下键, 整数型, , 返回当前按下键键代码,没有按键返回"-1"
.局部变量 i, 整数型
.局部变量 D, 整数型

i ＝ 0
.判断循环首 (i ≤ 255)
D ＝ 键_判断函数调用时指定虚拟键状态 (i)
.真 (D ≠ 0)
返回 (i)
跳出循环 ()
.真结束
i ＝ i ＋ 1
.判断循环尾 ()
返回 (-1)

.子程序 _时钟1_周期事件
.局部变量 D, 整数型

.真 (键_当前已按下键 () ＝1) ' 鼠标左键代码
时钟1.时钟周期=0
' 调用另子程序()
时钟1.时钟周期=30
.真结束

创建一Dll命令(如下)
.版本 2

.DLL命令 键_判断函数调用时指定虚拟键的状态, 短整数型, "user32.dll", "GetAsyncKeyState"
.参数 键码, 整数型

在窗口中添加一时钟组件(时钟周期=30),在程序集中添加以下两个子程序:

.版本 2

.子程序 键_当前已按下的键, 整数型, , 返回当前按下键的键代码,没有按键返回"-1"
.局部变量 i, 整数型
.局部变量 D, 整数型

i ＝ 0
.判断循环首 (i ≤ 255)
D ＝ 键_判断函数调用时指定虚拟键的状态 (i)
.如果真 (D ≠ 0)
返回 (i)
跳出循环 ()
.如果真结束
i ＝ i ＋ 1
.判断循环尾 ()
返回 (-1)

.子程序 _时钟1_周期事件
.局部变量 D, 整数型

.如果真 (键_当前已按下的键 () ＝1) ' 鼠标左键代码
时钟1.时钟周期=0
' 调用另一个子程序()
时钟1.时钟周期=30
.如果真结束
希望能解决您的问题。追问

大哥 你这不是把我的复制一遍了么？我要的是如何停止这个监控啊

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/8v7pqv8p7sqmv77vqs.html