Показать сообщение отдельно
Старый 27.06.2008, 09:09   #2   
Пессимист
 
Аватар для dn2k4
 
Сообщений: 618
Регистрация: 22.07.2004

dn2k4 вне форума Не в сети
Да, реально, хоть в 1С хоть где - при помощи создания COM объекта "Microsoft.XMLHTTP" и дальнейшего разбора полученного текста странички.

на vbs будет примерно так, не проверял =)

Цитата:
set oHttp = CreateObject("Microsoft.XMLHTTP")
oHttp.Open("GET", Урл, 0, Пользователь, Пароль)
oHttp.Send()

retCode = oHttp.status
if retCode = 200 then

oHttp.responseText содержит html код страницы

else

ошибка с кодом в retCode: 404 - not found и тыпы

end if
Пользователь и пароль - это если целевой сайт требует авторизации.
Да, и чтобы исключить влияние кривых проксей между вами и сервером, рекомендую перед Send() вставить установку заголовков - что-то типа:

Цитата:
oHttp.setRequestHeader("Pragma", "no-cache")
oHttp.setRequestHeader("Cache-Control", "max-age=10")
oHttp.setRequestHeader("Cache-Control", "must-revalidate")
oHttp.setRequestHeader("Cache-Control", "no-cache")
oHttp.setRequestHeader("Cache-Control", "no-store")
На 1С сами перекладывайте... =)
  Ответить с цитированием