vbs qq自動登錄腳本改進(jìn)版

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