INETでヘッダーを読み取るようにするには？

解決

TRS 2004-02-05 21:54:52 No: 81850 IP: [192.*.*.*]

VB5でインターネットトランスファーを使って（違う方法でも良い）ヘッダーを読み取る方法は無いでしょうか？
Inet1.Execute , "HEAD"だけではうまくいきません。
GET、POSTはうまくいっているという前提です。
同じ方法では無理なのでしょうか。

編集削除

魔界の仮面弁士 2004-02-05 22:29:56 No: 81851 IP: [192.*.*.*]

> VB5でインターネットトランスファーを使って（違う方法でも良い）ヘッダーを読み取る方法は無いでしょうか？

Executeメソッドで行うなら、

  Private Sub Form_Load()
      Inet1.Execute "http://www.microsoft.com/", "HEAD"
  End Sub
  Private Sub Inet1_StateChanged(ByVal State As Integer)
    If State = StateConstants.icResponseCompleted Then
      Debug.Print Inet1.GetHeader()
    End If
  End Sub

とか。

あるいは非同期で、
  Inet1.URL = "http://www.microsoft.com/"
  Inet1.OpenURL
  Debug.Print Inet1.GetHeader()
とか。

別のコンポーネントを使うなら、たとえば、
  With CreateObject("Microsoft.XMLHTTP")
    .Open "HEAD", "http://www.microsoft.com/", False
    .Send
    Debug.Print .getAllResponseHeaders()
  End With
とか。

編集削除

TRS 2004-02-06 15:27:00 No: 81852 IP: [192.*.*.*]

Inet1.GetHeader()
のところ

Inet1.GetChunk
のままにしてました。

修正すると問題なく読み取れましたありがとうございました。

編集削除