您的位置:首页 > 脚本专栏  > vbs
vbs qq自动登录脚本改进版
发表时间:2018-01-25 | 来源:www.codefans.net
分享到:
这篇文章主要介绍了vbs qq自动登录脚本改进版,需要的朋友可以参考下

复制代码 代码如下:
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登录背景闪动效果附效果演示源码下载