.版本 2 .支持库 iext .子程序 __启动窗口_创建完毕 ' 本源码来自三叶资源网(www.sanye.cx) _启动窗口.可视 ＝ 假 检查更新 () 载入 (窗口1, _启动窗口, 假) 窗口1.可视 ＝ 假 .如果真 (文件是否存在 (取运行目录 () ＋ “\Unpack.ini”) ＝ 假) 写到文件 (取运行目录 () ＋ “\Unpack.ini”, #Unpack) 信息框 (“配置文件已更新，请重新运行软件！”, 0, “提示”) 运行 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 假, ) .如果真结束 配置加载 () 时钟1.时钟周期 ＝ 周期时间 .子程序 __启动窗口_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .如果真 (键代码 ＝ #F8键) 载入 (窗口2, _启动窗口, 真) .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _时钟1_周期事件 .如果 (透明标签1.左边 ＋ 透明标签1.宽度 ＝ 200) 透明标签1.左边 ＝ _启动窗口.宽度 x ＝ x ＋ 1 .否则 透明标签1.左边 ＝ 透明标签1.左边 － 5 .如果结束 .判断开始 (x ＞ 4 或 x ＝ 0) x ＝ 1 .默认 .判断结束 透明标签1.标题 ＝ 多项选择 (x, 读配置项 (取运行目录 () ＋ “\Unpack.ini”, “滚动文本”, “文本0”, ), 读配置项 (取运行目录 () ＋ “\Unpack.ini”, “滚动文本”, “文本1”, ), 读配置项 (取运行目录 () ＋ “\Unpack.ini”, “滚动文本”, “文本2”, ), 读配置项 (取运行目录 () ＋ “\Unpack.ini”, “滚动文本”, “文本3”, )) 透明标签1.文本颜色 ＝ 到整数 (多项选择 (x, 读配置项 (取运行目录 () ＋ “\Unpack.ini”, “颜色”, “文本颜色”, ), 读配置项 (取运行目录 () ＋ “\Unpack.ini”, “颜色”, “文本颜色1”, ), 读配置项 (取运行目录 () ＋ “\Unpack.ini”, “颜色”, “文本颜色2”, ), 读配置项 (取运行目录 () ＋ “\Unpack.ini”, “颜色”, “文本颜色3”, ))) 透明标签1.宽度 ＝ 取文本长度 (透明标签1.标题) × 100 .子程序 配置加载 底色 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\Unpack.ini”, “颜色”, “背景颜色”, )) ' 透明标签1.文本颜色 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\Unpack.ini”, “颜色”, “文本颜色”, )) 周期时间 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\Unpack.ini”, “滚动文本”, “速度”, “50”)) 画板1.画板背景色 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\Unpack.ini”, “颜色”, “背景颜色”, )) _启动窗口.顶边 ＝ 0 _启动窗口.左边 ＝ 0 _启动窗口.宽度 ＝ 取屏幕宽度 () _启动窗口.高度 ＝ 取屏幕高度 () 画板1.顶边 ＝ 0 画板1.左边 ＝ 0 画板1.宽度 ＝ 取屏幕宽度 () 画板1.高度 ＝ 取屏幕高度 () ÷ 2.8 透明标签1.顶边 ＝ 取屏幕高度 () ÷ 3 透明标签1.左边 ＝ 取屏幕宽度 () 透明标签1.宽度 ＝ 取屏幕宽度 ()