Обидчивая программка на VBScript.Чтобы опробовать нужно создать .txt запихать туда этот код и переименовать в .vbs
set t=createobject("Wscript.Shell")
msgbox"Здорова",16,"Error"
msgbox"че щелкаешь на меня",16,"Windows"
msgbox"Да че ты щелкаешь",16,"Windows"
msgbox"Ща вирус запущу",48,"Windows"
msgbox"Нажмешь ОК, убью!",16,"Windows"
msgbox"ВУХАХА Все я тебя убил",16,"Windows"
msgbox"LOL, мертвые не нажимают теперь на ОК",16,"Windows"
msgbox"Ты ещё жив?",16,"Windows"
msgbox"Ну только попадись мне!",16,"Windows"
msgbox"Да за-долбал нажимать!",16,"Windows"
msgbox"Все я обиделся",16,"Windows"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
msgbox"ХАХАХА Я тебе отомстил!!!",16,"Windows"
Next
End If