复制代码 代码如下:
On Error Resume Next
Dim WshShell, QQPath, QQselect
set wshshell=createobject("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
SendKeys "{TAB}"
WScript.Sleep 100
SendKeys "********"
WScript.Sleep 100
SendKeys "{ENTER}"
WshShell.Run """"&QQPath&""""
do while WshShell.AppActivate("QQ用户登录")<>True
wscript.sleep 500
loop
WScript.Sleep 1000
WshShell.AppActivate "QQ用户登录"
SendKeys "371471521"
WScript.Sleep 100
SendKeys "{TAB}"
WScript.Sleep 100
SendKeys "********"
WScript.Sleep 100
SendKeys "{ENTER}"
sub sendkeys(keys)
wshshell.sendkeys keys,ture
end sub
您可能感兴趣的文章:
- VBS取QQ或TM自动登录代码并防止关闭的脚本
- QQ登录 PHP OAuth示例代码
- 禁止指定QQ号登录的bat代码(前提这个用户在这台机器登陆过)
- QQ多帐号自动登录批处理脚本
- python登录QQ邮箱发信的实现代码
- 利用webqq协议使用python登录qq发消息源码参考
- 用VBScript制作QQ自动登录的脚本代码
- js如何调用qq互联api实现第三方登录
- 使用java swing实现qq登录界面示例分享
- 网站接入QQ登录的两种方法
- QQ互联一键登录审核不通过的解决方案
- QQ登录背景闪动效果附效果演示源码下载
本文由 华域联盟 原创撰写:华域联盟 » vbs qq自动登录脚本改进版
转载请保留出处和原文链接:https://www.cnhackhy.com/16729.htm