主頁 > 知識庫 > vbs qq自動發(fā)信息增強版

vbs qq自動發(fā)信息增強版
熱門標(biāo)簽：銀行業(yè)務(wù) 服務(wù)器配置 呼叫中心市場需求 智能手機 美圖手機 網(wǎng)站文章發(fā)布 檢查注冊表項 鐵路電話系統(tǒng)
運行前請確定你的電腦安裝了word。
復(fù)制代碼 代碼如下:

i=0
set wshshell=createobject("wscript.shell")
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
do while i30
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

標(biāo)簽：新疆 河南 滄州 紅河 長治 沈陽 上海 樂山

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs qq自動發(fā)信息增強版》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266