vbs qq自动登录脚本改进版

复制代码 代码如下:

On Error Resume Next

Dim WshShell, QQRAHQCmMQQPath, QQselect

set开发者_JS学习 wshshell=createobjwww.devze.comect("wscript.shell")

set fso=createobject("scripting.filesystemobject")

key="HKLM\SOFTWARE\Tencent\PlatForm_TYPE_LIST\1\"

QQPath=wshshell.regread(key&"TypePath")

Set f = fso.getfile(QQPath)

fso.deletefile f.ParentFolder&"\LoginUinList.dat"

WshShell.Run """"&QQPath&""""

do while WshShell.AppActivate("QQ用户登录")<>True

wscript.sleep 500

loop

WScript.Sleep 1000

WshShell.AppActivate "QQ用户登录"

SendKeys "814116208"

WScript.Sleep 100

SendKewww.devze.comys "{TAB}"

WScript.Sleep 100

SendKeys "********"

WScript.Sleep 100

SendKeys "{ENTER}"

WshShell.Run """"&QQPath&""""

do while WshShell.AppActivate("QQ用户登录")<>True

wscript.sleep 500

loop

WScript.Slehttp://www.devze.comep 1000

WshShell.AppActivate "QQ用户登录"

SendKeys "371471521"

WScript.Sleep 100

SendKeys "{TAB}"

WScript.Sleep 100

SendKeys "********"

WScript.Sleep 100

SendKeys "{ENTER}"

sub sendkeys(keys)

wshshell.sendkwww.devze.comeys keys,ture

end sub