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)文章
有時候我們在個人電腦上，每次輸入密碼比較麻煩，可以自動登錄，但如果qq賬號多了，就可以使用這個腳本了2013-07-07
用vbscript腳本實現(xiàn)返回 IP 配置數(shù)據(jù)的代碼
用vbscript腳本實現(xiàn)返回 IP 配置數(shù)據(jù)的代碼...2007-05-05
VBScript版的PHP extract()函數(shù)
這篇文章主要介紹了VBScript版的PHP extract()函數(shù),extract函數(shù)主要作用是把數(shù)組轉(zhuǎn)換成變量,非常好用的一個函數(shù),需要的朋友可以參考下2014-06-06
查看系統(tǒng)C盤剩下的空間方法有很多，在本文要為大家介紹的是通過VBS腳本是如何實現(xiàn)的，感興趣的朋友不要錯過2013-11-11
用vbs實現(xiàn)路由器的重啟，時間上就是利用vbs模擬按鍵輸出。2009-03-03
在windows 64位操作系統(tǒng)上運行32位的vbscript的方法
這篇文章主要介紹了在windows 64位操作系統(tǒng)上運行32位的vbscript的方法,需要的朋友可以參考下2016-11-11
這篇文章主要介紹了vbs實現(xiàn)web自動登錄網(wǎng)站,首先編寫vbs，接著配置為開機自啟，這個比較簡單，只需要將這個vbs文件放到下面目錄中就可以了，需要的朋友可以參考下2022-04-04
可以從一臺遠(yuǎn)程服務(wù)器運行 SP2 安裝程序Install.vbs
可以從一臺遠(yuǎn)程服務(wù)器運行 SP2 安裝程序Install.vbs...2007-04-04
用vbs更改 Internet Explorer 的標(biāo)題欄
用vbs更改 Internet Explorer 的標(biāo)題欄...2007-03-03
VBS教程：函數(shù)-LCase 函數(shù)...2006-11-11