编写一个关于自动登录QQ的VB程序遇到的问题

前两天在网上搜了一个自动登陆多个QQ的vb编程：

Dim WshShell, QQPath, QQselect
QQPath="D:\Tencent\QQ\QQ.exe"
Set WshShell=WScript.CreateObject("WScript.Shell")
QQselect=InputBox("请输入要登录的QQ号码序号:" &Chr(13)&Chr(10)& "1:50****23" &Chr(13)&Chr(10)& "2:83****33" &Chr(13)&Chr(10)& "3:手工登录", "QQ自动登录器")
If QQselect="" Then WScript.Quit
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ用户登录"
If QQselect="1" Then
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "50****23"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "******"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
Else
If QQselect = "2" Then
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "83****33"
WScript.Sleep 200