代碼如下:
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
公眾號
事業(yè)單位
當前位置：
公考類
招聘類
各類考試