clarexxg 发表于 2014-7-23 09:05:40

键盘鼠标不动2分钟后就不执行命令

键盘鼠标不动2分钟后就执行下面的命令,这时间要显示倒计时。
忘高手写出附上源码,谢谢!

八月的樱花 发表于 2014-7-23 09:06:04

.版本 2
.程序集 窗口程序集1
.程序集变量 秒, 整数型
.程序集变量 分, 整数型
.程序集变量 水平位置, 整数型
.程序集变量 垂直位置, 整数型
.子程序 __启动窗口_创建完毕
秒 = 0
分 = 1
时钟2.时钟周期 = 1
.子程序 _时钟1_周期事件
.如果 (水平位置 = 取鼠标水平位置 () 且 垂直位置 = 取鼠标垂直位置 ())
    秒 = 秒 + 1
    .如果真 (秒 = 60)
      秒 = 0
      分 = 分 - 1
    .如果真结束
    .如果真 (分 = 0 且 秒 = 0)
      结束 ()
    .如果真结束
    编辑框1.内容 = “剩余” + 到文本 (分) + “分” + 到文本 (60 - 秒) + “秒”
.否则
    时钟1.时钟周期 = 0
    时钟2.时钟周期 = 1
    秒 = 0
    分 = 1
.如果结束

.子程序 _时钟2_周期事件
水平位置 = 取鼠标水平位置 ()
垂直位置 = 取鼠标垂直位置 ()
时钟2.时钟周期 = 0
时钟1.时钟周期 = 1000
页: [1]
查看完整版本: 键盘鼠标不动2分钟后就不执行命令