Короче такой прикол...

Я по агенту пацану быстро тупо пробелы один за одним отправлял долго и короче и у него и у меня агент завис но он перезагрузил его у него всё норм а у меня потом еще 2 дня сообщения не отправлялись)

Есть
http://jenyay.net/uploads/Soft/EVir/evir.zip

изверг.. .
комп не жалко??

Создаешь текстовый файл, сохраняешь его в формате .vbs, открываешь его вновь с помощью блокнота и вписываешь туда эти строки:

UserName=InputBox("Как тебя зовут? ","Представься","Вводить имя сюда")

MsgBox"Привет "&UserName&"! Давай поиграем! ",0,"Шуткамана"

mesag = MsgBox("Начнём? ",4,"Шуткамана")
If mesag = 6 Then
MsgBox "Ну начнём =)",0,"Шуткамана"

else

If mesag = 7 Then
MsgBox "А что так плохо*( ",1,"Шуткамана"

end if
end if

on error resume next
set t=createobject("Wscript.Shell")
msgbox"Неполадка системы",16,"Error"
msgbox"Вы заражены вирусом",48,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"

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 "Здравствуй дружище, это я-твоя совесть) "

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
, сохраняешь и жмешь ЛКМ дважды;)

коМп не ЖаЛко. ? ХД!

Извени, но бред)