Гороскоп на каждый день

02.07.12

Интеграция - WEB-интеграция

Внешняя обработка, позволяющая получать ежедневный гороскоп по дате рождения.

Скачать файлы

Наименование Файл Версия Размер
Получить гороскоп
.ert 32,50Kb
8
.ert 32,50Kb 8 Скачать

Написать подобную обработку навеяло изучение статьи о чтении динамических страниц, опубликованной http://www.infostart.ru/public/60330/ (автор: mai).

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

В качестве источника информации использовал сайт http://horoscopes.rambler.ru

См. также

HTTP сервер 1С 7.7 + HTTP асинхронный клиент: внешние компоненты для 1С 7.7

Разработка внешних компонент WEB-интеграция Платформа 1С v7.7 Конфигурации 1cv7 Платные (руб)

Компонента HttpSrv7 позволяет создавать веб-сервисы в среде 1С 7.7 и даже, используя файлы HTML, несложные веб-сайты. С помощью нее можно обеспечить доступ к данным 1С 7.7 из браузера. Дополнительно используя компоненту HTTP_Async или синхронный клиент HTTP для 1С 7.7 (публикация № 1152364) можно наладить обмен данными между удаленными информационными базами. С помощью компоненты HTTP_Async можно параллельно посылать много запросов к сайтам, веб-сервисам (в т.ч. к HttpSrv7), а затем обрабатывать данные по мере их поступления.

2000 руб.

27.05.2022    7810    19    13    

31

Заполнение контрагента по ИНН с сайта DaData

WEB-интеграция Мастера заполнения Платформа 1С v7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m)

Обработка для заполнения контрагента по ИНН с сайта DAData для Торговли.

2 стартмани

17.02.2022    4476    11    lazarsr    0    

1

Загрузка курсов валют с НБУ (Украина) в 1С 7.7

Банковские операции WEB-интеграция Платформа 1С v7.7 Конфигурации 1cv7 Украина Абонемент ($m)

Загрузка курсов валют в 1С 7.7 с сайта НБУ (Украина), используя "Msxml2.ServerXMLHTTP.6.0"

1 стартмани

31.05.2021    6539    5    user729873    0    

2

Загрузка курсов валют (для РБ) с сайта nbrb.by для конфигурации "Юкола-Инфо"

Банковские операции WEB-интеграция Платформа 1С v7.7 Конфигурации 1cv7 Беларусь Бухгалтерский учет Абонемент ($m)

В сентябре 2020 года запланирован переход официального интернет-сайта Национального банка Республики Беларусь на работу только по протоколу https.

1 стартмани

08.12.2020    9455    2    BotMan4    4    

1

Проверка контрагентов для ТиС 9.2 1С 7.7 с помощью WEB-сервиса ФНС

WEB-интеграция Платформа 1С v7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m)

C помощью WEB-сервиса ФНС проводится проверка идентификационных реквизитов юридических лиц и индивидуальных предпринимателей по данным ЕГРН. Предусмотрена проверка как одного контрагента, так и списка контрагентов. Список контрагентов формируется по наличию товарного движения в заданный период. Платформа 1С 7.7. Торговля и Склад 9.2.

1 стартмани

06.12.2020    6371    10    alex_serb    0    

3

Загрузка курсов валют с сайта Нацбанка Республики Беларусь (МиСОФТ 1С 7.7 )

Банковские операции WEB-интеграция Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Беларусь Бухгалтерский учет Абонемент ($m)

Изменились правила загрузки курсов валют с сайта Нацбанка Республики Беларусь. Обновление обработки типовой загрузки курсов валют в конфигурации бухгалтерии 1С 7.7 Мисофт.

1 стартмани

16.11.2020    10890    5    igor_1c    6    

3

Загрузка курсов валют с сайта НБРБ по защищенному протоколу HTTPS для 1С 7.7

Банковские операции WEB-интеграция Платформа 1С v7.7 Конфигурации 1cv7 Беларусь Абонемент ($m)

В связи с переходом Национального банка РБ с сентября 2020 на защищенный протокол HTTPS внесены изменения в обработку загрузки курсов валют с сайта Национального банка РБ для 1С 7.7.

2 стартмани

28.09.2020    13737    12    dimitryas    29    

3
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. AndrewEv 18 20.01.10 17:42 Сейчас в теме
Троян-ДаунЛоадер в файле. Автор, извинитесь перед нами, пожалуйста
2. Noy 1076 20.01.10 18:03 Сейчас в теме
(1) Антивирус свой воспитывай! Ниче там нет.
3. 1v7 235 21.01.10 13:14 Сейчас в теме
Вирусов нет! NOD32
А гороскоп прикольный+
4. 1v7 235 21.01.10 14:11 Сейчас в теме
только какие то теги в конце вылазят...
*****************************************************
Гороскоп для знака Рак на 21 января 2010

Если утром вам покажется, что цель недостижима, не паникуйте.
Возможно, такое действие на вас оказывает критика со стороны другого человека (например, вашего партнера по делам, товарища по учебе, консультанта по важным вопросам).
Любое высказанное вам в лицо мнение обязательно примите во внимание, так как в прямоте и откровенности вашим оппонентам не откажешь.
Но как только обсуждение будет окончено, суммируйте сказанное и немедленно действуйте.
Если вы будете смелее и не станете сидеть сложа руки, то к вечеру сможете многого добиться.








********************************horoscopes.rambler.ru
5. zaic 133 21.01.10 15:47 Сейчас в теме
Касперский не дал скачать (базы в нем сегодняшние).
6. mdbm 190 22.01.10 10:40 Сейчас в теме
Странно, а вирус обнаруживается при запуске обработчика или при скачивании ?
7. mdbm 190 22.01.10 11:01 Сейчас в теме
Да, действительно Касперский выдает вирус, а на НОД32 тишина.
Но глядя на рисунок видно, что вирус обнаружен в тексте кода 1С.
Вы можете открыть текст и убедится, что под вирусом Касперский воспринимает код:

	
        Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
	Скрипт.language = "vbscript";
	x = CreateObject("Microsoft.XMLHTTP");
	x.Open("GET", Адрес, 0,"","");
	x.Send();
	s = CreateObject("ADODB.Stream");
	s.Mode = 3;
	s.Type = 1;
	s.Open();
	Скрипт.AddObject("s",s);
	Скрипт.AddObject("x",x);
	Скрипт.Eval("s.Write(x.responseBody)");
	s.SaveToFile(ФайлРезультата, 2);
Показать


и в отчете касперского так и написано

2010_ПолучитьГороскоп.ert//1С ProgramText
Прикрепленные файлы:
8. mdbm 190 22.01.10 11:21 Сейчас в теме
9. AndrewEv 18 22.01.10 23:05 Сейчас в теме
прикольно, Касперский пошёл в 1C...
10. pupkinSana 108 02.02.10 12:49 Сейчас в теме
Да троянчик есть здесь...
11. mdbm 190 02.02.10 15:59 Сейчас в теме
Я написал письмо в лабораторию Касперского.
Посмотрим что они ответят.


Вот текст письма:

Добрый день.
Я написал программу - внешнюю обработку для программы 1С.
Выложил ее на сайте.
При попытке скачать, антивирус выдает сообщение о вирусе.

В тексте программы есть такой код:
Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.language = "vbscript";
x = CreateObject("Microsoft.XMLHTTP");
x.Open("GET", Адрес, 0,"","");
x.Send();
s = CreateObject("ADODB.Stream");
s.Mode = 3;
s.Type = 1;
s.Open();
Скрипт.AddObject("s",s);
Скрипт.AddObject("x",x);
Скрипт.Eval("s.Write(x.responseBody)");
s.SaveToFile(ФайлРезультата, 2);

Данный скрипт открывает страницу определенного сайта и сохраняет ее в текстовый файл.

Не могли бы вы объяснить почему данный текст программы блокируется антивирусом как вирус и мешает пользователям скачать мою обработку ?

При этом НОД32 ДокторВеб молчат.
Показать


Ваш запрос успешно отправлен в Департамент исследований и разработки Лаборатории Касперского.

ждем....
12. mdbm 190 09.02.10 15:02 Сейчас в теме
пока ответа не пришло
13. simuljakr1 25.11.10 17:42 Сейчас в теме
Нашел небольшой косячок :)
"Козерога" неправильно обрабатывает...
Потому что "козерожье" условие никогда не выполняется:

	ИначеЕсли (ТекДата>=Дата("22.12."+Год)) И (ТекДата<=Дата("20.01."+Год))  Тогда
Возврат ?(Язык="ru","Козерог","capricorn");


Но в целом прикольная обработка +
14. 1v7 235 20.06.12 11:49 Сейчас в теме
перестал работать... дело в Рамблере
15. mdbm 190 02.07.12 22:52 Сейчас в теме
(14) 1v7, Обновил ) Продолжаем получать звёздные подсказки ))
16. 1v7 235 04.07.12 09:35 Сейчас в теме
(15) спасибо!!! а то без вгляда в будущее по утрам тяжело жить))
единственное, для комфорта, надо рабочие сообщения "зарисовать":
//Сообщить("НачальнаяСтрока = "+НачальнаяСтрока);
//Сообщить("КонечнаяСтрока = "+КонечнаяСтрока);
17. 1v7 235 04.07.12 12:48 Сейчас в теме
как писал simuljakr1, есть косячок. я бы так поправил:

Функция глПолучитьЗнакЗодиака(ТекДата,Язык="ru") Экспорт
Год=Прав(ДатаГод(ТекДата),2);
Если (ТекДата>=Дата("21.03."+Год)) И (ТекДата<=Дата("20.04."+Год)) Тогда
Возврат ?(Язык="ru","Овен","aries");
ИначеЕсли (ТекДата>=Дата("21.04."+Год)) И (ТекДата<=Дата("20.05."+Год)) Тогда
Возврат ?(Язык="ru","Телец","taurus");
ИначеЕсли (ТекДата>=Дата("21.05."+Год)) И (ТекДата<=Дата("21.06."+Год)) Тогда
Возврат ?(Язык="ru","Близнец","gemini");
ИначеЕсли (ТекДата>=Дата("22.06."+Год)) И (ТекДата<=Дата("22.07."+Год)) Тогда
Возврат ?(Язык="ru","Рак","cancer");
ИначеЕсли (ТекДата>=Дата("23.07."+Год)) И (ТекДата<=Дата("23.08."+Год)) Тогда
Возврат ?(Язык="ru","Лев","leo");
ИначеЕсли (ТекДата>=Дата("24.08."+Год)) И (ТекДата<=Дата("23.09."+Год)) Тогда
Возврат ?(Язык="ru","Дева","virgo");
ИначеЕсли (ТекДата>=Дата("23.09."+Год)) И (ТекДата<=Дата("23.10."+Год)) Тогда
Возврат ?(Язык="ru","Весы","libra");
ИначеЕсли (ТекДата>=Дата("24.10."+Год)) И (ТекДата<=Дата("22.11."+Год)) Тогда
Возврат ?(Язык="ru","Скорпион","scorpio");
ИначеЕсли (ТекДата>=Дата("23.11."+Год)) И (ТекДата<=Дата("21.12."+Год)) Тогда
Возврат ?(Язык="ru","Стрелец","sagittarius");
ИначеЕсли (ТекДата>=Дата("21.01."+Год)) И (ТекДата<=Дата("18.02."+Год)) Тогда
Возврат ?(Язык="ru","Водолей","aquarius");
ИначеЕсли (ТекДата>=Дата("19.02."+Год)) И (ТекДата<=Дата("20.03."+Год)) Тогда
Возврат ?(Язык="ru","Рыба","pisces");
ИначеЕсли (ТекДата>=Дата("22.12."+Год)) ИЛИ (ТекДата<=Дата("20.01."+Год)) Тогда
Возврат ?(Язык="ru","Козерог","capricorn");
КонецЕсли;
КонецФункции
Оставьте свое сообщение