判断鼠标动作

nihuaijie · 发表于 2023-12-20 19:13:44

判断3分钟内无鼠标动作就关闭模拟器

goujieliu66 · 发表于 2023-12-20 19:13:45

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
秒_记录	整数型
上次位置	精易_坐标

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

上次位置.横＝ 0
上次位置.纵＝ 0

子程序名	返回值类型	公开	备注
_时钟1_周期事件

变量名	类型	静态	数组	备注
位置	精易_坐标
横	逻辑型
纵	逻辑型

位置＝鼠标_取位置 ()
横＝假
纵＝假

如果 (位置.横＝上次位置.横)

横＝真

上次位置.横＝位置.横

如果 (位置.纵＝上次位置.纵)
纵＝真

上次位置.纵＝位置.纵

如果 (横＝真且纵＝真)
秒_记录＝秒_记录＋ 1

如果真 (秒_记录＝ 180) ' 三分钟 = 180秒
时钟1.时钟周期＝ 0
调试输出 (“执行关闭模拟器”)

秒_记录＝ 0 ' 如果鼠标位置变动，则重新记录
调试输出 (“上次位置”, 上次位置.横, 上次位置.纵, “当前位置”, 位置.横, 位置.纵, “停留时间”, 秒_记录)

i支持库列表	支持库注释
spec	特殊功能支持库

关闭模拟器自己写一下

chajiong · 发表于 2023-12-20 20:02:53

写个倒计时，然后~到文本 (取鼠标水平位置 ()) ＋ “,” ＋到文本 (取鼠标垂直位置 ())，计时时间180秒，取两次位置判断，如果a位置等于b位置则关闭结束进程（模拟器进程），如果A位置不等于B位置则。。。。。

chajiong · 发表于 2023-12-20 20:20:38

.版本 2 .支持库 iext .子程序 _时钟1_周期事件标签1.标题＝到文本 (到整数 (标签1.标题) － 1) .如果真 (到整数 (标签1.标题) ≥ 1) 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 到文本 (超级列表框1.取表项数 ())) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 到文本 (取鼠标水平位置 ()) ＋ “,” ＋到文本 (取鼠标垂直位置 ())) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 时间_格式化EX (取现行时间 (), , , 1)) .如果真结束 .如果真 (到整数 (标签1.标题) ＝ -6) 超级列表框1.全部删除 () 标签1.标题＝ “10” .如果真结束 .如果真 (到整数 (标签1.标题) ≤ -5) .如果真 (超级列表框1.取标题 (0, 1) ≠ 超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 1)) 标签2.标题＝ “鼠标动了” .如果真结束 .如果真 (超级列表框1.取标题 (0, 1) ＝超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 1)) 标签2.标题＝ “鼠标未动”

补充内容 (2023-12-20 20:20):
写好了~自己按照自己的需求改动一下就行~

chajiong · 发表于 2023-12-20 20:28:40

https://bbs.125.la/thread-14806615-1-1.html

源码在这里

		自动登录	找回密码
密码			注册

[完成] 判断鼠标动作

最佳答案