检测程序是否被变速齿轮加速思路

憨憨问号

看到问答区有人问了，尝试自己写了一个，代码很简单，效果很强力

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
集_初始时间	整数型

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

集_初始时间 ＝ 到整数 (时间_到时间戳 (取现行时间 (), 真, 真))  ' 程序启动时，取回一个初始时间，此时时间与现行时间一致
启动线程 (&循环检测, , )  ' 创建一个死循环检测线程

子程序名	返回值类型	公开	备 注
循环检测

变量名	类 型	静态	数组	备 注
现行时间	整数型

判断循环首 (真)
延迟 (1000)  ' 每秒循环一次，这个延迟必须放前面
集_初始时间 ＝ 集_初始时间 ＋ 1  ' 时间每次+1秒
现行时间 ＝ 到整数 (时间_到时间戳 (取现行时间 (), 真, 真))  ' 取回此时的现行时间并转换为时间戳，此时间戳正常情况下应该和集_初始时间一致
' 标签1.标题 ＝ 到文本 (集_初始时间) ＋ “  ” ＋ 到文本 (现行时间)  ' 方便观察用标签储存
' 调试输出 (集_初始时间, 现行时间)  ' 方便观察
如果真 (集_初始时间 ≠ 现行时间)  ' 如果两者不相等，说明集_初始时间的数值因为某种原因不再是每秒+1，可以判断时间流速被改变
信息框 (“被变速”, 0, , )
结束 ()

判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 集_初始时间, 整数型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 集_初始时间 ＝ 到整数 (时间_到时间戳 (取现行时间 (), 真, 真))  ' 程序启动时，取回一个初始时间，此时时间与现行时间一致<br /> 启动线程 (&循环检测, , )  ' 创建一个死循环检测线程<br /> <br /> .子程序 循环检测<br /> .局部变量 现行时间, 整数型<br /> <br /> .判断循环首 (真)<br />     延迟 (1000)  ' 每秒循环一次，这个延迟必须放前面<br />     集_初始时间 ＝ 集_初始时间 ＋ 1  ' 时间每次+1秒<br />     现行时间 ＝ 到整数 (时间_到时间戳 (取现行时间 (), 真, 真))  ' 取回此时的现行时间并转换为时间戳，此时间戳正常情况下应该和集_初始时间一致<br />     ' 标签1.标题 ＝ 到文本 (集_初始时间) ＋ “  ” ＋ 到文本 (现行时间)  ' 方便观察用标签储存<br />     ' 调试输出 (集_初始时间, 现行时间)  ' 方便观察<br />     .如果真 (集_初始时间 ≠ 现行时间)  ' 如果两者不相等，说明集_初始时间的数值因为某种原因不再是每秒+1，可以判断时间流速被改变<br />         信息框 (“被变速”, 0, , )<br />         结束 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()

写了详细的注释


测试下来似乎必须用线程来循环，时钟循环无法被变速影响，不知道什么原因
效果图：

查过

感谢发布原创作品，精易因你更精彩！6666666666666

豆豆灰常开心

感谢分享，很给力！~

ale99

感谢分享！学习一下

bianyuan456

已经顶贴，感谢您对论坛的支持！

胖子葛格

感谢大神分享~！

hezeyu

感谢分享

pipicool

学习一下

查过

下个学习一下

豆豆灰常开心

感谢您对论坛的支持！