UserVar z1="k" "输入第一个账号"
UserVar s1="0" "第一个账号的密码"
UserVar z2="q" "输入第二个账号"
UserVar s2="0" "第二个账号的密码"
UserVar z3="l" "输入第三个账号"
UserVar s3="0" "第三个账号的密码"
UserVar z4="b" "输入第四个账号"
UserVar s4="0" "第四个账号的密码"
UserVar z5="s" "输入第五个账号"
UserVar s5="0" "第五个账号的密码"
Dim a
a = InputBox("请输入账号编号")
If a = 1 Then
Delay 100
LeftClick 1
Delay 100
SayString z1
Delay 100
KeyPress "Tab", 1
Delay 100
SayString s1
End if
If a = 2 Then
Delay 100
LeftClick 1
Delay 100
SayString z2
Delay 100
KeyPress "Tab", 1
Delay 100
SayString s2
End if
If a = 3 Then
Delay 100
LeftClick 1
Delay 100
SayString z3
Delay 100
KeyPress "Tab", 1
Delay 100
SayString s3
End if
If a = 4 Then
Delay 100
LeftClick 1
Delay 100
SayString z4
Delay 100
KeyPress "Tab", 1
Delay 100
SayString s4
End If
If a = 5 Then
Delay 100
LeftClick 1
Delay 100
SayString z5
Delay 100
KeyPress "Tab", 1
Delay 100
SayString s5
End If
这个是我自己写来用的。你试试看合用不
有好多方法,你说的只是一个输入值与调用的只是。有三种,UseVar还有InputBox,还可以用下拉框选择。在此处,第三种方法不适用。最简单就是用InputBox。不过如果想记住第一次输入的账号密码,可以用UseVar。保存设置就可以。不懂问我,谢谢采纳。