Почему XMLHttp запрос возвращает статус Unknown?

@amaryllis · Регистрация: 01.10.2014

Студворк — интернет-сервис помощи студентам

Добрый день!
Такая ситуация: уже довольно долгое время ежедневно скачиваю с сайта санкт-петербургской биржи отчеты (списки индексов и бюллетени с итогами торгов). Все загружалось вполне успешно, а вчера внезапно совсем перестало работать (код прилагаю). Собственно, перестали загружаться файлы, когда я пытаюсь вбить адрес в браузер вручную, файл загружается мигом, а через функцию для скачивания не работает. Стопорится на месте

PureBasic
1
2
3
    
XMLHTTP.send
 If XMLHTTP.statustext = "OK" Then

, т.к. запрос возвращает статус Unknown. Собственно, вопрос, почему так стало происходить и как исправить проблему? Данные очень нужны.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' загрузка индексов
 
        Dim VladIndexes, StockIndexes, OTCIndexes, PathVladIndexes, PathStockIndexes, PathOTCIndexes, CurrentFilePath As String
 
       <...>
 
        ' файл с владимирскими индексами и путь для сохранения
        VladIndexes = "http://spimex.com/indexes/service_functions.php?request=csv&index=spi"
        PathVladIndexes = "<...>\indexes\VladIndexes.csv"
        
        ' файл с биржевыми индексами  и путь для сохранения
        StockIndexes = "http://spimex.com/indexes/service_functions.php?request=csv&index=eri"
        PathStockIndexes = "<...>\indexes\StockIndexes.csv"
        
        'файл с внебиржевыми индексами  и путь для сохранения
        OTCIndexes = "http://spimex.com/indexes/service_functions.php?request=csv&index=ori"
        PathOTCIndexes = "<...>\NNK_BaseAUX\indexes\OTCIndexes.csv"
          
        ' запуск функции скачивания файлов
        M_MAIN_FUNCTIONS.DownloadFile VladIndexes, PathVladIndexes
        M_MAIN_FUNCTIONS.DownloadFile StockIndexes, PathStockIndexes
        M_MAIN_FUNCTIONS.DownloadFile OTCIndexes, PathOTCIndexes
   
 <...>

PureBasic
1
2
3
4
5
6
7
8
9
' загрузка бюллетеней
 
' генерация имени файла бюллетеня на дату sDate
 FileNameDownload = "http://spimex.com/upload/reports/oil_xls/oil_xls_" & Format(sDate, "yyyy") & Format(sDate, "mm") & Format(sDate, "dd") & "162000.xls"
 
' путь для сохранения
FilePathSave = "<..>\Биржа\oil_xls_" & Format(sDate, "yyyy") & Format(sDate, "mm") & Format(sDate, "dd") & "162000.xls"
                
Call M_MAIN_FUNCTIONS.DownloadFile(FileNameDownload, FilePathSave)

Функцию, каюсь, подсмотрела у кого-то в сети.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function DownloadFile(ByVal URL$, ByVal LocalPath$) As Boolean
 
   Dim XMLHTTP, ADOStream
    On Error Resume Next: Kill LocalPath$
 
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(URL$, "\", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.statustext = "OK" Then
        Set ADOStream = CreateObject("ADODB.Stream")
        ADOStream.Type = 1: ADOStream.Open
        ADOStream.Write XMLHTTP.responseBody
 
        ADOStream.SaveToFile LocalPath$, 2
        ADOStream.Close: Set ADOStream = Nothing
        DownloadFile = True
    Else
 
   End If
    Set XMLHTTP = Nothing
End Function

@Kubuntovod · 24.06.2015, 22:37

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

@MinaAM · 28.06.2015, 19:24

Все не так просто - плюнуть в XMLHTTP сцылкой. Так все бы делали. Рекомендую взять нормальную качалку (IDM) и генерить для нее список.

@Kubuntovod · 29.06.2015, 08:33

Сообщение от MinaAM

Рекомендую взять нормальную качалку (IDM) и генерить для нее список.

Можно консолный wget заюзать. Будет дёшево и сердито

@MinaAM · 29.06.2015, 08:38

Ну, смысл, чтобы качалка работала с подсовываемыми ей списками.
Я wget руками не трогал, но то, что он консольный - есно удобнее прям из кода запускать.

@Kubuntovod · 29.06.2015, 10:31

Сообщение от MinaAM

Я wget руками не трогал, но то, что он консольный - есно удобнее прям из кода запускать.

Даже больше скажу, в поставленной задаче можно ексель не трогать, вообще. Батником всё решить. Ну и с батником рядом положить wget с причиндалами.

@MinaAM · 29.06.2015, 10:41

Kubuntovod, не, я, конечно, согласен, что батники - наше все :)

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

@Kubuntovod · 29.06.2015, 10:44

MinaAM, а мне представляется, что на этапе закачки гуй не нужен. Особливо, если вся эта затея привязывается к текущей дате. А потом можно и ексель запущать

@MinaAM · 29.06.2015, 10:59

Kubuntovod, на этапе закачки - есно, нет. А вот после - снова понадобится :) Что ж, так его и тыркать туда-сюда?

У меня примерно такя же беда в аксе реализована. Иногда не все документы нужны, некоторые нужны не на каждую предоставляемую дату, а, к примеру, отчет выходящий только по средам. Ну и пр..

У меня на XMLHTTP реализовано, но сикось-накось. А ты, случаем, не знаешь какой нибудь библиотеки для закачки, которую можно было бы под VBA использовать?
.

@Kubuntovod · 29.06.2015, 11:06

Сообщение от MinaAM

А ты, случаем, не знаешь какой нибудь библиотеки для закачки, которую можно было бы под VBA использовать?

Так wget, чем не библа? Генерим ему файло со ссылками и вперёд. Или требуется интерактив? Статус закачек и т.д.?

@MinaAM · 29.06.2015, 11:18

Kubuntovod,
У меня в закачке стоят достаточно объемные файлы - до сотен МБ. Я через XMLHTTP пытаюсь (когда ресурс позволяет это) по заголовкам сервера и датам создания выяснить - изменился ли файл и только тогда его качать. Ну и разные там прочию, только мне нужные плюшки. Но для меня - XMLHTTP - уж слишком низкого уровня интерфейс. Мне что-нибудь бы попроще...

А wget я посмотрю более внимательно. Снкс.
.

@Kubuntovod · 29.06.2015, 11:23

Сообщение от MinaAM

У меня в закачке стоят достаточно объемные файлы - до сотен МБ

Это wget-у не помеха. У него и докачка есть.

Сообщение от MinaAM

Я через XMLHTTP пытаюсь (когда ресурс позволяет это) по заголовкам сервера и датам создания выяснить - изменился ли файл и только тогда его качать.

"wget --spider ссылка" не будет качать, а выдаст только инфу про файло.

Есть ещё один, не менее замечательный, инструмент. Curl. Вроде, должен пыть под винду. Он, вообще, умеет выхватывать только нужный кусок из файла по ссылке. На тот случай, если инфы от wget-а не хватит.

@MinaAM · 29.06.2015, 12:52

Сообщение от Kubuntovod

Это wget-у не помеха. У него и докачка есть.

Меня не объем смущает, и не разрывы связи - их достаточно часто (20 мин) приходится полуподпольно мониторить - разработчик втихую модифицирует без анонсов. Напрягает скачивать, снимать хэш, сравнивать - надо комп выделять под эту задачу :)

Сообщение от Kubuntovod

"wget --spider ссылка" не будет качать, а выдаст только инфу про файло.

Отлично! Спасибо за подсказку. Попробую плюс поставить, если силы хватит :)

Сообщение от Kubuntovod

Есть ещё один, не менее замечательный, инструмент. Curl.

Я знаю. Порылся в нем - с разбегу не вскочить. Оставил до лучших времен.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,766
	24.06.2015, 22:37
	Попробуйте другую функцию. На форуме, в расширенном поиске вбейте фразу "скачать файл" и выберите раздел VBA. Там масса примеров. 0

@MinaAM 2 / 2 / 2 Регистрация: 27.06.2015 Сообщений: 38
	28.06.2015, 19:24
	Все не так просто - плюнуть в XMLHTTP сцылкой. Так все бы делали. Рекомендую взять нормальную качалку (IDM) и генерить для нее список. 0

@MinaAM 2 / 2 / 2 Регистрация: 27.06.2015 Сообщений: 38
	29.06.2015, 08:38
	Ну, смысл, чтобы качалка работала с подсовываемыми ей списками. Я wget руками не трогал, но то, что он консольный - есно удобнее прям из кода запускать. 0

@MinaAM 2 / 2 / 2 Регистрация: 27.06.2015 Сообщений: 38
	29.06.2015, 10:41
	Kubuntovod, не, я, конечно, согласен, что батники - наше все :) Только, примерно представляя идеологическое наполнение задачи, думаю, что лучше все таки иметь некий гуи (пусть Ексель), позволяющий естественным путем выбирать объекты для закачки. 0

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,766
	29.06.2015, 10:44
	MinaAM, а мне представляется, что на этапе закачки гуй не нужен. Особливо, если вся эта затея привязывается к текущей дате. А потом можно и ексель запущать 0

@MinaAM 2 / 2 / 2 Регистрация: 27.06.2015 Сообщений: 38
	29.06.2015, 10:59
	Kubuntovod, на этапе закачки - есно, нет. А вот после - снова понадобится :) Что ж, так его и тыркать туда-сюда? У меня примерно такя же беда в аксе реализована. Иногда не все документы нужны, некоторые нужны не на каждую предоставляемую дату, а, к примеру, отчет выходящий только по средам. Ну и пр.. У меня на XMLHTTP реализовано, но сикось-накось. А ты, случаем, не знаешь какой нибудь библиотеки для закачки, которую можно было бы под VBA использовать? . 0

@MinaAM 2 / 2 / 2 Регистрация: 27.06.2015 Сообщений: 38
	29.06.2015, 11:18
	Kubuntovod, У меня в закачке стоят достаточно объемные файлы - до сотен МБ. Я через XMLHTTP пытаюсь (когда ресурс позволяет это) по заголовкам сервера и датам создания выяснить - изменился ли файл и только тогда его качать. Ну и разные там прочию, только мне нужные плюшки. Но для меня - XMLHTTP - уж слишком низкого уровня интерфейс. Мне что-нибудь бы попроще... А wget я посмотрю более внимательно. Снкс. . 0