vbs小腳本

❶ qq群刷屏器VB小腳本

Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"ghjj"
for i=1 to 15
WScript.Sleep 500
WshShell.Sendkeys"^v"
WshShell.Sendkeys i
WshShell.Sendkeys "%s"
Next

使用方法：先復制好一段文字，然後打開本VBS腳本，然後點擊聊天窗口的輸入框，OK。
for i=1 to 15，15是發送次數。
WScript.Sleep 500，500是發送時間間隔單位是毫秒。
WshShell.Sendkeys i 這一句可以去掉，去掉後發送時就不顯示發送的次數。

❷ 最小化指定窗口 VBS腳本

腳本如下：
Const strTitle = "完整的窗口標題"

Dim objShell

Set objShell = CreateObject("Wscript.Shell")

While True
If objShell.AppActivate(strTitle) Then

Wscript.Sleep 250

objShell.SendKeys "% "
objShell.SendKeys "n"
Set objShell = Nothing
Wscript.Quit
End If
Wend

把代碼中的strTitle設為需要檢測的窗口的完整標題即可。
如果想停止檢測，就到任務管理器裡面將進程「wscript.exe」結束即可。

_____________________
補充：
不過類似這樣的需求（等待窗口、控制窗口狀態等），用AutoIt實現是最方便的。AutoIt也有其它很多強大的功能，樓主如果感興趣可以在網上搜索一下「AutoIt」看看，是免費的。

❸ 怎樣用cmd執行vbs腳本,求簡單實用命令

1、點擊WIN按鈕，在運行對話框下面輸入cmd，打開命令提示符窗口。