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

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

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

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

PureBasic

1
2
3

    
XMLHTTP.send
 If XMLHTTP.statustext = "OK" Then

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

PureBasic

' загрузка индексов
 
        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

' загрузка бюллетеней
 
' генерация имени файла бюллетеня на дату 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

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.

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

@MinaAM 2 / 2 / 2 Регистрация: 27.06.2015 Сообщений: 38
	29.06.2015, 12:52	13
	Сообщение от Kubuntovod Это wget-у не помеха. У него и докачка есть. Меня не объем смущает, и не разрывы связи - их достаточно часто (20 мин) приходится полуподпольно мониторить - разработчик втихую модифицирует без анонсов. Напрягает скачивать, снимать хэш, сравнивать - надо комп выделять под эту задачу :) Сообщение от Kubuntovod "wget --spider ссылка" не будет качать, а выдаст только инфу про файло. Отлично! Спасибо за подсказку. Попробую плюс поставить, если силы хватит :) Сообщение от Kubuntovod Есть ещё один, не менее замечательный, инструмент. Curl. Я знаю. Порылся в нем - с разбегу не вскочить. Оставил до лучших времен. 0

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

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

@Kubuntovod 3220 / 887 / 195 Регистрация: 14.01.2013 Сообщений: 4,362
	29.06.2015, 08:33	4
	Сообщение от MinaAM Рекомендую взять нормальную качалку (IDM) и генерить для нее список. Можно консолный wget заюзать. Будет дёшево и сердито 0

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

@Kubuntovod 3220 / 887 / 195 Регистрация: 14.01.2013 Сообщений: 4,362
	29.06.2015, 10:31	6
	Сообщение от MinaAM Я wget руками не трогал, но то, что он консольный - есно удобнее прям из кода запускать. Даже больше скажу, в поставленной задаче можно ексель не трогать, вообще. Батником всё решить. Ну и с батником рядом положить wget с причиндалами. 0

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

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

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

@Kubuntovod 3220 / 887 / 195 Регистрация: 14.01.2013 Сообщений: 4,362
	29.06.2015, 11:06	10
	Сообщение от MinaAM А ты, случаем, не знаешь какой нибудь библиотеки для закачки, которую можно было бы под VBA использовать? Так wget, чем не библа? Генерим ему файло со ссылками и вперёд. Или требуется интерактив? Статус закачек и т.д.? 0

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

@Kubuntovod 3220 / 887 / 195 Регистрация: 14.01.2013 Сообщений: 4,362
	29.06.2015, 11:23	12
	Сообщение от MinaAM У меня в закачке стоят достаточно объемные файлы - до сотен МБ Это wget-у не помеха. У него и докачка есть. Сообщение от MinaAM Я через XMLHTTP пытаюсь (когда ресурс позволяет это) по заголовкам сервера и датам создания выяснить - изменился ли файл и только тогда его качать. "wget --spider ссылка" не будет качать, а выдаст только инфу про файло. Есть ещё один, не менее замечательный, инструмент. Curl. Вроде, должен пыть под винду. Он, вообще, умеет выхватывать только нужный кусок из файла по ссылке. На тот случай, если инфы от wget-а не хватит. 1