Почему 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.

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

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,767
	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,767
	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