// ^
ElseIf nAscCode=94
VKCode = 54
shiftDown = 1
// &
ElseIf nAscCode=38
VKCode = 55
shiftDown = 1
//＊
ElseIf nAscCode=42
VKCode = 56
shiftDown = 1
//（
ElseIf nAscCode=40
VKCode = 57
shiftDown = 1
//）
ElseIf nAscCode=41
VKCode = 48
shiftDown = 1
// -
ElseIf nAscCode=45
VKCode = 189
shiftDown = 0
// _
ElseIf nAscCode=95
VKCode = 189
shiftDown = 1
// =
ElseIf nAscCode=61
VKCode = 187
shiftDown = 0
// +
ElseIf nAscCode=43
VKCode = 187
shiftDown = 1
//“
ElseIf nAscCode=91
VKCode = 219
shiftDown = 0
// {
ElseIf nAscCode=123
VKCode = 219
shiftDown = 1
// “
ElseIf nAscCode=93
VKCode = 221
shiftDown = 0
// }
ElseIf nAscCode=125
VKCode = 221
shiftDown = 1
//“
ElseIf nAscCode=39
VKCode = 222
shiftDown = 0
//“
ElseIf nAscCode=34
VKCode = 222
shiftDown = 1
//；
ElseIf nAscCode=59
VKCode = 186
shiftDown = 0
//：
ElseIf nAscCode=58
VKCode = 186
shiftDown = 1
// \
ElseIf nAscCode=92
VKCode = 220
shiftDown = 0
// |
ElseIf nAscCode=108
VKCode = 220
shiftDown = 1
// ，
ElseIf nAscCode=44
VKCode = 188
shiftDown = 0
// <
ElseIf nAscCode=60
VKCode = 188
shiftDown = 1
// .
ElseIf nAscCode=46
VKCode = 190
shiftDown = 0
// >
ElseIf nAscCode=62
VKCode = 190
shiftDown = 1
// /
ElseIf nAscCode=47
VKCode = 191
shiftDown = 0
// ？
ElseIf nAscCode=63
VKCode = 191
shiftDown = 1
Else
VKCode = 32
shiftDown = 0
EndIf
Return ASCtoVK
//处理用户名字符串
Sub ProcessUsername
dim array（）， arrayAsc（），strLength， i
i = 0
strLength = Len（UserName）
redim array（strLength-1）
redim arrayAsc（strLength-1）
For strLength
array（i） = Mid（UserName， i+1， 1）
nAscCode = Asc（array（i））
Gosub ASCtoVK
Gosub SendKeyPress
i = i+1
EndFor
Return ProcessUsername
//处理密码字符串
Sub ProcessPassword
dim array（）， arrayAsc（），strLength， i
i = 0
strLength = Len（Password）
redim array（strLength-1）
redim arrayAsc（strLength-1）
For strLength
array（i） = Mid（Password， i+1， 1）
nAscCode = Asc（array（i））
Gosub ASCtoVK
Gosub SendKeyPress
i = i+1
EndFor
Return ProcessPassword
//输入用户名及密码
Sub SendKeyPress
If shiftDown = 0
KeyPress VKCode，1
Else
KeyDown 16，1 KeyPress VKCode，1 KeyUp 16，1
EndIf
Return SendKeyPress
