QQ自动登陆(VBS)编程

来源：百度知道 编辑：UC知道 时间：2024/06/11 01:03:31
请问高手：有没有一个VBS编程执行脚本，在点击后，可以同时自动执行登陆分别不同QQ号码？如果有的话，能不能给我个《VBS》QQ自动登陆编程的壳子，让我换一下QQ路径和号码什么的就可以用了！

是不是像这样编写的：Dim WshShell, QQPath, QQselect
QQPath="C:\Progra~1\QQ2006\QQ.EXE"
'第一个QQ登陆
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath,1,true
WScript.Sleep 1000
WshShell.AppActivate "第一个QQ登陆"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "QQ密码"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
'第二个QQ登陆
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath,1,true
WScript.Sleep 1000
WshShell.AppActivate "QQ号"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "297459132"
WScript.Sleep 100
WshShell

Dim Program1
Program1= "QQ路径"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "cncn"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQ号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

网上有这样的软件，例如一些QQ群发软件里就有这种功能

我空间里有。
http://hi.baidu.com/breakan/blog/category/%B1%E0%B3%CC%2Dvbscript

其实模拟按键非常容易出错
试试我的
On Error Resume Next
Set Shilyx = CreateObject("WScript.Shell")
QQPath = Shilyx.RegRead("HKLM\SOFTWARE\Tencent\QQ\Install")
Shilyx.Run """" & QQPath & "\QQ.exe""