茄子在线看片免费人成视频,午夜福利精品a在线观看,国产高清自产拍在线观看,久久综合久久狠狠综合

代碼如下:

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用戶(hù)登錄)<>true

wscript.sleep 500

loop

wscript.sleep 1000

wshshell.appactivate qq用戶(hù)登錄

sendkeys 814116208

wscript.sleep 100

sendkeys {tab}

wscript.sleep 100

sendkeys ********

wscript.sleep 100

sendkeys {enter}

wshshell.run &qqpath&

do while wshshell.appactivate(qq用戶(hù)登錄)<>true

wscript.sleep 500

loop

wscript.sleep 1000

wshshell.appactivate qq用戶(hù)登錄

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