m.t = DATETIME()
   Do While !m.oXMLHTTP.readyState=4  && 0/1/2/3/4 - до Open / после .Open / отправлен (Запрос был передан) / Ответ сервера принят частично / Complete-соединение закрыто  (используется только 4...)
      * Это даст возможность отработать фокс-кодам в кнопках Click и других методах, когда выполняются обороты цикла
      * Без этой команды - не будут отрабатываться
      DOEVENTS  && [FORCE] - Обеспечивает остановку выполнения программного кода Visual FoxPro пока выполняется системное событие Windows, например такое как перемещение указателя мышки.
      
      =sleep(100)  && не будем частить с опросом, дадим потоку, в котором крутится фокс, поделать что-то своё
      IF DATETIME()-m.t>ТаймаутСек  && по достижении таймаута - сбросим
         EXIT
      ENDIF
   ENDDO

* Проверяем статус ответа (в текстовом виде):
* Можно также проверять .Status: 200 - OK, или 404 - Not Found, 304 - Not Modified, 301 - страница перемещена, и др
* Запросы по протоколам FTP, FILE:/// не возвращают статус, надо ждать .status=0
m.r = (m.oXMLHTTP.readyState=4 .AND.;      && Complete
       INLIST(m.oXMLHTTP.status,200,400))  && или statustext="OK", или "Запрос не понят" (400 возвратили мне, когда паспорт указал в неверном формате...)
       * Наблюдал также .status=12031 - пишут, что такой код возвращает Аякс (AJAX), когда JavaScript недонастроен на нашем компе...
       *  5:12002     ERROR_INTERNET_TIMEOUT
       *  6:12007     ERROR_INTERNET_NAME_NOT_RESOLVED
       *  7:12029     ERROR_INTERNET_CANNOT_CONNECT
       *  8:12030     ERROR_INTERNET_CONNECTION_ABORTED
       *  9:12031     ERROR_INTERNET_CONNECTION_RESET
       * 10:12152     ERROR_HTTP_INVALID_SERVER_RESPONSE

scan 

 XMLHTTP = CREATEOBJECT("Msxml2.XMLHTTP") 

 XMLHTTP.Open("GET","https://"..., .T.) 
 XMLHTTP.send  && послали

 m.t = DATETIME()  && ожидаем с этого времени T, 20 сек
 Do While !XMLHTTP.readyState=4  && 0/1/2/3/4 - до Open / после .Open / отправлен (Запрос был передан) / Ответ сервера принят частично / Complete-соединение закрыто  (используется только 4...)  
     IF DATETIME()-m.t>20  && по достижении таймаута - сбросим  
        EXIT  
     ENDIF  
 ENDDO  

 * дождались ответа, или таймаута
 if XMLHTTP.readyState=4 .AND. INLIST(XMLHTTP.status,200,400) .AND. XMLHTTP.statustext = "OK" 
    ADOStream = CreateObject("ADODB.Stream") 
    ADOStream.type = 1 
    ADOStream.Open 
    ADOStream.Write(XMLHTTP.responseBody) 
    ADOStream.SaveToFile(LCLOCALFILE, 2) 
    ADOStream.Close 
    ADOStream = NULL 
 else 
    ? 'Не удалось загрузить файл с сайта !' 
    ? XMLHTTP.statustext 
 endif 

 XMLHTTP = NULL 
 dele file (LCLOCALFILE) 

 endscan