代码如下:
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
