|
QueryPerformanceCounter | 逻辑型 | |
|
kernel32 |
|
QueryPerformanceCounter |
|
lpPerformanceCount | 长整数型 | | |
|
QueryPerformanceFrequency | 逻辑型 | |
|
kernel32 |
|
QueryPerformanceFrequency |
|
lpFrequency | 长整数型 | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
开始计数 | 长整数型 | | |
结束计数 | 长整数型 | | |
频率 | 长整数型 | | |
实际时间 | 双精度小数型 | | |
预期时间 | 双精度小数型 | | |
预期时间 = 1.0
QueryPerformanceFrequency (频率
)QueryPerformanceCounter (开始计数
)延时 (1000
) QueryPerformanceCounter (结束计数
)实际时间
= (结束计数 - 开始计数
) / 频率
如果真 (实际时间 < 预期时间 × 0.7
)
信息框 ("检测到时间加速!实际耗时:" +
到文本 (实际时间 × 1000
) + "ms",
#错误图标, "异常警告"
)
窗口程序集名 | 保 留 | 保 留 | 备 注 |
窗口程序集_窗口1 | | | |
变量名 | 类 型 | 数组 | 备 注 |
集_初始时间 | 整数型 | |
集_初始时间 =
到整数 (时间_到时间戳 (取现行时间 (), 真,
真))
启动线程 (&循环检测, ,
)
判断循环首 (真)
延迟 (1000
)
集_初始时间 = 集_初始时间 + 1

现行时间 =
到整数 (时间_到时间戳 (取现行时间 (), 真,
真))

标签1.标题 =
到文本 (集_初始时间
) +
“ ” +
到文本 (现行时间
)
调试输出 (集_初始时间, 现行时间
)
如果真 (集_初始时间 ≠ 现行时间
)
信息框 (“被变速”, 0, ,
)

判断循环尾 ()