作者: 2010Enun 时间: 2012-5-2 23:57 标题: 回复 #2 2011czmxbb52 的帖子 第二个：
On Error Resume Next
Dim password
password = "12345678"
Dim sr
set WShell = CreateObject("Wscript.Shell")
Dim jhcs
jhcs = 5
Call xy
Sub xy
WShell.Run "shutdown -s -t 120 -c 请输入密码！不输入密码会在2分钟内关机！",0
Do
sr = InputBox("请输入密码！不输入密码会在2分钟内关机！","输入密码","不知道")
If sr = password Then
WShell.Run "shutdown -a"
MsgBox "密码正确！现在你可以正常使用电脑30分钟！",64
Call ys
Exit do
Else
If jhcs - 1 < 0 Then
MsgBox "机会已用尽，即将关机！",16
WShell.Run "shutdown -s -f -t 0"
Exit Do
Else
MsgBox "密码错误！你还有" & jhcs & "次机会！",16
jhcs = jhcs - 1
Call xy
End If
End If
Loop
End Sub
Sub ys
jhcs = 5
wsh.sleep 1800000
Call xy
End Sub作者: wuyou126 时间: 2012-5-3 09:41
第一个在xx的pe里有见过的，貌似改主页的
