Count

HTTPHeaders オブジェクトにヘッダー エントリの数を戻します。

構文

HTTPHeadersObject.Count

内容:

• Count は長整数型 (読み取り) です

例

このスクリプトはヘッダーを印字します。

Function Main

Dim HTTPObj as Object

Dim headers as Object

ip = "www.gfi.com"

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

' headers.count には headers (long) の数が含まれる

echo "header count: " & CStr(headers.Count) & cr

upbound = headers.Count - 1

' 各ヘッダーについて、HeaderName と Header value をエコーバック

For hn=0 To upbound

echo headers.HeaderName(hn) & vbTab & "-->" & vbtab & headers.HeaderValue(hn) & cr

Next

End Function