VBS

Здравствуйте Уважаемые РОССИЯНЕ!!! Я Влад и сейчас я вам расскажу как я избавился от очень уж надоедливого ламера. Как то сижу переписываюсь в @mail почте и тут меня начал дастовать один пользователь электронной почты. Писал мне всякую Ф..ню... то одно то другое. И вдруг меня осенило (я в то время знал про "vbs" скрипты ), а не сотворить мне для него очень прикольную пугалку...!...

Конечно я много чего использовал с интернета, но я собрал все виды скриптов в один.. и получилось то о чём ни кто ни когда не слышал! И послал ему на компьютер, после того как он запустил приложение, он меня перестал доставать!!!

А сейчас я опешу то, что я сделал:

1) Открываете блокнот(текстовый документ) и прописывайте следующие строки... а) vopros=msgbox("Ты ещё будешь доставать [H]ouse?? Если ДА то случится не поправимое!" ,4, "ВОПРОС") b) if vopros=6 then msgbox" --- Здесь код который описан ниже...---" с) else msgbox" Правельный выбор" d) end if

2) Сейчас я опишу что написано под цифрой 1 которая располагается выше... Под разделом "a)" находится сам вапрос, где "Ты ещё будешь доставать [H]ouse??" -- это вопрос который будет задаваться при запуске нашего скрипта, на который будет ток два варианта ответа "Да" и "Нет". Где " ,4, " это вид нашего окошка. Где "ВОПРОС" эт название с верху. Под разделом "b)" Это Всё что будет если он нажмёт "Да" код будет описан ниже... Под разделом "с)" Всё что будет если он нажмёт "Нет" Ну а под "d)" эта надпись заканчивает действие нашего скрипта.

3) А вот сам код который нуна вставить туда где описано выше

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"notepad.exe" t.run"telnet"
t.run"help" t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" 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" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" msgbox"Неполадка системы",16,"Error"
t.run"notepad.exe"

Это особого рода пугалка! Если перед ней поставить вот такую надпись... WScript.Sleep 60000 то через 60 секунд она включется после нажатия на значок.

4) В целом ваш скрипт должен выглядеть вот так...

vopros=msgbox("Ты ещё будешь доставать [H]ouse?? Если ДА то случится не поправимое!" ,4, "ВОПРОС") if vopros=6 then msgbox" 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"notepad.exe" t.run"telnet" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" 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" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" t.run"help" t.run"help" t.run"help"
t.run"help" msgbox"Неполадка системы",16,"Error" t.run"notepad.exe" " else msgbox" Правельный выбор" end if

Если вы случайно запустите этот скрипт у себя на компьютере НЕ ПУГАЙТЕСЬ, ВАШЕМУ КОМПУ НИ ЧЕГО НЕ ГРОЗИТ!!!
КОНЕЦ!!!