//前提是有光标闪动
Rem 帐号设置
MessageBox "如果要直接登录请按F1，帐号设置请按F2，谢谢"
Rem 等待按键1
//等待按键
key1 = WaitKey()
If key1=112 Then
Goto 帐号设置完毕
End If
GG=InputBox("请输入您的帐号!!!"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!")
Delay 1000
key=InputBox("请输入您的密码!!!"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!")
Delay 1000
KEY2=InputBox("请输入启动按键码! 如:F1,F2,...;"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!")
MessageBox "选择保存到帐号，帐号1按F1，帐号2按F2，帐号3按F3，帐号4按F4"
Rem 等待按键2
//等待按键
key2 = WaitKey()
If key2=112 Then
Goto 帐号1
End If
If key2=113 Then
Goto 帐号2
End If
If key2=114 Then
    Goto 帐号3
    End If
If key2=115 Then
    Goto 帐号4
        End If
MessageBox "你输入的不存在，请重新输入"
Goto 等待按键2
Rem 帐号1
A1=GG
A2 = key
A3=KEY2
Goto 帐号设置完毕
Rem 帐号2
B1=GG
B2 = key
B3=KEY2
Goto 帐号设置完毕
Rem 帐号3
C1=GG
C2 = key
C3=KEY2
Goto 帐号设置完毕
Rem 帐号4
D1=GG
D2 = key
D3=KEY2
Rem 帐号设置完毕
MessageBox "你的帐号已设置完毕按下对应帐号的启动密码即可启动该密码，谢谢"
Rem 等待按键3
//等待按键
Rem 再次启动
key3 = WaitKey()
If A3=key3 Then
    SayString A1
KeyPress "Tab", 1
    SayString A2
    KeyPress "Enter", 1
End If
If A3=key3 Then
 SayString B1
KeyPress "Tab", 1
    SayString B2
    KeyPress "Enter", 1
End If
If C3=key3 Then
SayString C1
    KeyPress "Tab", 1
    SayString C2
    KeyPress "Enter", 1
End If
If D3=key3 Then
SayString D1
    KeyPress "Tab", 1
    SayString D2
    KeyPress "Enter", 1
End If
Goto 再次启动
EndScript