Отключить кеширование обращений к HTML

[Smirnoff1812]

Здравствуйте! Может быть, сможете помочь.

Столкнулся с проблемой. При парсинге данных из интернета при частых запросах (например, раз в секунду) данные перестают обновляться. Лечится закрыванием и открыванием окна.

Получается, что запросы кешируются, и как часто не делай запрос, данные будут приходить не с сайта, а из кеша. Я прочитал, что если добавить к запросу произвольный параметр через "?", то запрос будет восприниматься, как новый. Но без толку, всё равно кеш мешает.

Поэтому вопрос: как можно отключить кеш в VBA? Если знаете ответ, то подскажите, пожалуйста, простым языком, я очень далёк от программирования и с трудом пробираюсь через эти дебри.

Вот код и во вложении файл (нужно переименовать в xlsm).

___________________________________ _______
Dim s As String
Dim ss As String
Dim URL As String

Function GetHTTPResponse(ByVal sURL As String) As String
On Error Resume Next
Set oXMLHTTP = CreateObject("WinHttp.WinHttpReques t.5.1")
With oXMLHTTP
.Open "GET", sURL, False
.send
GetHTTPResponse = .responseText
End With
Set oXMLHTTP = Nothing
End Function

Sub Кнопка1_Щелчок()

Let Rqst = Int((100 * Rnd) + 1)

Let URL = "https://apicase.ru/btcusdt/txt" & "?ran=" & Right(Str(Rqst), Len(Str(Rqst)) - 1)

Let s = GetHTTPResponse(URL)

Cells(4, 15) = URL
Cells(4, 13) = s

End Sub

[EducatedFool]

чтобы этого избежать, первой строкой в функции GetHTTPResponse нужно сбрасывать кеш для этого URL
вызовом WinAPI функции

DeleteUrlCacheEntry URL

и в самое начало кода добавить определение функции

   Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

PS: вообще-то кешируются только запросы, выполненные средствами CreateObject("MSXML2.XMLHTTP")
При использовании компонента WinHttpRequest.5.1 кеширования быть не должно (ибо тут используется другой стек протоколов)

[Smirnoff1812]

Большое спасибо, что откликнулись.

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

Вот, например, в этом источнике курс меняется несколько раз в секунду, цифры прямо мельтешат:

https://apicase.ru/kurs_bitkoina?ran=71

Но если я скачиваю HTML код в переменную, выделяю в этой переменной участок текста с курсом, то он по идее должен тоже меняться при каждом запросе, а по факту цифры одни и те же. Могут раз в 20-30 секунд обновиться.

[EducatedFool]

Курс на странице, которую вы скачиваете, меняется примерно раз в минуту (и его получить не проблема, всё как вы делаете)
А то что вы видите в браузере, выводится совсем другой технологией (тут нужен совсем другой механизм - WebSocket, устанавливать соединение с wss://stream.binance.com:9443/ws/btcfdusd@bookTicker, оттуда непрерывным потоком данные идут с меняющимся курсом)

[Smirnoff1812]

Огромное спасибо!