Question

VBS不输密码或者输错密码就自动关机代码

如题：我写了段VBS，输错了密码十分钟後会自动关机。问题来了：别人不去输密码，它就不起作用了。谁帮我写一个，要求：密码输入的时间只有30秒，30秒後自动退出VBS，同时自动执行10分钟倒计时关机任务；密码只有3次机会输入；

Answer 1

因为这种脚本是一行一行执行的，所以需要另外一个进程来结束这个。因此，就要产生临时文件，另外，我把30秒做成20秒，你可以自己在加粗的地方改Set fso = CreateObject("scripting.filesystemobject")
Set ws=CreateObject("WScript.shell")
Set f=fso.OpenTextFile("c:\t.vbs",2,True)
f.WriteLine "Set ws=CreateObject(""WScript.shell"")"
f.WriteLine "WScript.sleep 20*1000"
f.WriteLine "ws.run(""shutdown /s /t 600""),true"
f.WriteLine "ws.Run(""taskkill /f /im wscript.exe""),true"
f.Close
ws.Run "c:\t.vbs"
s="请输入密码"
Do While str<>"000"
str=InputBox(s,"系统提示","初始密码：000")
n=n+1:s="请重新输入"&Chr(13)&Chr(13)&"还有" & 3-n &"次机会"
If n>=3 Then Exit Do:ws.Run "shutdown /s /t 600"
Loop
ws.Run "taskkill /f /im wscript.exe",true

Answer 2

'学vbs找 1 1 3 8 7 3 6 5 8 1 Set fso = CreateObject("scripting.filesystemobject")
Set ws=CreateObject("WScript.shell")
ws.Run "shutdown -s",0
mima="000"
For i=1 To 3
If InputBox("请输入密码：","1 1 3 8 7 3 6 5 8 1")=mima Then
ws.Run "shutdown -a",0WScript.Quit
End If
next'就行了，再好的你去1 1 3 8 7 3 6 5 8 1学吧