.版本 2
.支持库 xplib
.支持库 EThread
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 许可证, 整数型
.程序集变量 dm, 类_大漠插件
.子程序 __启动窗口_创建完毕
dm.初始_注册大漠插件 ()
dm.初始_创建大漠多线程 ()
dm.基本_设置全局路径 (, 取运行目录 ())
dm.文字_设置字库 (, 0, “111.txt”)
XP风格 (3)
许可证 ＝ 创建进入许可证 ()
.子程序 子程序1
.参数 参数1, 整数型
.局部变量 坐标x, 整数型
.局部变量 坐标y, 整数型
.局部变量 是否循环, 逻辑型
是否循环 ＝ 真
.判断循环首 (是否循环 ＝ 真)
进入许可区 (许可证)
dm.文字_找字 (, 0, 0, 2000, 2000, “里面断网”, “caae89-000000”, 0.8, 坐标x, 坐标y)
.判断开始 (坐标x ＝ -1)
调试输出 (“没有找到1”)
.默认
超级延时3 (200)
dm.鼠标_移动 (, 坐标x, 坐标y)
超级延时3 (200)
dm.鼠标_按下左键 ()
' 超级延时3 (500)
' dm.鼠标_按下左键 ()
超级延时3 (1000)
.判断结束
超级延时3 (500)
退出许可区 (许可证)
.判断循环尾 ()
.子程序 子程序2
.参数 参数2, 整数型
.局部变量 坐标x, 整数型
.局部变量 坐标y, 整数型
.局部变量 是否循环, 逻辑型
是否循环 ＝ 真
.判断循环首 (是否循环 ＝ 真)
进入许可区 (许可证)
dm.文字_找字 (, 0, 0, 2000, 2000, “没进去”, “caae89-000000”, 0.8, 坐标x, 坐标y)
.判断开始 (坐标x ＝ -1)
调试输出 (“没有找到”)
.默认
超级延时3 (200)
dm.鼠标_移动 (, 坐标x ＋ 2, 坐标y ＋ 2)
超级延时3 (200)
dm.鼠标_按下左键 ()
' 超级延时3 (500)
' dm.鼠标_按下左键 ()
超级延时3 (1000)
.判断结束
超级延时3 (500)
退出许可区 (许可证)
.判断循环尾 ()
.子程序 启动
启动线程 (&子程序1, 1, )
启动线程 (&子程序2, 2, )
.子程序 __启动窗口_将被销毁
删除进入许可证 (许可证)
结束 ()
.子程序 _按钮1_被单击
启动 ()