vbs qq自动登录脚本改进版

更新时间：2014年05月11日 00:50:57 作者：

这篇文章主要介绍了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读取配置文件配置项的实现代码
今天写代码的时候需要用到vbs获取文件配置项，不用放数据库里面，要不增删改查都要做一篇，本身功能就简单，这里就为大家分享一下实现代码,需要的朋友可以参考下
2019-09-09
vbScript on error resume next容错使用心得
在vbscript中，使用on error resume next处理错误，当使用这段代码时，程序将忽略产生的错误继续运行后面的代码。本文就使用心得作个小结，供有需要的朋友参考
2009-02-02
VBS编程教程第一部
2008-01-01
用vbs记录屏幕保护程序的开始时间和结束时间
用vbs记录屏幕保护程序的开始时间和结束时间...
2007-03-03
vbs shellcode转换escape加密
用vbs转换加密代码
2008-05-05
vbs下一些取特殊路径的方法总结
经常有一些想学习vbs的朋友问我一些问题，昨天又有一个朋友问我取路径的问题，今天就biweilun就一并写出来，希望对大家有点帮助，呵呵
2008-07-07
用vbs实现判断计算机是笔记本还是台式机的代码
尽管我们并不知道您自己是怎么解决这个问题的。大家知道，有一个很小的称为 Win32_SystemEnclosure 的傻瓜式 WMI 类
2008-06-06
VBS实现的系统服务备份优化代码
将下面代码保存为VBS执行即可,服务优化规则可以自由修改(上面是我现在使用的优化规则),并且每次优化都会在我的文档里面生成一个对应日期的服务备份文件.可以直接还原
2013-01-01
自定义vbs脚本实现开机后延时启动指定程序的方法
这篇文章主要介绍了自定义vbs脚本实现开机后延时启动指定程序的方法,本文以延迟启动金山毒霸为例,需要的朋友可以参考下
2014-09-09
excel2access vbs脚本
将excel的数据转化为access的数据库中的方法。
2009-07-07