UC知道关于登陆QQ的VBS
来源：百度知道 编辑：UC知道 时间：2024/07/04 01:03:58
(
echo dim program
echo program="C:\Progra~1\QQ\QQ.exe"
echo set Wshell=CreateObject("Wscript.Shell"^)
echo set oexec=Wshell.Exec(program^)
echo wscript.Sleep 1000
echo Wshell.SendKeys " 密码"
echo wscript.Sleep 0
echo Wshell.SendKeys "{TAB}"
echo Wshell.SendKeys "ID"
echo wscript.Sleep 0
echo Wshell.SendKeys "{ENTER}"
echo Wshell.SendKeys "{ENTER}"
) > %tmp%\QQLOG.vbs
%tmp%\QQLOG.vbs
以上是我从别人的东西里摘抄,然后加工的一段.
它出现的问题是: 每当登陆第二个QQ时,由于登陆的第一个QQ窗口失去焦点而无法向里面写入ID 和 PWD . 解决这个问题的方法有两种,一是设定好时间; 二是设定为向只向该窗口写入.
设定时间的方法,我用了.但不理想.
我想用第二种方法,可是我不会VBS.所以想请教各位.
echo dim program
echo program="C:\Progra~1\QQ\QQ.exe"
echo set Wshell=CreateObject("Wscript.Shell"^)
echo set oexec=Wshell.Exec(program^)
echo wscript.Sleep 1000
echo Wshell.SendKeys " 密码"
echo wscript.Sleep 0
echo Wshell.SendKeys "{TAB}"
echo Wshell.SendKeys "ID"
echo wscript.Sleep 0
echo Wshell.SendKeys "{ENTER}"
echo Wshell.SendKeys "{ENTER}"
) > %tmp%\QQLOG.vbs
%tmp%\QQLOG.vbs
以上是我从别人的东西里摘抄,然后加工的一段.
它出现的问题是: 每当登陆第二个QQ时,由于登陆的第一个QQ窗口失去焦点而无法向里面写入ID 和 PWD . 解决这个问题的方法有两种,一是设定好时间; 二是设定为向只向该窗口写入.
设定时间的方法,我用了.但不理想.
我想用第二种方法,可是我不会VBS.所以想请教各位.
Dim strPrgpth
strPrgpth = "D:\Program Files\Tencent\QQ\qq.exe" '如果QQ安装路径不同，在此处修改
Set wshshell = CreateObject("wscript.shell")
Set oexec = wshshell.exec(strPrgpth)
wscript.sleep 3000 '如果脚本无法工作，可以适当延长这部分的时间值
wshshell.AppActivate "QQ用户登录"
wshshell.Sendkeys "{TAB}"
wshshell.Sendkeys "12345678" '换成你自己的QQ号
wscript.Sleep 1000
wshshell.Sendkeys "{TAB}"
wscript.Sleep 1000
wshshell.Sendkeys "password" '换成你的QQ号密码
wscript.Sleep 1000
wshshell.Sendkeys "{ENTER}"
wscript.Quit
这种再低级不过的登陆的QQ的方法你还在用啊........