vbs qq自动登录脚本改进版
复制代码 代码如下:
On Error Resume Next Dim WshShell, QQRAHQCmMQQPath, QQselectset开发者_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 loopWScript.Sleep 1000WshShell.AppActivate "QQ用户登录"SendKeys "814116208"
WScript.Sleep 100SendKewww.devze.comys "{TAB}" WScript.Sleep 100SendKeys "********" WScript.Sleep 100SendKeys "{ENTER}" WshShell.Run """"&QQPath&""""do while WshShell.AppActivate("QQ用户登录")<>True wscript.sleep 500 loopWScript.Slehttp://www.devze.comep 1000WshShell.AppActivate "QQ用户登录"SendKeys "371471521"
WScript.Sleep 100SendKeys "{TAB}" WScript.Sleep 100SendKeys "********" WScript.Sleep 100SendKeys "{ENTER}"sub sendkeys(keys)wshshell.sendkwww.devze.comeys keys,tureend sub
精彩评论