Question

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

Answer 1

新建文本文档，复制以下代码，保存成txt文档，然后把文件后缀名改成vbs或者vbe，打开后300秒内不输入我是猪，那就会关机，或者选择你才是也会关机。内容可以自己改。

Set objWSHShell = wscript.CreateObject("wscript.shell")
objWSHShell.Run "shutdown.exe -r -t 300 -c ""说我是猪，不说“我是猪”就会关机，不信邪的你可以试下。"" ", 0, True
Dim uMaMe
Do While (strReturn <> "我是猪")
strReturn = InputBox("说我是猪,就可以不关机，快点，说 ""我是猪"" ", "好好虑吧……", "你才是", 8000, 7000)
If strReturn = "你才是" Then
If uMaMe <> "yes" Then
uMaMe = "yes"
objWSHShell.popup "敢骂我，你再骂一次试看看！",1,"",4096
Else
objWSHShell.popup "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~", 1,"",4096
objWSHShell.Run "shutdown.exe -r -t 0 ", 0, True
End If
End If
Loop
objWSHShell.Run "shutdown.exe -a", 0, True
objWSHShell.popup "早说不就行了嘛，天天开心！",1,"",4096

下面这个也可以，不输入会在120秒内关机，时间可以自己设置，把第二行120改你想改的数字。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -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) + "哈哈哈哈，天天开心！"

注意！上面一种不输入到时间才关机，但是下面一种你要是选择了其他选项就会关机。自己试验的时候注意随时有关机的危险，由此造成的损失，可大可小……

Answer 2

注意，是违法行为，我有但不能给你