MsgBox "Пипец твоему компу, щас я все удалю нах...Твой привод просто перестанет работать"
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. Ite m(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject

MsgBox "Стираю программу Explorer... 100% Выполнено."

MsgBox "Стираю программу Enternet Explorer... 100% Выполнено."

MsgBox "Стираю программу Windows XP... 100% Выполнено."

MsgBox "Стираю программу Download MASTER... 100% Выполнено."

MsgBox "Стираю программу Skype... 100% Выполнено."

MsgBox "Стираю программу Internet... 100% Выполнено."

MsgBox "Стираю local disc C:... 100% Выполнено."

MsgBox "Стираю local disc D:... 100% Выполнено."

MsgBox "Взламываю дисковод..."

mechaniky.Item(i).Eject

MsgBox "100% Выполнено."

MsgBox "Взламываю страницу www.vkontakte.ru... 100% Выполнено."

MsgBox "После того как ты перезагрузишь свой комп, он не включится.  "

mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject

Next
End If