这个vbs文件有什么问题？

来源：百度知道 编辑：UC知道 时间：2024/05/24 06:15:48
Dim Program1Program1="C:\program Files\Ten cent\QQ\QQ.exe" ‘QQ路径’Set WshShell=createobject("wscri pt.shell")Set oExec=WshShell.Exec(Progra m1)WScript.Sleep 2000WshShell.AppActivate"QQ登录"WshShell.SendKeys"+{TABWshShell.SendKeys"123456789" ‘QQ号码’Wscript.Sleep 200WshShell.SendKeys"{TAB}"WshShell.SendKeys"0123456789" ‘QQ密码’WScript.Sleep 200WshShell.SendKeys"{ENTER}"保存为vbs格式。功能自动登陆QQ。错误：http://hiphotos.baidu.com/936090111/pic/item/487f76d8416f703410df9be0.jpg
不要说用QQ自带的自动登陆。

Dim Program1
Program1="C:\program Files\Tencent\QQ\QQ.exe"'qQ路径
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.run(Program1)
WScript.Sleep 2000
WshShell.AppActivate"QQ登录"
WshShell.SendKeys"+{TAB}"
WshShell.SendKeys"123456789" 'QQ号码
Wscript.Sleep 200
WshShell.SendKeys"{TAB}"
WshShell.SendKeys"0123456789" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys"{ENTER}"
把偶的代码拷贝过去就没问题了