很简单的问题,大家进来看看

来源:百度知道 编辑:UC知道 时间:2024/07/04 10:48:15
我想写个QQ一键登录,在记事本里写的,可是写出来后却无法运行,提示如图,文件内容如下。保存为 .vbs格式,还有QQ启动的路径没有错,QQ号码没错,QQ密码也没有错
Dim Program1
Program1="C:\Program Files\QQ2009\Bin\QQ.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "1125566073"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "321654abc"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

Dim WshShell, QQPath, QQselect
QQPath="C:\Progra~1\QQ\Bin\QQ.exe"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "1125566073"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "321654abc"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

程序地址写错了
因为在命令行下,只支持8位字符长度的文件名,所以像“Program Files”的这种文件名就要改写成“Progra~1