VBScript: работа с протоколом HTTP

2009-03-10T09:32:19Z

Бесплатный 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: загрузка файлов из Интернет.

Серый форум — VBScript: работа с протоколом HTTP

VBScript: работа с протоколом HTTP