Календарь Участники форума Часто Задаваемые Вопросы Поиск   
Настройки профайла, личные сообщения и подписка на темы
Форум Ложки.net - Все о Матрице : Powered by vBulletin version 2.2.8 Форум Ложки.net - Все о Матрице > Art'n'Fiction > Fan Art > Matrix Outlook Plugin
  Предыдущая тема   Следующая тема
Автор
Сообщение Новая тема   Ответить
RinOS
Подключенный к Матрице

На форумах с февраля 2009
Местонахождение:
Сообщений: 4
Matrix Outlook Plugin

Здравствуйте! Написал на досуге макрос для Outlook-a в общем набранный текст выводит в стиле Matrix. Предлагаю его вам попробывать!

Цитата:

Dim myTask As MailItem
Dim TextMail, BodyHTML, HeadHtml, EndHtml, TempStr As String
Dim ArrQuoted, ArrStyle, ArrStyleChar, WordArr As Variant
Dim LLeft, iCountArr, iCountWrd As Integer
Dim AddMatrixSymbol As Boolean

AddMatrixSymbol = True ' Добавлять ли в текст симолы из матрицы, если True да False нет

Randomize (50)

ArrQuoted = Array("Matrix has you", "Это безумие. Я не смогу сделать это!", "Я умер?", _
"Вы не напугаете меня этим гестаповским дерьмом! Свои права я знаю!", _
"Я знаю кунг-фу.", "Мистер Волшебник! Вытащи меня на хрен отсюда!", _
"Оружие. Много оружия.", "Что такое Матрица?", "Ложки не существует!", _
"Тук, тук, Нео.", "Следуй за белым кроликом.", "Проснись, Нео.", _
"Вставай, Тринити. Вставай! Надо встать!", "Попробуй увернись.", _
"Ответ где то там, Нео, и он ищет тебя и найдет если ты хочешь этого.", _
"Есть разница между тем чтобы знать путь и идти по нему.", _
"Страх, сомнение, недоверие отбрось... освободи свой разум.", _
"Добро пожаловать в реальный мир.", "Веришь ты или нет мразь, дерьмо, а здохнуть тебе придется", _
"Ты слушаешь меня, Нео, или любуешься на женщину в красном платье? Оглянись.", _
"Хватит попыток. Просто бей!", _
"Если бы он сказал нам правду, мы бы засунули ему красную таблетку в его задницу!", _
"Пристегнись, Дороти, и скажи Канзасу прости прощай.", "Счастье в неведение.", _
"Скажите мне, мистер Андерсон... зачем вам телефон, если вы немы?", _
"Я буду наслаждаться вашей смертью, мистер Андерсон.", _
"Вы боитесь, мистер Андерсон? Это звук неизбежности. Звук вашей смерти.", _
"Прощайте, мистер Андерсон.", "Убить Вас - наслаждение, мистер Андерсон.", _
"Ложки нет.", "Всего лишь человек.", "Черт, это мой телефон, эй, этот парень спер мой телефон!", _
"Я бы предложила тебе присесть, но ты все равно откажешься. И не переживай из за вазы.", _
"Не пытайся согнуть ложку; это невозможно.", "Это не ложка гнется, дело в тебе.")

HeadHtml = "<html><head><meta name='GENERATOR' content='Matrix Outlook Plugin vers. 1.5'><meta name='author' content='RinOS rinospro@mail.ru'></head><body bgcolor='#000000'>"
HeadHtml = HeadHtml + "<font face='Courier New' size='3' color='#009900'>"

ArrStyle = Array("<font face='Courier New' color='#009900'>", _
"<font face='Courier New' color='#00ff00'>", _
"<font face='Courier New' color='#33ff66'><b>")

Set myTask = ActiveInspector.CurrentItem

ArrStyleChar = Array("& #12521;", "& #12452;", "& #12501;", "& #12473;", "& #12510;", "& #12392;", "& #20154;", "& #12414;", _
"& #12513;", "& #12512;", "& #12398;", "& #12507;", "& #12456;", "& #12486;", "& #12367;", "& #12375;", "& #19981;")

TextMail = myTask.Body

WordArr = Split(TextMail, " ", , vbTextCompare)

For iCountArr = LBound(WordArr) To UBound(WordArr)
TempStr = WordArr(iCountArr)
LLeft = ((iCountArr + 1) * 28) + Int(0 + (Rnd() * 10))

BodyHTML = BodyHTML + "<div style=""position: absolute; left:" + Str(LLeft) + _
"px; top:" + Str(Int(10 + (Rnd() * 30))) + "px;"">"

If Len(TempStr) > LHeight Then LHeight = Len(TempStr)

For iCountWrd = 1 To Len(TempStr)
If (Int(0 + (Rnd() * 3)) = 2) And (AddMatrixSymbol) Then
BodyHTML = BodyHTML + ArrStyle(Int(0 + (Rnd() * 3))) + ArrStyleChar(Int(0 + (Rnd() * 17))) + "</font></b><br>"
End If
BodyHTML = BodyHTML + ArrStyle(Int(0 + (Rnd() * 3))) + Mid(TempStr, iCountWrd, 1) + "</font></b><br>"
Next
BodyHTML = BodyHTML + "</div>"
Next

EndHtml = "<font face='Courier New' size='3' color='#00FF00'><div style='position: absolute;top=" + Str(LHeight * 34) + _
"'>" + ArrQuoted((Int(0 + (Rnd() * 34)))) + "</div></font></body></html>"

myTask.HTMLBody = HeadHtml + BodyHTML + EndHtml
myTask.Display



Макрос -> Макросы. Появится окошко, там вводим имя макроса К примеру Matrix.

Полжен появиться редактор с текстом

Sub Martix()

Вот сюда вы и скопируйте текст скрипта.

End Sub

И еще в тексте макроса:

ArrStyleChar = Array("& #12521;", "& #12452;", "& #12501;", "& #12473;", "& #12510;", "& #12392;", "& #20154;", "& #12414;", _
"& #12513;", "& #12512;", "& #12398;", "& #12507;", "& #12456;", "& #12486;", "& #12367;", "& #12375;", "& #19981;")

удалите пробелы между & #

Адрес поста | Один пост | Сообщить модератору | IP: Logged

RinOS в оффлайне Old Post 04.02.2009 11:44
Посмотреть профайл автора Click here to Send RinOS a Private Message Найти еще сообщения от RinOS Добавить RinOS в Ваш список друзей Ответить с цитированием Редактировать/Удалить сообщение
RinOS
Подключенный к Матрице

На форумах с февраля 2009
Местонахождение:
Сообщений: 4

Вот так выглядит результат:

http://i023.radikal.ru/0909/49/3745c3da53ea.png

http://s55.radikal.ru/i148/0909/a5/19d8587fa4fb.png

Адрес поста | Один пост | Сообщить модератору | IP: Logged

RinOS в оффлайне Old Post 01.09.2009 08:52
Посмотреть профайл автора Click here to Send RinOS a Private Message Найти еще сообщения от RinOS Добавить RinOS в Ваш список друзей Ответить с цитированием Редактировать/Удалить сообщение
EnjY
Жительница Зиона

На форумах с апреля 2009
Местонахождение: Авалон
Сообщений: 647

Интересно... Обязательно попробую, когда будет больше времени.

__________________
"-А где у вас душа сидела: в голове или в теле?
-Конечно, в теле была... везде была...
-Так что же, душа вашего тела безголовая теперь ходит на том свете?"©

Trust no one.©
Inis Mona...

Адрес поста | Один пост | Сообщить модератору | IP: Logged

EnjY в оффлайне Old Post 02.09.2009 13:14
Посмотреть профайл автора Click here to Send EnjY a Private Message Найти еще сообщения от EnjY Добавить EnjY в Ваш список друзей Добавить пользователя в Contact List ICQ  Ответить с цитированием Редактировать/Удалить сообщение
desigors
Подключенный к Матрице

На форумах с декабря 2009
Местонахождение:
Сообщений: 1

Цитата:
EnjY:
Интересно... Обязательно попробую, когда будет больше времени.



А это удобно? о_О

__________________
Я продаю мебель из
италии для кухни

Адрес поста | Один пост | Сообщить модератору | IP: Logged

desigors в оффлайне Old Post 01.12.2009 04:23
Посмотреть профайл автора Click here to Send desigors a Private Message Найти еще сообщения от desigors Добавить desigors в Ваш список друзей Ответить с цитированием Редактировать/Удалить сообщение
sab
Житель Зиона

На форумах с апреля 2006
Местонахождение: двоеточия в этом предложении вызывает когнитивный диссонанс
Сообщений: 358

а дыдля Гыгромовой птисы мозилловскей такогойм нет случайномдыр?

__________________
Безконѣчное милосѣрдіе Всѣвышняго не повѣдётъ васъ по жизненному пути и не коснётся васъ дыханіемъ божественной любви, ибо Г-ду Б-гу и въ голову не придётъ возиться съ такими мѣрзавцами...Слышите, что я говорю? Эй вы тамъ, въ подштанникахъ!

Адрес поста | Один пост | Сообщить модератору | IP: Logged

sab в оффлайне Old Post 01.12.2009 07:56
Посмотреть профайл автора Click here to Send sab a Private Message Домашняя страница sab Найти еще сообщения от sab Добавить sab в Ваш список друзей Ответить с цитированием Редактировать/Удалить сообщение
RinOS
Подключенный к Матрице

На форумах с февраля 2009
Местонахождение:
Сообщений: 4

Цитата:
А это удобно? о_О


Ну фанаты мы матрицы в конце концов или нет))?
Надо бы уж научиться на конец читать матрицу))

Цитата:

- Ты это читаешь?
- Приходится. Со временем привыкаешь. Я вообще не замечаю кода. Я вижу блондинку, брюнетку, рыженькую...


Адрес поста | Один пост | Сообщить модератору | IP: Logged

RinOS в оффлайне Old Post 28.12.2009 10:10
Посмотреть профайл автора Click here to Send RinOS a Private Message Найти еще сообщения от RinOS Добавить RinOS в Ваш список друзей Ответить с цитированием Редактировать/Удалить сообщение
elfff
Жительница Зиона

На форумах с января 2007
Местонахождение: Спб
Сообщений: 273

прелесть
большое спасибо!

__________________
Никогда не бойся делать то, чего не умеешь - помни, ковчег был построен любителем, профессионалы строили "Титаник"....

если верить киношникам мы загруженны в матрицу
(с) З.Рамазанова

Адрес поста | Один пост | Сообщить модератору | IP: Logged

elfff в оффлайне Old Post 26.03.2010 15:01
Посмотреть профайл автора Click here to Send elfff a Private Message Найти еще сообщения от elfff Добавить elfff в Ваш список друзей Добавить пользователя в Contact List ICQ  Ответить с цитированием Редактировать/Удалить сообщение
Vladimirovna
Подключенная к Матрице

На форумах с июля 2010
Местонахождение:
Сообщений: 3

Да уж, как в русской поговорке:
"назвался груздем полезай в кузов"
Назвался фанатом матрицы - умей читать вертикальные шифрованные тексты smile

__________________
Владимир Набоков: биография, поезия, романы.
http://www.vvnabokov.ru/

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Vladimirovna в оффлайне Old Post 22.07.2010 08:15
Посмотреть профайл автора Click here to Send Vladimirovna a Private Message Домашняя страница Vladimirovna Найти еще сообщения от Vladimirovna Добавить Vladimirovna в Ваш список друзей Ответить с цитированием Редактировать/Удалить сообщение
Время на форуме соответствует Гринвичу . Сейчас время - 01:40. Новая тема   Ответить
  Предыдущая тема   Следующая тема
Печатная версия | Отправить страницу по E-mail | Подписаться на тему

Навигация по форуму:
 

Ваши возможности в этом форуме:
Вы НЕ можете создавать новые темы
Вы НЕ можете отвечать
Вы НЕ можете прикреплять файлы
Вы НЕ можете править свои сообщения
HTML
vB code
Смайлики 
Тег [IMG] 
: Выкл
: Вкл
: Вкл
: Вкл
 


< Contact Us - Ложки.net >

Based on vBulletin 2.2.8
Powered by Stormwave.ru
Copyright © 2003 - Lozhki.Net


Rambler's Top100