开机密码解锁小程序
dim a,ctr
ctr=1
const pass=“2”
set objShell=CreateObject(“Wscript.Shell”)
objShell.Run “cmd.exe /k taskkill /f /im explorer.exe”
objShell.Run “cmd.exe /k taskkill /f /im cmd.exe”
msgbox “输入开机问题”
msgbox “错误三次将重启”
do while ctr<4
a=inputbox(“1+1=”)
if a=pass then
msgbox “right!”
objShell.Run “cmd.exe /k start explorer.exe”
objShell.Run “cmd.exe /k taskkill /f /im cmd.exe”
exit do
elseif ctr=3 then
objShell.Run “C:\LHN\etc\init.d\shutdown.bat”
exit do
else
ctr=ctr+1
msgbox “wrong!”
end if
loop
作为vbs文件放在系统启动项
纯小白,求大牛不吝赐教