Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: http-запрос.  (Прочитано 18282 раз)
0 Пользователей и 6 Гостей смотрят эту тему.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« : 08-12-2010 18:04 » 

Хотел спросить
'Код состояния HTTP WWW страницы
'подключаем библиотеку Microsoft XML, v6.0
Страница = "http://www.rambler.ru/"
Dim obj As MSXML2.ServerXMLHTTP
Set obj = New MSXML2.ServerXMLHTTP
obj.Open "GET", Страница
obj.Send
Код_состояния_HTTP_WWW_страницы = obj.Status
Текст_кода_состояния_HTTP_WWW_страницы = obj.StatusText
Как закомментировать строки
obj.Open "GET", Страница
obj.Send
Что можно "выжать" с переменных
Код_состояния_HTTP_WWW_страницы
Текст_кода_состояния_HTTP_WWW_страницы
Заранее спасибо!!
Записан
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 08-12-2010 18:09 » 

Так в чем вопрос то?
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #2 : 08-12-2010 18:20 » 

Как закомментировать строки
obj.Open "GET", Страница
obj.Send
Что можно "выжать" с переменных
Код_состояния_HTTP_WWW_страницы
Текст_кода_состояния_HTTP_WWW_страницы
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 08-12-2010 18:22 » 

а зачем "закомментировать"
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #4 : 08-12-2010 18:26 » 

закомментировать, чтобы мне было понятно, при прохождении этих строк что они делают, ОК?
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 08-12-2010 18:31 » 


Что можно "выжать" с переменных
Код_состояния_HTTP_WWW_страницы
Текст_кода_состояния_HTTP_WWW_страницы
Заранее спасибо!!
Код_состояния_HTTP_WWW_страницы
Текст_кода_состояния_HTTP_WWW_страницы

Какой вопрос -такой ответ.

почитай про ответы http сервера.
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #6 : 08-12-2010 18:43 » 

нашёл часть из того, что мне надо
200 OK Запрос клиента обработан успешно, и ответ сервера содержит затребованные данные
Записан
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #7 : 08-12-2010 18:45 » new

Ципихович Эндрю, попробуй писать так, чтобы тебя можно было понять.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #8 : 08-12-2010 18:58 » 

что означают строки
obj.Open "GET", Страница
obj.Send
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #9 : 08-12-2010 19:00 » 

что означают строки
obj.Open "GET", Страница
obj.Send

уУУУУУУ!!!

http://ru.wikipedia.org/wiki/HTTP
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #10 : 09-12-2010 02:49 » 

Спасибо
Я хотел развить свой вопрос

'Код состояния HTTP WWW страницы
'подключаем библиотеку Microsoft XML, v6.0
Страница = "http://www.rambler.ru/"
Dim obj As MSXML2.ServerXMLHTTP
Set obj = New MSXML2.ServerXMLHTTP 'создаём объект с именем ...
obj.Open "GET", Страница 'куда и как посылать запрос
obj.send 'команда отправлять запрос
Код_состояния_HTTP_WWW_страницы = obj.Status '2xx Success - Успешно

Ну получил я в переменную Код_состояния_HTTP_WWW_страницы = 200 ОК
И что мне это даёт???, что где то там далеко есть такая страница???
То есть если бы было
Страница = "Страница" то я бы не получил Код_состояния_HTTP_WWW_страницы = 200 ОК
И что мне это даёт???
В то же время я читал, что
XMLHTTP.readyState <> 4
предпочтительней
IE.readyState <> 4
Так я вот не пойму как тогда писать скрипт

Dim Страница As String
Страница = "http://mail.ru/"
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate (Страница)
Do While XMLHTTP.readyState <> 4
DoEvents
Loop
IE.Visible = True
Так что надо ещё добавить, чтобы на строке
Do While XMLHTTP.readyState <> 4
Не было ошибки?Не понял?
Подскажите пожалуйста
Записан
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #11 : 09-12-2010 04:38 » 

Ципихович Эндрю, эту кашу расцениваю как неуважение к нам. Соответственно, отвечать желания нет.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #12 : 09-12-2010 15:59 » 

про кашу согласен, не пойму как скрипт выделить?Не понял?
Записан
Dimka
Деятель
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #13 : 09-12-2010 16:53 » 

По-моему налицо попытка использования COM-объекта Microsoft.XMLHTTP (т.е. известный по браузерам XMLHttpRequest).

У данного объекта есть свойство readyState (при готовом ответе принимающее значение 4) и свойство status (при нормальном ответе сервера имеющее код 200). По этому условию можно завершать цикл и из свойства responseText извлекать ответ сервера. Тем не менее внутри цикла советую поставить небольшой sleep (например, на 10 мс) и считать количество итераций, чтобы добавить дополнительное условие выхода из цикла по таймауту (например, 1 мин.) - иначе есть риск зависания.
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #14 : 09-12-2010 17:10 » 

Dimka, в некоторых случаях код будет 0. Не помню точно ситуацию, но явно видно, что это не код HTTP-ответа.
И использовать лучше MSXML2.ServerXMLHTTP60.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #15 : 09-12-2010 18:00 » 

Dimka, в некоторых случаях код будет 0. Не помню точно ситуацию, но явно видно, что это не код HTTP-ответа.
И использовать лучше MSXML2.ServerXMLHTTP60.

Есть пример скрипта?
Записан
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #16 : 09-12-2010 18:22 » 

Ципихович Эндрю, в теме, в которую ты в начале написал - полно примеров.

Вот еще: http://svn.shelek.su/public/XML-RPC/VB6-client/trunk/CXMLRPCRequest.cls
См. в конце файла функцию doCall.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines