vbs qq自动登录脚本改进版
程序员文章站
2024-01-02 17:09:58
复制代码 代码如下:on error resume next dim wshshell, qqpath, qqselectset wshshell=createobject...
复制代码 代码如下:
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