初学者用什么毛笔最好:懂VBS指令的朋友请进

来源:百度文库 编辑:中科新闻网 时间:2024/05/04 23:55:56
我看书编写的关于QQ自动登录的程序,写VBS如下:

Dim WshShell,QQPath,QQselect
QQPath="D:\qq\CoralQQ.exe" '这里填写的是QQ安装路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate"Q登录"
WshShell.SendKeys"+{TAB}"
WshShell.SendKeys"123456789" '此外的123456789为你的QQ号码
WScript.Sleep 200
WshShell.SendKeys"+{TAB}"
WshShell.SendKeys"111111" '此处输入你的QQ密码111111
WScript.Sleep 200
WshShell.SendKeys"{ENTER}"

保存为:文件修改后以VBS为结尾的文件。
登录QQ提示:无效的QQ号码格式,格式要求:由5到10个纯数字组成。
但是我输入的QQ号是正确的,请高手指教问题在哪儿?怎么修正?

因为在我的qq2006中,进入qq后按tab不能将焦点转移到“输入qq号码”那一栏,所以会出现你所说的那种问题。
我试了一下好像没有哪个按键可以转移焦点,只能用鼠标,所以你最好第一次登陆时把qq号码打上,以后再登陆时就可以用vbs了。
而且可以把:
WshShell.SendKeys"+{TAB}"
WshShell.SendKeys"123456789" '此外的123456789为你的QQ号码
WScript.Sleep 200
删除。