VBS脚本语言功能强大，而且使用异常简单，下面将曝光如何制作一个可以在QQ群聊天室中自动刷屏的VBS病毒。

（1）生成VBS脚本

新建一个记事本，并在空白的文本框中输入如下代码：

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.AppActivate"这个群真好玩"

for i=1 to 10

WScript.Sleep 500

WshShell.SendKeys"^v"

WshShell.SendKeys i(www.daowen.com)

WshShell.SendKeys"%s"

Next

其中“for i=1 to 10”语句是用来控制发送次数的，表示发送10次，可以改为更大的数字。其中很重要的一句是“WshShell.AppActivate"这个群真好玩"”，该语句指定了要刷的QQ群名称，可以根据需要修改。在输入完毕后，将文件保存为以.vbs为后缀的任意文件名，如“qq.vbs”。

（2）刷QQ群聊天屏

打开一个QQ群聊天窗口并复制要发送的内容到剪贴板上，如复制“什么？”，双击刚才生成的“qq.vbs”切换到群聊天窗口中，在其中可看到QQ群正在自动刷屏。

注意

在刷屏成功后，每一条信息下面都会显示信息发送的条数，当发送完指定的条数后，便会自动停止。