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，打开命令提示符窗口。