HeaderValue

HeaderValue は HTTPHeaders オブジェクトからヘッダー値を取得します。

構文

HeaderValue (VARIANT index)

内容:

• Index は文字列または長整数型値です
• 文字列値は、ヘッダー名 (例: Server) を提供されたときに値を取得する場合に使用されます。 HeaderValue はインデックスを提供されたときも取得できます。 このインデックスの有効な範囲は 0 からヘッダーの数までです。

戻り値

ヘッダー値を含む文字列。

例

このスクリプトは HTTP サーバーの名前を印刷します。

Function Main

Dim HTTPObj as Object

Dim headers as Object

ip = "www.gfi.org"

port = 80

cr = Chr(13) + Chr(10)

Set HTTPobj = HTTP.Connect (ip,port)

' リクエスト タイプを設定

HTTPobj.GetURL("/")

HTTPobj.verb = "HEAD"

' HEAD リクエストを送信

HTTPResponse = HTTPobj.SendRequest ()

' headers という新規オブジェクトを設定

Set headers = HTTPobj.ResponseHeaders

'HTTPResponse はリターン コードを含む

echo "Result: " + cstr(HTTPResponse) + cr

echo "Server running on " + ip + " is " + headers.HeaderValue("server") + cr

End Function