Set Date German

Local objIE As Object, o As MSHTML.HTMLDocument, zapros As String, IsSuccesful As Boolean
Sys( 1104 )

objIE = Createobject("InternetExplorer.Application")
objIE.Silent = .T.

dtSt = Datetime()

* Подготавливаем сам запрос
objIE.Navigate2("www.sql.ru") && Вместо sql.ru подставляй урли из твоего списка

Wait "Ожидаем ответ от веб-сервиса" Window Nowait
* Ожидаем ответа от веб-сервиса или окончания таймаута ожидания
IsSuccesful = .T.
Do While objIE.Busy And IsSuccesful
 DoEvents Force
* Проверяем, если запрос длится больше минуты, прерываем его и сообщаем об ошибке
 If Minute(Datetime()) - Minute(dtSt) >  1  Then
  IsSuccesful = .F.
 Endif
Enddo
DoEvents Force
If !IsSuccesful Then
 zapros = "-1"
 Messagebox("Сервис банка не отвечает длительное время. Данные не получены." + Chr( 13 )+Chr( 10 ) + ;
  "Попробуйте повторить операцию позднее",  0 + 48 + 4096 , "Получение информации из банка",  5000 )
Else
 zapros = objIE.Document.body.innertext
Endif
* Чистим за собой
objIE.Stop
objIE.Quit
Release objIE
objIE = Null
Wait Clear
* Возвращаем результат
Return zapros