跪求一个必须输入“我是猪”才能打开的文件，不输入电脑会自动关机。

创建一个新的文本文档，复制下面的代码，保存为txt文档，然后将文件后缀改为vbs或vbe。打开后300秒内不输入我是猪，就会被关掉，或者你被关掉。内容可以自己改。

设置objWSHShell = wscript。CreateObject("wscript.shell ")

Objwshshell。运行“关机。Exe-R-T 300-C”“说我是猪，不说“我是猪”我就关机。不信邪的可以试试。”" "，0，真

Dim uMaMe

do While(strReturn & lt；& gt《我是猪》)

StrReturn = InputBox("说我是猪，可以开着。来吧，说“我是头猪”，“想想吧...“《非诚勿扰》，八千，七千)

如果str return = You is，则

如果uMaMe & lt& gt那就说“是”

uMaMe = "是"

ObjWSHShell.popup“不敢骂我，请再试一次！”,1,"",4096

其他

ObjWSHShell.popup“好吧，如果天堂有路，你不会走，但是没有办法关掉。关掉~ ~”，1，“”，4096。

objWSHShell。运行" shutdown.exe -r -t 0 "，0，True

如果…就会结束

如果…就会结束

环

objWSHShell。运行" shutdown.exe -a "，0，True

ObjWSHShell.popup“早说就好，天天开心！”,1,"",4096

下面这个也可以。如果不输入，它会在120秒内关闭。你可以自己设置时间，把120的第二行改成你要换的号码。

出错时继续下一步

dim WSHshellA

设置WSHshellA = wscript . createobject(" wscript . shell ")

wsh shell a . run " cmd . exe/cshutdown-r-t 120-c " "说我是猪，或者一分钟内关掉手机。如果你不相信我，试试……”“，0，真。

暗淡的

do while(a & lt；& gt《我是猪》)

A = inputbox("说我是猪，别关，快传，说" "我是猪" "，"说不说"，"不说"，80007000)

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

环

msgbox CHR(13)+CHR(13)+CHR(13)+“要是早点告诉你就好了。”

昏暗的WSHshell

设置wsh shell = wscript . createobject(" wscript . shell ")

wsh shell . run " cmd . exe/c shut down-a "，0，true

msgbox CHR(13)+CHR(13)+CHR(13)+“哈哈哈哈，开心每一天！”

立正！上面一个不输入时间会关闭，下面一个选择其他选项会关闭。自测的时候随时注意机器的危险，由此造成的损失可大可小...