<![CDATA[Серый форум — VBScript: работа с протоколом HTTP]]> https://forum.script-coding.com/viewtopic.php?id=2899 Tue, 10 Mar 2009 09:32:19 +0000 PunBB <![CDATA[VBScript: работа с протоколом HTTP]]> https://forum.script-coding.com/viewtopic.php?pid=20428#p20428 Бесплатный COM-сервер HTTP Component предназначен для работы с протоколом HTTP. Компонент можно скачать здесь, ссылка на скачивание высылается на e-mail. Размер дистрибутива (архив) — порядка 140 Кб. Простейшее понятие о протоколе HTTP вы можете получить из этой статьи (раздел "Протокол HTTP" ближе к концу), там же вы найдёте описание отдельных значений кодов ответа HTTP-сервера и некоторых HTTP-заголовков. Компонент позволяет использовать методы GET и POST, устанавливать и считывать HTTP-заголовки, учитывать перенаправления (редиректы) и другое.

Проверка доступности сайта:

Set oHTTP = CreateObject("XStandard.HTTP")
' добавление HTTP-заголовка:
oHTTP.AddRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"
oHTTP.Get "http://script-coding.com" ' открытие URL
If oHTTP.ResponseCode = 200 Then ' анализ ответа сервера
    WScript.Echo "Сайт доступен!"
Else
    WScript.Echo "Сайт не доступен!"
End If

Закачка файла по HTTP:

Set oHTTP = CreateObject("XStandard.HTTP")
oHTTP.Get "http://www.script-coding.com/wsh_chm.zip"
oHTTP.SaveResponseToFile "C:\Temp\wsh_chm.zip"

См. также VBScript: заполнение Web-форм и VBScript: загрузка файлов из Интернет.

]]> Tue, 10 Mar 2009 09:32:19 +0000 https://forum.script-coding.com/viewtopic.php?pid=20428#p20428