Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Roman Kulibka
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Парсинг курсов P2P Binance
 
#
04.07.2022 18:13:40
Цитата
написал:
Roman Kulibka,  где адекватная реакиця на замечание?
да я тут новичок, видимо, еще не научился цитировать.
 
Перейти    
Парсинг курсов P2P Binance
 
#
03.07.2022 14:11:54
Цитата
написал:
Скорее всего проблемма связана с веб-движком IE, который binance не стал поддерживать. В сети есть инструкция как поменять "Смена браузера в Power BI" я сам не пробовал
Попробовал Сменить браузер как сказано тут http://directprobi.ru/blogs/smena-brauzera-v-power-bi/
Изменений нет, код также не работает :-(  
 
Перейти    
Парсинг курсов P2P Binance
 
#
03.07.2022 12:10:36
Цитата
написал:
Roman Kulibka,
win 10 x64 корпоративный
MS Office 16 с торрента, с этими библиотеками:
 Visual Basic For Applications
 Microsoft Excel 16.0 Object Library
 OLE Automation
 Microsoft Office 16.0 Object Library
 Microsoft Forms 2.0 Object Library
 Ref Edit Control
 Microsoft Scripting Runtime
 Microsoft Word 16.0 Object Library
 Microsoft Windows Common Controls 6.0 (SP6)
 Microsoft ActiveX Data Objects 6.1 Library
 Microsoft ActiveX Data Objects Recordset 6.0 Library
 Microsoft HTML Object Library
 Microsoft Internet Controls
 Microsoft Shell Controls And Automation
 Microsoft XML, v6.0
Да, я же писал, что у знакомого работает этот код на win 10,
у меня на 8.1 тоже работал до 29.06.22, хочется, чтобы он и дальше на 8-ой винде работал...
 
Перейти    
Парсинг курсов P2P Binance
 
#
03.07.2022 08:12:35
а у тебя какой windows и какой офис?
 
Перейти    
Парсинг курсов P2P Binance
 
#
02.07.2022 18:04:25
Цитата
написал:
Sub Parser_USD()Dim OBJHTTP As ObjectDim Url$, Str$Set OBJHTTP = CreateObject("MSXML2.XMLHTTP")Url = " https://p2p.binance.com/bapi/c2c/v2/friendly/c2c/adv/search "With OBJHTTP    .Open "POST", Url, False    .setRequestHeader "Accept", "*/*"    .setRequestHeader "Content-type", "application/json"    .setRequestHeader "Origin", " https://p2p.binance.com "    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36"    .send "{""page"":1,""rows"":10,""payTypes"":[],""asset"":""USDT"",""tradeType"":""BUY"",""fiat"":""USD"",""publisherType"":""merchant"",""merchantCheck"":true}"    Str = .ResponseTextEnd WithSet OBJHTTP = NothingEnd Sub
Помогите разобраться, почему этот код перестал работать на Windows 8.1 , пробовал на Office 2007 и Office 2019, на .send стала вылетать ошибка  "Не удается найти указанный ресурс". Если заменить MSXML2.XMLHTTP  на  WinHttp.WinHTTPRequest.5.1, то выскакивает "Ошибка поддержки безопасных каналов".
Код отлично работал и перестал работать  вечером 29.06.22, обновления Windows отключены. Пробовал отключать брандмауэр и антивирус - результат не изменился.
Поставил на другую машину, на чистый диск Windows 8.1 и Office 2019, все равно выскакивает ошибка.

У знакомого на Windows 10 код работает. Можно ли код заставить снова работать на Windows 8.1 ?
 
Перейти    
Парсинг курсов P2P Binance
 
#
01.07.2022 21:07:47
Цитата
написал:
Roman Kulibka, наверное поменяли адрес сервера, к которому обращается веб-страница. Открывайте инструменты разработчика и проверяйте куда теперь отправляет запросы сайт для получения нужных вам таблиц
Не, у знакомого этот же код работает отлично. У меня тоже работало и вдруг перестало... :-(  
 
Перейти    
Парсинг курсов P2P Binance
 
#
30.06.2022 07:25:52
Цитата
написал:
на USD
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16      Sub   Parser_USD()    Dim   OBJHTTP   As   Object    Dim   Url$, Str$    Set   OBJHTTP = CreateObject(  "MSXML2.XMLHTTP"  )    Url =   " https://p2p.binance.com/bapi/c2c/v2/friendly/c2c/adv/search "    With   OBJHTTP          .Open   "POST"  , Url,   False          .setRequestHeader   "Accept"  ,   "*/*"          .setRequestHeader   "Content-type"  ,   "application/json"          .setRequestHeader   "Origin"  ,   " https://p2p.binance.com "          .setRequestHeader   "User-Agent"  ,   "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36"          .send   "{"  "page"  ":1,"  "rows"  ":10,"  "payTypes"  ":[],"  "asset"  ":"  "USDT"  ","  "tradeType"  ":"  "BUY"  ","  "fiat"  ":"  "USD"  ","  "publisherType"  ":"  "merchant"  ","  "merchantCheck"  ":true}"          Str = .ResponseText    End   With    Set   OBJHTTP =   Nothing    End   Sub  
 
Спасибо за код! Самое интересное, что он работал до вчерашнего дня, а со вчера стала выскакивать ошибка Run-time error '-2146697211 (800c0005)': Не удается найти указанный ресурс
Почему перестал код работать, что случилось?  
 
Перейти    
Страницы: 1
Наверх