代码如下:

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