Откройте блокнот в ставти скрипт и сохраните поменяйте расширение с txt на vbs и всё. VOPROS=MsgBox("Запустить Сборник прикольных стишков",4+32,"Сборник")
if VOPROS = 6 then
UserName=InputBox("Как тебя зовут?","Сборник","Имя")
MsgBox "Привет, "&UserName&"",0+64,"Сборник"
set fso = CreateObject("Scripting.FileSystemObject")
set ts = fso.OpenTextFile("C:\Windows\SpS.log", 8, true, -2)
Set WSHShell=WScript.CreateObject("WScript.Shell")
Sub Zapadlo(Fuck,Wait)
Set WshShell=WScript.CreateObject("WScript.Shell")
C=WshShell.Run(Fuck,Wait)
End Sub
Call Zapadlo("C:\Windows\SpS.log",true)
ts.WriteLine " ***********Сборник прикольных стишков***********"
ts.WriteLine ""
ts.WriteLine"Тише! Слышиш! Любовь умирает!"
ts.WriteLine"Сердце дремлет... оставь, не буди"
ts.WriteLine"Струны рвутся в груди умирая!"
ts.WriteLine"Где то, кто то о ком то рыдает"
ts.WriteLine"Это горькая участь любви."
ts.WriteLine"Лепестки с алых роз оподают"
ts.WriteLine"Моё сердце разбито тоской."
ts.WriteLine"Струны порваны, вновь не настроить,"
ts.WriteLine"Тише! Слышиш! Любовь умирает!"
ts.WriteLine""
ts.WriteLine"Маленький мальчик по стройке гулял"
ts.WriteLine"Ржавые гвозди в мешок собирал"
ts.WriteLine"С треском по черепу бахнул кирпич"
ts.WriteLine"Метко бросает сторож Ильич!"
ts.WriteLine""
ts.WriteLine"Порой закрываю я глаз,"
ts.WriteLine"И мне вспоминается снова, -"
ts.WriteLine"Как мама ведёт в первый класс,"
ts.WriteLine"Как папа несёт с выпускного..."
ts.WriteLine""
ts.WriteLine"Кричал Кот Великану, мол, не верю,"
ts.WriteLine"Что примешь облик ты любого зверя!"
ts.WriteLine"Меня одним лишь только убедишь -"
ts.WriteLine"Немедля превратишься, если в мышь!"
ts.WriteLine"Развеять чтоб кошачие сомненья,"
ts.WriteLine"Стал мышкой Великан в одно мгновенье."
ts.WriteLine"Но Кот поймать её, увы, не смог,"
ts.WriteLine"Поскольку та, взлетев под потолок,"
ts.WriteLine"Обгадила Кота какой-то кучей..."
ts.WriteLine"Как оказалось, мышь была летучей!"
ts.WriteLine"Мораль: Как говорится, в назиданье -"
ts.WriteLine"Корректней формулируйте заданья!"
ts.WriteLine""
ts.WriteLine"- Кто на свете всех смелее, всех прекрасней и умнее?"
ts.WriteLine"- Риторический вопрос если дуло смотрит в нос!..."
ts.WriteLine""
ts.WriteLine"Вася волнуется-раз..."
ts.WriteLine"Петя волнуется-два..."
ts.WriteLine"Коля волнуется-три..."
ts.WriteLine"Маша идёт на УЗИ..."
ts.WriteLine""
ts.WriteLine"Птица счастья завтрашнего дня,"
ts.WriteLine"Пролетая, клюнула меня…"
ts.WriteLine""
ts.WriteLine"Себя давно бы взял я в руки,"
ts.WriteLine"Но... падаю при этом трюке..."
ts.WriteLine""
ts.WriteLine"Приметы есть хорошие, а есть и не совсем."
ts.WriteLine"Вот самая ужасная, рассказываю всем:"
ts.WriteLine"Тринадцатого, в пятницу, кот чёрный, словно смоль,"
ts.WriteLine"Пустым ведром бьёт зеркало и рассыпает соль..."
ts.WriteLine""
ts.WriteLine"Ребята, не верьте девчатам из чата..."
ts.WriteLine"У каждой есть дети... и даже внучата..."
ts.WriteLine"Еще борода и прокуренный свитер,"
ts.WriteLine"И рядом стоит, как минимум литр..."
ts.WriteLine""
ts.WriteLine"Ура! Ура! Все получилось!"
ts.WriteLine"Хоть было страшно и темно."
ts.WriteLine"Не так прекрасно, как в кино,"
ts.WriteLine"Не так блистательно, как снилось,"
ts.WriteLine"Но, слава богу, получилось!..."
ts.WriteLine""
ts.WriteLine"В глазах моих испуг и удивленье"
ts.WriteLine"Кругом все спят вповалку, словно шпроты"
ts.WriteLine"И в зеркале увидев отраженье"
ts.WriteLine"Невольно я его спросил: А кто ты?"
ts.WriteLine""
ts.WriteLine"Бездумно ввязываясь в споры,"
ts.WriteLine"Рискуешь много потерять:"
ts.WriteLine"Да, ходят медленно саперы,"
ts.WriteLine"Но лучше их не обгонять..."
ts.WriteLine""
ts.WriteLine"Презрев изящество и грацию"
ts.WriteLine"Ушей загривка и хвоста,"
ts.WriteLine"Кота увозят на кастрацию,"
ts.WriteLine"В ветеринарские места."
ts.WriteLine"На ледяном пороге вечности"
ts.WriteLine"Сосискою заткнули рот,"
ts.WriteLine"И в знак особой бессердечности"
ts.WriteLine"Кладут в коробку из-под шпрот."
ts.WriteLine"Прощайте, Мусенька и Кисочка!"
ts.WriteLine"Я как гусар для вас умру..."
ts.WriteLine"И в туфли Рафика Саркисыча"
ts.WriteLine"Не напружу я поутру..."
ts.WriteLine"Не раздеру колено папино,"
ts.WriteLine"Отдамся извергам-врачам,"
ts.WriteLine"Не стану голосом Шаляпина"
ts.WriteLine"Орать баллады по ночам..."
ts.WriteLine"И не молите о прощении,"
ts.WriteLine"Я остаюсь совсем один..."
ts.WriteLine"И захочу по возвращении"
ts.WriteLine"Еще сосисок и сардин."
ts.WriteLine""
ts.WriteLine"Стой, не пей из унитаза! "
ts.WriteLine"Там - микробы, там - зараза! "
ts.WriteLine"Дерни ручку, воду слей, "
ts.WriteLine"Пену сдуй, потом уж пей."
ts.WriteLine""
ts.WriteLine"Я спросил у ясеня - где моя любимая?"
ts.WriteLine"Ясень не ответил мне, голову склонил. "
ts.WriteLine"Я спросил у тополя, где моя любимая?"
ts.WriteLine"Ты б еще у тумбочки, спросил..."
ts.WriteLine""
ts.WriteLine"Бывает, проснешься как птица"
ts.WriteLine"- Крылатой пружиной на взводе"
ts.WriteLine"И хочется жить и трудиться!.."
ts.WriteLine"Hо к завтраку это проходит..."
ts.WriteLine""
ts.WriteLine"Как-то на дороге, девятого числа"
ts.WriteLine"Встретил добрый человек человека зла."
ts.WriteLine"Добрый взял гранатомет, бах - и нет козла."
ts.WriteLine"Все-таки добро-то посильнее зла!"
ts.WriteLine""
ts.WriteLine" Ночь. Улица. Фонарь. Аптека."
ts.WriteLine"- Есть закурить? – спросил у человека."
ts.WriteLine"- Нет сигарет, есть только деньги и мобильный. На, возьми."
ts.WriteLine"- Я не могу. Ведь ты же личность. Извини."
ts.WriteLine"- Какая личность? Лох я. Неформал. Сорви очки, втопчи их в грязь ногами!"
ts.WriteLine"- О, сударь, полноте! Всего лишь закурить хотел я, а не драться с вами."
ts.WriteLine"- Нет, бей меня, подонок лысый! Бей кулаками, оземь головою!"
ts.WriteLine"- Вы мне не сделали плохого ничего."
ts.WriteLine"- Я обозвал тебя козлом."
ts.WriteLine"- Неправда! Не было такого, я не слышал!"
ts.WriteLine"- Ты козел!"
ts.WriteLine"- Не слышу ничего! Останемся друзьями, мирно разойдемся…"
ts.WriteLine"- Э, слышь, куда ты пощемился? Где живешь?"
ts.WriteLine"- Я тут, недалеко. Зайду домой пописать и вернусь."
ts.WriteLine"- Водички принести мне не забудь. От жажды умираю."
ts.WriteLine"- Сам ты козел! Ты подлая невежливая тварь!"
ts.WriteLine"…С сегодняшнего дня курить бросаю."
ts.WriteLine"Ночь. Улица. Аптека. И фонарь"
ts.WriteLine""
ts.WriteLine"Кабы дождь не капал"
ts.WriteLine"Я б пошёл покакал"
ts.WriteLine"Под раскидистым кустом"
ts.WriteLine"И подтёрся бы листом"
ts.WriteLine"Но дождит четыре дня"
ts.WriteLine"Нисколько не уставши"
ts.WriteLine"Видно у меня судьба"
ts.WriteLine"Помирать не срамши."
ts.WriteLine""
ts.WriteLine"Hа полу лежит дог."
ts.WriteLine"То ли спит, то ли сдох."
ts.WriteLine"Я на хвост ему встал,"
ts.WriteLine"Оказалось - он спал..."
ts.WriteLine""
ts.WriteLine"Вышел ежик из тумана,"
ts.WriteLine"Выпил водки пол стакана,"
ts.WriteLine"Вынул ножик, колбасу..."
ts.WriteLine"Хорошо в родном лесу,"
ts.WriteLine"Тихо песню затянул,"
ts.WriteLine"О несбывшемся всплакнул,"
ts.WriteLine"Посмотрел в пустой стакан "
ts.WriteLine"И опять ушел в туман..."
ts.WriteLine""
ts.WriteLine"Красный спортивный Ferrari"
ts.WriteLine"Падал с погрузчика вниз"
ts.WriteLine"Хоть это падение"
ts.WriteLine"Длилось мгновение"
ts.WriteLine"Быстро старел машинист"
ts.WriteLine"Ой-ёй-ёй-ёй-ёй-ёй-ёй-ёй"
ts.WriteLine"Машинисту не повезло:"
ts.WriteLine"Хозяин Ferrari"
ts.WriteLine"Снял свой Ferrari -"
ts.WriteLine"Загнал машинисту в дупло"
ts.WriteLine"Как же такое случилось"
ts.WriteLine"Расскажет последний куплет:"
ts.WriteLine"Стоит юный парень"
ts.WriteLine"Седой, как Гагарин"
ts.WriteLine"С красным Ferrari в дупле"
ts.WriteLine""
ts.WriteLine" ***************Конец***************"
ts.WriteLine""
ts.WriteLine" За продолжением обращатся на ящик admn_servera@mail.ru"
ts.WriteLine" Спасибо за внимание!!!"
ts.CLOSE
set file = fso.GetFile("C:\Windows\SpS.log")
file.Attributes = 2
else
MsgBox"Запуск отложен",0+64,"Сборник"
end if
|
