清问下···为什么么我这个··VBS``执行不了·

[ivaiicai]

Dim WshShell, QQPath, QQselect
QQPath=""D:\Program Files\Tencent\QQ\QQ.exe"" （---------------QQ路

径）
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456" （----------------QQ号码）
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456" （----------------QQ密码）
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"


提示 错误代码800a0401

小鸟没多少分 只能给10分了 谢谢