简单防止调试断点思路源码
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 集_被断点调试, 逻辑型
.子程序 __启动窗口_创建完毕
线程_启动 (&_时钟1_周期事件, , )
.子程序 _按钮1_被单击
.局部变量 局_无用, 文本型
.局部变量 局_首次时间, 长整数型
局_首次时间 = 时间_取现行时间戳1 (真)
' 程序_延时 (2000, )
局_无用 = 文本_取随机字符 (20, )
.如果真 (时间_取现行时间戳1 (真) - 局_首次时间 > 1000) ' //第一次时间到现在时间 间隔大于1000毫秒就断定他在断点调试跟踪 开源结束进程之类的
集_被断点调试 = 真 ' //这样最好,不在这个位置崩溃,没那么容易被干掉
' //结束
' //崩溃
.如果真结束
.子程序 _时钟1_周期事件
.循环判断首 ()
.如果真 (集_被断点调试)
信息框 (“请勿断点调试”, 0, , )
跳出循环 ()
.如果真结束
程序_延时 (1000, )
.循环判断尾 (1 < 9)