1. 注释:前提是有光标闪动
  2. 标记 帐号设置
  3. 弹出窗口 "如果要直接登录请按F1,帐号设置请按F2,谢谢"
  4. 标记 等待按键1
  5. 注释:等待按键
  6. 令 key1 = (键盘)等待按任意键
  7. 如果 key1 = 112 则
  8.     跳转到标记 帐号设置完毕
  9. 条件结束
  10. 令 GG = InputBox("请输入您的帐号!!!" & Vbcrlf & "无内容输入时直接按[确定]或[取消]退出!!!")
  11. 延时 1000 毫秒
  12. 令 key = InputBox("请输入您的密码!!!" & Vbcrlf & "无内容输入时直接按[确定]或[取消]退出!!!")
  13. 延时 1000 毫秒
  14. 令 KEY2 = InputBox("请输入启动按键码! 如:F1,F2,...;" & Vbcrlf & "无内容输入时直接按[确定]或[取消]退出!!!")
  15. 弹出窗口 "选择保存到帐号,帐号1按F1,帐号2按F2,帐号3按F3,帐号4按F4"
  16. 标记 等待按键2
  17. 注释:等待按键
  18. 令 key2 = (键盘)等待按任意键
  19. 如果 key2 = 112 则
  20.     跳转到标记 帐号1
  21. 条件结束
  22. 如果 key2 = 113 则
  23.     跳转到标记 帐号2
  24. 条件结束
  25. 如果 key2 = 114 则
  26.     跳转到标记 帐号3
  27. 条件结束
  28. 如果 key2 = 115 则
  29.     跳转到标记 帐号4
  30. 条件结束
  31. 弹出窗口 "你输入的不存在,请重新输入"
  32. 跳转到标记 等待按键2
  33. 标记 帐号1
  34. 令 A1 = GG
  35. 令 A2 = key
  36. 令 A3 = KEY2
  37. 跳转到标记 帐号设置完毕
  38. 标记 帐号2
  39. 令 B1 = GG
  40. 令 B2 = key
  41. 令 B3 = KEY2
  42. 跳转到标记 帐号设置完毕
  43. 标记 帐号3
  44. 令 C1 = GG
  45. 令 C2 = key
  46. 令 C3 = KEY2
  47. 跳转到标记 帐号设置完毕
  48. 标记 帐号4
  49. 令 D1 = GG
  50. 令 D2 = key
  51. 令 D3 = KEY2
  52. 标记 帐号设置完毕
  53. 弹出窗口 "你的帐号已设置完毕按下对应帐号的启动密码即可启动该密码,谢谢"
  54. 标记 等待按键3
  55. 注释:等待按键
  56. 标记 再次启动
  57. 令 key3 = (键盘)等待按任意键
  58. 如果 A3 = key3 则
  59.     输入文本 A1
  60.     (键盘)按 "Tab" 键, 1次
  61.     输入文本 A2
  62.     (键盘)按 "Enter" 键, 1次
  63. 条件结束
  64. 如果 A3 = key3 则
  65.     输入文本 B1
  66.     (键盘)按 "Tab" 键, 1次
  67.     输入文本 B2
  68.     (键盘)按 "Enter" 键, 1次
  69. 条件结束
  70. 如果 C3 = key3 则
  71.     输入文本 C1
  72.     (键盘)按 "Tab" 键, 1次
  73.     输入文本 C2
  74.     (键盘)按 "Enter" 键, 1次
  75. 条件结束
  76. 如果 D3 = key3 则
  77.     输入文本 D1
  78.     (键盘)按 "Tab" 键, 1次
  79.     输入文本 D2
  80.     (键盘)按 "Enter" 键, 1次
  81. 条件结束
  82. 跳转到标记 再次启动
  83. 脚本停止运行