vbs qq自動發(fā)信息增強版

    運行前請確定你的電腦安裝了word。
    代碼如下:
    i=0
    set wshshell=createobject("wscript.shell")
    Set objWord = CreateObject("Word.Application")
    Set colTasks = objWord.Tasks
    do while i<30
    For Each objTask in colTasks
    if left(objTask.Name,1)="與" then
    wshshell.appactivate objTask.Name
    WshShell.SendKeys "{enter}"
    wshshell.sendkeys "^v"
    WshShell.SendKeys i
    wscript.sleep 600
    WshShell.SendKeys "%s"
    i=i+1
    end if
    next
    loop