API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 21st, 2019
205
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 21.24 KB | None | 0 0
raw download clone embed print report
  1. Процедура Подключиться(Команда,Выводить=Истина,УдачноТожеВыводить=Ложь) Экспорт
  2. ПараметрыДлякилента=Неопределено;
  3. Если НаКлиенте(ПараметрыДлякилента) Тогда
  4. Если ЗначениеЗАполнено(ПараметрыДлякилента.АдресПрокси) Тогда
  5. Прокси=Новый ИнтернетПрокси;
  6. Прокси.Установить("http",ПараметрыДлякилента.АдресПрокси,ПараметрыДлякилента.ПортПрокси,ПараметрыДлякилента.ПользовательПрокси,ПараметрыДлякилента.ПарольПрокси);
  7.  
  8. HTTPСервисЗапрос=Новый HTTPСоединение("srs.gs1ru.org",,,,Прокси,30);
  9. Иначе
  10. HTTPСервисЗапрос=Новый HTTPСоединение("srs.gs1ru.org",,,,,30);
  11. КонецЕсли;
  12. HTTPЗапрос = Новый HTTPЗапрос("login");
  13. Ответ=HTTPСервисЗапрос.Получить(HTTPЗапрос);
  14.  
  15. Кэш_3=Ответ.Заголовки["Set-Cookie"];
  16.  
  17. // HTTPСервисЗапрос.Open("POST", "http://srs.gs1ru.org/login", 0);
  18. //Обработки._Запуск_ХамелеонЦРПТ.УстановитьПрокси(HTTPСервисЗапрос);
  19. HTTPЗапрос = Новый HTTPЗапрос("login");
  20. HTTPЗапрос.Заголовки.Вставить("Cookie", Кэш_3);
  21.  
  22. HTTPЗапрос.Заголовки.Вставить("Accept", " text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3");
  23. //HTTPСервисЗапрос.SetRequestHeader("Accept-Encoding","gzip, deflate");
  24. HTTPЗапрос.Заголовки.Вставить("Accept-Language", "ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7");
  25. HTTPЗапрос.Заголовки.Вставить("Cache-Control", "max-age=0");
  26. HTTPЗапрос.Заголовки.Вставить("Connection", "keep-alive");
  27. HTTPЗапрос.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
  28. HTTPЗапрос.Заголовки.Вставить("Host", "srs.gs1ru.org");
  29. HTTPЗапрос.Заголовки.Вставить("Origin", "http://srs.gs1ru.org");
  30. HTTPЗапрос.Заголовки.Вставить("Referer", "http://srs.gs1ru.org/login?error=true");
  31. HTTPЗапрос.Заголовки.Вставить("Upgrade-Insecure-Requests", "1");
  32. HTTPЗапрос.Заголовки.Вставить("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.131 Safari/537.36");
  33. // Заголовки.Вставить("User-Agent", "Mozilla/5.0 (Windows NT 6.1; Trident/7.0; rv:11.0) like Gecko");
  34. //HTTPСервисЗапрос.SetRequestHeader("Connection" ,"Keep-Alive");
  35. //HTTPСервисЗапрос.SetRequestHeader("Host" ,"mercury.vetrf.ru");
  36. //HTTPЗапрос = Новый HTTPЗапрос("hs/",Заголовки);
  37. // Ответ=HTTPСервисЗапрос_Merc.Получить(HTTPЗапрос);
  38. Тело="j_character_encoding=UTF-8&username="+ПараметрыДлякилента.Пользователь+"&password="+ПараметрыДлякилента.Пароль;
  39. HTTPЗапрос.УстановитьТелоИзСтроки(Тело);
  40. Ответ=HTTPСервисЗапрос.ОтправитьДляОбработки(HTTPЗапрос);
  41. Кэш_Т=Ответ.Заголовки["Set-Cookie"];
  42.  
  43.  
  44. HTTPЗапрос = Новый HTTPЗапрос("index.jsp");
  45. HTTPЗапрос.Заголовки.Вставить("Cookie", Кэш_Т);
  46.  
  47. HTTPЗапрос.Заголовки.Вставить("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3");
  48. //HTTPСервисЗапрос.SetRequestHeader("Accept-Encoding","gzip, deflate");
  49. HTTPЗапрос.Заголовки.Вставить("Accept-Language", "ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7");
  50. HTTPЗапрос.Заголовки.Вставить("Cache-Control", "max-age=0");
  51. HTTPЗапрос.Заголовки.Вставить("Connection", "keep-alive");
  52. HTTPЗапрос.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
  53. HTTPЗапрос.Заголовки.Вставить("Host", "srs.gs1ru.org");
  54. HTTPЗапрос.Заголовки.Вставить("Origin", "http://srs.gs1ru.org");
  55. HTTPЗапрос.Заголовки.Вставить("Referer", "http://srs.gs1ru.org/login?error=true");
  56. HTTPЗапрос.Заголовки.Вставить("Upgrade-Insecure-Requests", "1");
  57. HTTPЗапрос.Заголовки.Вставить("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.131 Safari/537.36");
  58.  
  59. Ответ=HTTPСервисЗапрос.Получить(HTTPЗапрос);
  60. //Кэш_Т=Ответ.Заголовки["Set-Cookie"];
  61. XORACLEAPMCSREQUESTID=Ответ.Заголовки["X-ORACLE-APMCS-REQUEST-ID"];
  62. Ответ=Ответ.ПолучитьТелоКакСтроку();
  63. Подключились=Ложь;
  64. //HTTPСервисЗапрос.Send(Тело);
  65. //HTTPСервисЗапрос.WaitForResponse();
  66.  
  67. // HTTPСервисЗапрос.Open("GET", "http://srs.gs1ru.org/index.jsp", 0);
  68. // HTTPСервисЗапрос.Send();
  69. // HTTPСервисЗапрос.WaitForResponse();
  70. // Ответ=HTTPСервисЗапрос.ResponseText;
  71.  
  72. Организации.Очистить();
  73. Если Найти(Ответ,"Единый язык")>0 Тогда
  74. Подключились=Истина;
  75. Добав=Организации.Добавить();
  76. Организация_1=Сред(Ответ,Найти(Ответ,"<td style=""font-weight: bold;"">")+31);
  77. НаимОрг=СокрЛП(Сред(Организация_1,1,Найти(Организация_1,Символы.ПС)));
  78. ГлобалКод=Сред(НаимОрг,1,Найти(НаимОрг," ")-1);
  79. НаимОрг=Сред(НаимОрг,Найти(НаимОрг," ")+1);
  80. Статистка="<!DOCTYPE HTML>
  81. |<html class=""portal-ru"">
  82. |<head>
  83. |";
  84. Ст_1=Сред(Ответ,Найти(Ответ,"<td width=""25%"""));
  85. Статистка=Статистка+"
  86. |"+Сред(Ст_1,1,Найти(Сред(Ст_1,2),"<td width=""25%"""));
  87.  
  88. ИНН="";
  89. НАимПользователя=Сред(Организация_1,Найти(Организация_1,"<td style=""font-weight: bold;"">")+31);
  90. НАимПользователя=СокрЛП(Сред(НАимПользователя,Найти(НАимПользователя," ")+1));
  91. НАимПользователя=СокрЛП(Сред(НАимПользователя,1,Найти(НАимПользователя," ")-1));
  92. ПользНаим(НАимПользователя);
  93. Добав.ПОльзователь=Пользователь;
  94.  
  95. HTTPЗапрос = Новый HTTPЗапрос("Ui/Ui.nocache.js?ui_ver=3.0.445-SNAPSHOT");
  96. HTTPЗапрос.Заголовки.Вставить("Referer", "http://srs.gs1ru.org/index.jsp");
  97. HTTPЗапрос.Заголовки.Вставить("Cookie", Кэш_Т);
  98. HTTPЗапрос.Заголовки.Вставить("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.131 Safari/537.36");
  99.  
  100. Ответ=HTTPСервисЗапрос.Получить(HTTPЗапрос);
  101. //Кэш_Т=Ответ.Заголовки["Set-Cookie"];
  102. Ответ=Ответ.ПолучитьТелоКакСтроку();
  103. Если Найти(Ответ,"qc='")>0 Тогда
  104. qr=Сред(Ответ,Найти(Ответ,"qc='")+4);
  105. qr=Сред(qr,1,Найти(qr,"'")-1);
  106.  
  107.  
  108. HTTPЗапрос = Новый HTTPЗапрос("Ui/"+qr+".cache.js");
  109. HTTPЗапрос.Заголовки.Вставить("Cookie", Кэш_Т);
  110. HTTPЗапрос.Заголовки.Вставить("Referer", "http://srs.gs1ru.org/index.jsp");
  111. HTTPЗапрос.Заголовки.Вставить("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.131 Safari/537.36");
  112.  
  113. Ответ=HTTPСервисЗапрос.Получить(HTTPЗапрос);
  114. //Кэш_Т=Ответ.Заголовки["Set-Cookie"];
  115. Ответ=Ответ.ПолучитьТелоКакСтроку();
  116. Если Найти(Ответ,"'springGwtServices/setupService','")>0 Тогда
  117. setupService=Сред(Ответ,Найти(Ответ,"'springGwtServices/setupService','")+34);
  118. setupService=Сред(setupService,1,Найти(setupService,"'")-1);
  119.  
  120.  
  121. HTTPЗапрос = Новый HTTPЗапрос("Ui/springGwtServices/setupService");
  122.  
  123. HTTPЗапрос.Заголовки.Вставить("Cookie", Кэш_Т);
  124. HTTPЗапрос.Заголовки.Вставить("X-GWT-Permutation", qr);
  125. HTTPЗапрос.Заголовки.Вставить("X-GWT-Module-Base", "http://srs.gs1ru.org/Ui/");
  126.  
  127.  
  128. HTTPЗапрос.Заголовки.Вставить("Accept", "*/*");
  129. //HTTPСервисЗапрос.SetRequestHeader("Accept-Encoding","gzip, deflate");
  130. HTTPЗапрос.Заголовки.Вставить("Accept-Language", "ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7");
  131. HTTPЗапрос.Заголовки.Вставить("Connection", "keep-alive");
  132. // HTTPЗапрос.Заголовки.Вставить("Content-Length", "128");
  133. HTTPЗапрос.Заголовки.Вставить("Content-Type", "text/x-gwt-rpc; charset=UTF-8");
  134. HTTPЗапрос.Заголовки.Вставить("Host", "srs.gs1ru.org");
  135. HTTPЗапрос.Заголовки.Вставить("Origin", "http://srs.gs1ru.org");
  136. HTTPЗапрос.Заголовки.Вставить("Referer", "http://srs.gs1ru.org/index.jsp");
  137. //HTTPЗапрос.Заголовки.Вставить("Upgrade-Insecure-Requests", "1");
  138. HTTPЗапрос.Заголовки.Вставить("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.131 Safari/537.36");
  139.  
  140. //ИмяФайлаОтправкиКонец = ПолучитьИмяВременногоФайла("txt");
  141. //ФайлОтправкиКонец = Новый ЗаписьТекста(ИмяФайлаОтправкиКонец, КодировкаТекста.ANSI, Символы.ПС, Ложь);
  142.  
  143. //Завершение раздела двоичных данных
  144. //Завершение сообщения для сервера
  145.  
  146. //ФайлОтправкиКонец.ЗаписатьСтроку("7|0|4|http://srs.gs1ru.org/Ui/|"+setupService+"|com.gs46.api.client.service.SetupService|getInitialData|1|2|3|4|0|");
  147. //ФайлОтправкиКонец.Закрыть();
  148.  
  149. //HTTPЗапрос.УстановитьТелоИзСтроки(КодироватьСтрСерверURL("7|0|4|http://srs.gs1ru.org/Ui/|"+setupService+"|com.gs46.api.client.service.SetupService|getInitialData|1|2|3|4|0|"));
  150. //HTTPЗапрос.УстановитьИмяФайлаТела((УстановитьТелоИзСтроки(
  151. //КодироватьСтрСерверURL(
  152. //7|0|4|http://srs.gs1ru.org/Ui/|"+setupService+"|com.gs46.api.client.service.SetupService|getInitialData|1|2|3|4|0|"));
  153. //"7|0|4|http://srs.gs1ru.org/Ui/|"+setupService+"|com.gs46.api.client.service.SetupService|getInitialData|1|2|3|4|0|"
  154. //)
  155. //);
  156. HTTPЗапрос.УстановитьТелоИзСтроки("7|0|4|http://srs.gs1ru.org/Ui/|"+setupService+"|com.gs46.api.client.service.SetupService|getInitialData|1|2|3|4|0|",
  157. КодировкаТекста.ANSI);
  158. //HTTPЗапрос.УстановитьИмяФайлаТела(ИмяФайлаОтправкиКонец);
  159. Ответ=HTTPСервисЗапрос.ОтправитьДляОбработки(HTTPЗапрос);
  160. //Кэш_Т=Ответ.Заголовки["Set-Cookie"];
  161. Ответ=Ответ.ПолучитьТелоКакСтроку();
  162. Если Найти(Ответ,"""ENT_INN"",""")>0 Тогда
  163. ИНН=Сред(Ответ,Найти(Ответ,"""ENT_INN"",""")+11);
  164. ИНН=Сред(ИНН,1,Найти(ИНН,"""")-1);
  165.  
  166. КонецЕсли;
  167.  
  168. //НачатьУдалениеФайлов(Новый Описа,ИмяФайлаОтправкиКонец);
  169. //НачатьУдалениеФайлов(Новый ОписаниеОповещения("УдаленияФайла",ЭтаФорма),ИмяФайлаОтправкиКонец);
  170. //Если
  171.  
  172. КонецЕсли;
  173. КонецЕсли;
  174.  
  175. //ИмяВремен=ПолучитьИмяВременногоФайла("txt");
  176. ТекстовФ=Новый ТекстовыйДокумент;
  177. Попытка
  178. СпрОрг=СоздатьНайтиОрганизацияю(ГлобалКод,НАимОрг,ИНН,"");
  179. Добав.Организация=СпрОрг;
  180. Попытка
  181. Если ЗначениеЗАполнено(ПараметрыДлякилента.АдресПрокси) Тогда
  182. Прокси=Новый ИнтернетПрокси;
  183. Прокси.Установить("http",ПараметрыДлякилента.АдресПрокси,ПараметрыДлякилента.ПортПрокси,ПараметрыДлякилента.ПользовательПрокси,ПараметрыДлякилента.ПарольПрокси);
  184. HTTP = Новый HTTPСоединение("xn----7sbbamhfc3aanfgcf0aob1c4h3dua.xn--p1ai",,,,Прокси,ТаймаутОжиданияОтСайта,Новый ЗащищенноеСоединениеopenSSL());
  185.  
  186. Иначе
  187. HTTP = Новый HTTPСоединение("xn----7sbbamhfc3aanfgcf0aob1c4h3dua.xn--p1ai",,,,,ТаймаутОжиданияОтСайта,Новый ЗащищенноеСоединениеopenSSL());
  188. КонецЕсли;
  189. HTTPЗапрос = Новый HTTPЗапрос("api/crtp.php");
  190. Отв=HTTP.Получить(HTTPЗапрос);
  191. Текст=Отв.ПолучитьТелоКакСтроку(КодировкаТекста.ANSI);
  192. ТекстовФ.УстановитьТекст(Текст);
  193. Исключение
  194.  
  195. Если ЗначениеЗАполнено(ПараметрыДлякилента.АдресПрокси) Тогда
  196. Прокси=Новый ИнтернетПрокси;
  197. Прокси.Установить("http",ПараметрыДлякилента.АдресПрокси,ПараметрыДлякилента.ПортПрокси,ПараметрыДлякилента.ПользовательПрокси,ПараметрыДлякилента.ПарольПрокси);
  198. HTTP = Новый HTTPСоединение("ligin-tmb.nichost.ru",,,,Прокси,ТаймаутОжиданияОтСайта);
  199.  
  200. Иначе
  201. HTTP = Новый HTTPСоединение("ligin-tmb.nichost.ru",,,,,ТаймаутОжиданияОтСайта);
  202. КонецЕсли;
  203. HTTPЗапрос = Новый HTTPЗапрос("api/crtp.php");
  204. Отв=HTTP.Получить(HTTPЗапрос);
  205. Текст=Отв.ПолучитьТелоКакСтроку(КодировкаТекста.ANSI);
  206. ТекстовФ.УстановитьТекст(Текст);
  207. КонецПопытки;
  208. // ТекстовФ.НачатьЧтение(Новый ОписаниеОповещения("ПослеЧтения",ЭтаФорма,
  209. //Новый Структура("Текст,ИНН,ГлобалКод,НаимОрг,УдачноТожеВыводить,Добав",ТекстовФ,ИНН,ГлобалКод,НаимОрг,УдачноТожеВыводить,Добав)),ИмяВремен);
  210. Исключение
  211. Сообщить("На вашем компьютере нет доступа к ftp.ligin-tmb.nichost.ru");
  212. //ПослеЧтения(Новый Структура("Текст,ИНН,ГлобалКод,НаимОрг,УдачноТожеВыводить,Добав",ТекстовФ,ИНН,ГлобалКод,НаимОрг,УдачноТожеВыводить,Добав));
  213. КонецПопытки;
  214.  
  215. МассивЛ=Новый СписокЗначений;
  216. Для Сч=1 По ТекстовФ.КоличествоСтрок() Цикл
  217. //МассивЛ.Добавить(СокрЛП(ТекстовФ.ПолучитьСтроку(Сч)));
  218. ДДД=СокрЛП(ТекстовФ.ПолучитьСтроку(Сч));
  219. Если Найти(ДДД," ")>0 ТОгда
  220. МассивЛ.Добавить(Сред(ДДД,1,Найти(ДДД," ")-1),Сред(ДДД,Найти(ДДД," ")+1 ));
  221. Иначе
  222. МассивЛ.Добавить(ДДД,"");
  223.  
  224. КонецЕсли;
  225. КонецЦикла;
  226.  
  227. Лицензия="!НЕ ОБНАРУЖЕНА ЛИЦЕНЗИЯ. КУПИТЬ";
  228. Телефон="";
  229. Если ЗначениеЗаполнено(ИНН) Тогда
  230. РРР=МассивЛ.НайтиПоЗначению(ИНН+"+");
  231. Если РРР<>Неопределено Тогда
  232. Лицензия="Расширенная лицензия";
  233. Телефон=РРР.Представление;
  234. Иначе
  235. РРР=МассивЛ.НайтиПоЗначению(ИНН);
  236. Если МассивЛ.НайтиПоЗначению(ИНН)<>Неопределено Тогда
  237. Лицензия="Лицензия активна";
  238. Телефон=РРР.Представление;
  239.  
  240. КонецЕсли;
  241. КонецЕсли;
  242. КонецЕсли;
  243. //МассивЛ=Новый Массив;
  244. //Для Сч=1 По ТекстовФ.КоличествоСтрок() Цикл
  245. // //МассивЛ.Добавить(СокрЛП(ТекстовФ.ПолучитьСтроку(Сч)));
  246. // МассивЛ.Добавить(ТекстовФ.ПолучитьСтроку(Сч));
  247. //КонецЦикла;
  248. //
  249. //Лицензия="!НЕ ОБНАРУЖЕНА ЛИЦЕНЗИЯ. КУПИТЬ";
  250. //Если ЗначениеЗаполнено(ИНН) Тогда
  251. // Если МассивЛ.Найти(ИНН+"+")<>Неопределено Тогда
  252. // Лицензия="Расширенная лицензия";
  253. // КонецЕсли;
  254. // Если МассивЛ.Найти(ИНН)<>Неопределено Тогда
  255. // Лицензия="Лицензия активна";
  256. // КонецЕсли;
  257. //КонецЕсли;
  258. Если Лицензия="!НЕ ОБНАРУЖЕНА ЛИЦЕНЗИЯ. КУПИТЬ" Тогда
  259. //НачатьЗапускПриложения("https://алкогольные-декларации.рф/form_order/?id=33&inn="+ИНН);
  260. Попытка
  261. Если ЗначениеЗАполнено(ПараметрыДлякилента.АдресПрокси) Тогда
  262. Прокси=Новый ИнтернетПрокси;
  263. Прокси.Установить("http",ПараметрыДлякилента.АдресПрокси,ПараметрыДлякилента.ПортПрокси,ПараметрыДлякилента.ПользовательПрокси,ПараметрыДлякилента.ПарольПрокси);
  264. HTTP = Новый HTTPСоединение("xn----7sbbamhfc3aanfgcf0aob1c4h3dua.xn--p1ai",,,,Прокси,ТаймаутОжиданияОтСайта,Новый ЗащищенноеСоединениеopenSSL());
  265.  
  266. Иначе
  267. HTTP = Новый HTTPСоединение("xn----7sbbamhfc3aanfgcf0aob1c4h3dua.xn--p1ai",,,,,ТаймаутОжиданияОтСайта,Новый ЗащищенноеСоединениеopenSSL());
  268. КонецЕсли;
  269. HTTPЗапрос = Новый HTTPЗапрос("form_order/?id=33&inn="+ИНН);
  270. Отв=HTTP.Получить(HTTPЗапрос);
  271. Исключение
  272. КонецПопытки;
  273. КонецЕсли;
  274.  
  275. СпрОрг=СоздатьНайтиОрганизацияю(ГлобалКод,НАимОрг,ИНН,Лицензия);
  276.  
  277.  
  278. Добав.Лицензия=Лицензия;
  279. Добав.ТелефонТехПоддержки=Телефон;
  280.  
  281. Если УдачноТожеВыводить Тогда
  282.  
  283. ПоказатьПредупреждение(,"Успешное подключение");
  284. КонецЕслИ;
  285.  
  286. ИначеЕсли Выводить Тогда
  287.  
  288. ПоказатьПредупреждение(,"Не удалось подключиться!");
  289. КонецЕсли;
  290.  
  291.  
  292. иначе
  293. КонецЕсли;
  294. Элементы.Организации.Обновить();
  295. КонецПроцедуры
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!