- 注释:前提是有光标闪动
- 标记 帐号设置
- 弹出窗口 "如果要直接登录请按F1,帐号设置请按F2,谢谢"
- 标记 等待按键1
- 注释:等待按键
- 令 key1 = (键盘)等待按任意键
- 如果 key1 = 112 则
- 跳转到标记 帐号设置完毕
- 条件结束
- 令 GG = InputBox("请输入您的帐号!!!" & Vbcrlf & "无内容输入时直接按[确定]或[取消]退出!!!")
- 延时 1000 毫秒
- 令 key = InputBox("请输入您的密码!!!" & Vbcrlf & "无内容输入时直接按[确定]或[取消]退出!!!")
- 延时 1000 毫秒
- 令 KEY2 = InputBox("请输入启动按键码! 如:F1,F2,...;" & Vbcrlf & "无内容输入时直接按[确定]或[取消]退出!!!")
- 弹出窗口 "选择保存到帐号,帐号1按F1,帐号2按F2,帐号3按F3,帐号4按F4"
- 标记 等待按键2
- 注释:等待按键
- 令 key2 = (键盘)等待按任意键
- 如果 key2 = 112 则
- 跳转到标记 帐号1
- 条件结束
- 如果 key2 = 113 则
- 跳转到标记 帐号2
- 条件结束
- 如果 key2 = 114 则
- 跳转到标记 帐号3
- 条件结束
- 如果 key2 = 115 则
- 跳转到标记 帐号4
- 条件结束
- 弹出窗口 "你输入的不存在,请重新输入"
- 跳转到标记 等待按键2
- 标记 帐号1
- 令 A1 = GG
- 令 A2 = key
- 令 A3 = KEY2
- 跳转到标记 帐号设置完毕
- 标记 帐号2
- 令 B1 = GG
- 令 B2 = key
- 令 B3 = KEY2
- 跳转到标记 帐号设置完毕
- 标记 帐号3
- 令 C1 = GG
- 令 C2 = key
- 令 C3 = KEY2
- 跳转到标记 帐号设置完毕
- 标记 帐号4
- 令 D1 = GG
- 令 D2 = key
- 令 D3 = KEY2
- 标记 帐号设置完毕
- 弹出窗口 "你的帐号已设置完毕按下对应帐号的启动密码即可启动该密码,谢谢"
- 标记 等待按键3
- 注释:等待按键
- 标记 再次启动
- 令 key3 = (键盘)等待按任意键
- 如果 A3 = key3 则
- 输入文本 A1
- (键盘)按 "Tab" 键, 1次
- 输入文本 A2
- (键盘)按 "Enter" 键, 1次
- 条件结束
- 如果 A3 = key3 则
- 输入文本 B1
- (键盘)按 "Tab" 键, 1次
- 输入文本 B2
- (键盘)按 "Enter" 键, 1次
- 条件结束
- 如果 C3 = key3 则
- 输入文本 C1
- (键盘)按 "Tab" 键, 1次
- 输入文本 C2
- (键盘)按 "Enter" 键, 1次
- 条件结束
- 如果 D3 = key3 则
- 输入文本 D1
- (键盘)按 "Tab" 键, 1次
- 输入文本 D2
- (键盘)按 "Enter" 键, 1次
- 条件结束
- 跳转到标记 再次启动
- 脚本停止运行