当前位置： 移动技术网 > IT编程>脚本编程>VBScript > vbs qq自动登录脚本改进版

vbs qq自动登录脚本改进版

2017年12月08日  | 移动技术网IT编程  | 我要评论

复制代码 代码如下:

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

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网