| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 启动窗口程序集 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| f1 | 整数型 | "帮助键" | |
| f2 | 整数型 | "音乐开关" | |
| 密码 | 文本型 | ||
| f3 | 整数型 | "增加音量" | |
| f4 | 整数型 | "减少音量" |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 次数 | 整数型 | |||||
如果真 (注册项是否存在 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”))
次数 ＝ 取数值注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”, )如果 (取小时 (取现行时间 ()) － 次数 ＜ 2)信息框 (“由于密码错误！您被限制登陆2小时！”, 0, )
_启动窗口.销毁 ()
删除注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”)
' 判断记住密码否
如果真 (注册项是否存在 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”))透明标签1.标记 ＝ 取文本注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”, )密码编辑框.内容 ＝ 透明标签1.标记密码选择框.选中 ＝ 真媒体播放1.打开 (取运行目录 () ＋ “\mp3\明天会更好.mp3”)
媒体播放1.播放 (-1, _启动窗口.取窗口句柄 ())
f1 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键 )
f2 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键 )
f3 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键 )
f4 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键 )
' 判断是否首次运行，若真设置默认密码"caoyutan"
如果 (注册项是否存在 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”))次数 ＝ 取数值注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”, )透明标签2.标题 ＝ “欢迎您第” ＋ 到文本 (次数) ＋ “次使用本系统！”写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”, 次数 ＋ 1)写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”, 1)
写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\mm”, “caoyutan”)信息框 (“欢迎您首次使用本系统！” ＋ #换行符 ＋ “请进行初始设置！”, 0, )密码 ＝ 取文本注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\mm”, )
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| _标签1_反馈事件 | 整数型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 参数一 | 整数型 | 参数二 | 整数型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 左音 | 整数型 | |||||
| 右音 | 整数型 | |||||
如果真 (参数一 ＝ f1)信息框 (“默认登陆密码：caoyutan” ＋ #换行符 ＋ “登陆后请修改密码，切记！切记！” ＋ #换行符 ＋ “密码错误3次，将限制登陆2小时！” ＋ #换行符 ＋ “正确登陆后可自动消除限制！” ＋ #换行符 ＋ “f2键音乐开关！” ＋ #换行符 ＋ “f3,f4 音量增减！”, 0, )
如果真 (参数一 ＝ f2)如果 (登陆按钮.标记 ＝ “暂停”)登陆按钮.标记 ＝ “播放”媒体播放1.暂停 ()登陆按钮.标记 ＝ “暂停”媒体播放1.播放 (1000, )如果真 (参数一 ＝ f3)媒体播放1.取音量 (左音, 右音)媒体播放1.置音量 (左音 ＋ 15, 右音 ＋ 15)如果真 (参数一 ＝ f4)媒体播放1.取音量 (左音, 右音)如果真 (媒体播放1.置音量 (左音 － 15, 右音 － 15)) ' 信息框 (左音, 0, )| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _登陆按钮_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 重试次数 | 短整数型 | |||||
| 小时 | 短整数型 | |||||
如果真 (密码编辑框.内容 ≠ 密码)如果 (3 － 重试次数 ＝ -1)信息框 (“由于密码错误！您已被限时登陆2小时！”, 0, )小时 ＝ 取小时 (取现行时间 ())写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”, 小时)_启动窗口.销毁 ()信息框 (“密码错误，您还有” ＋ 到文本 (3 － 重试次数) ＋ “次机会！”, 0, )返回 ()_启动窗口.可视 ＝ 假
媒体播放1.关闭 ()
载入 (系统窗口, , 真)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| _密码编辑框_按下某键 | 逻辑型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 键代码 | 整数型 | 功能键状态 | 整数型 | ||||
如果真 (键代码 ＝ #回车键 )如果真 (密码编辑框.内容 ＝ “”)信息框 (“请输入正确的密码！”, 0, )密码编辑框.获取焦点 ()返回 ()_登陆按钮_被单击 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _密码选择框_被单击 | |||||
如果真 (密码编辑框.内容 ＝ “”)信息框 (“请输入正确的密码！”, 0, )密码编辑框.获取焦点 ()密码选择框.选中 ＝ 假返回 ()如果 (密码选择框.选中 ＝ 真)写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”, 密码编辑框.内容)密码编辑框.获取焦点 ()删除注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”)密码编辑框.内容 ＝ “”| i支持库列表 | 支持库注释 |
| xplib | XP风格界面库 |
| iext | 扩展界面支持库一 |
| eMMedia | 多媒体支持库 |
| shellEx | 扩展功能支持库一 |
