vbs qq自動發(fā)信息增強版
更新時間：2014年05月11日 00:53:27 作者：
這篇文章主要介紹了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
復(fù)制代碼 代碼如下:
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
相關(guān)文章
這篇文章主要介紹了通過vbs實現(xiàn)的保存剪貼板中的文本實現(xiàn)編輯或保存的實現(xiàn)方法，需要的朋友可以參考下2014-05-05
VBS中的隊列需要使用System.Collections.Queue,包含隊列的添加元素（入隊）、刪除元素（出隊）、遍歷、統(tǒng)計元素個數(shù)、清空 ，需要的朋友可以參考下2018-05-05
這個是我見過的最有特色的腳本提醒程序了，時間|提示語，具體使用方法可以參考例子2008-06-06
用vbs實現(xiàn)重新啟動 Internet Explorer
用vbs實現(xiàn)重新啟動 Internet Explorer...2007-03-03
貌似我看過的 VBScript 書籍沒有一本介紹過這種寫法，當(dāng)然，書上沒寫的東西還有很多2012-01-01
用vbscript實現(xiàn)的強制殺系統(tǒng)進程的腳本代碼，主要用于一些殺毒軟件，占系統(tǒng)內(nèi)存或cpu，我們可以用下面的方法殺掉，黑人也必須殺掉殺毒軟件，才能進行下一步操作，不建議搞破壞。2008-05-05
VBS教程：正則表達式簡介 -選擇與編組...2006-11-11
MSScriptControl.ScriptControl組件的用法實例
這篇文章主要介紹了MSScriptControl.ScriptControl組件的用法實例,需要的朋友可以參考下2014-08-08
VBS教程：VBscript語句-For...Next 語句
VBS教程：VBscript語句-For...Next 語句...2006-11-11
在網(wǎng)上找了很多IIS日志分析工具，功能實在太有限，有的僅能分析百度、谷歌等搜索引擎爬蟲的來訪次數(shù)，遠(yuǎn)遠(yuǎn)達不到我們的用戶的需求2020-09-09