HTTPのReferer情報について

解決

---

VB6.0 で、inetをつかってHTTP通信を行っています。

そのときに、HTTPのReferer情報を設定することは可能でしょうか？。
また、inet通信以外で無理なようでしたら、他の方法で可能でしょうか？。

どうか教えてください。

編集 削除

---

inetでなくWinInet(多分やってることは同じでしょうけど)の情報しか見当たりませんでしたけど…。
http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/
  上記サイトにリファラーを設定する方法が載ってます。
参考になればいいですけど。

編集 削除

---

Inet(インターネット トランスファ)コントロールの事であれば、
Executeメソッドの第4引数(InputHdrs)に、
   "Referer: http://www.google.co.jp" & vbCrLf
という文字列を指定してみてください。

他のヘッダ——例えばIf-Modified-Sinceヘッダなど——も
付加したい場合は、vbCrLfで区切って指定すればOKです。

Dim Hdrs As String
Hdrs = ""
Hdrs = Hdrs & "Referer: http://www.google.co.jp" & vbCrLf
Hdrs = Hdrs & "If-Modified-Since: Sun, 29 Sep 2002 06:57:30 GMT" & vbCrLf


なお、このヘッダ指定の方法は、Inetコントロール以外にも、
WebBrowserコントロールおよびInternetExplorerオブジェクトの
Navigateメソッド/Navigate2の第5引数(Headers)でも利用可能です。

# ちなみに、XMLHTTPオブジェクトやServerXMLHTTPオブジェクトの場合は、
# setRequestHeaderメソッドを使って、任意の要求ヘッダを指定できます。

編集 削除

---

たかみちえさん、魔界の仮面弁士さん、お返事ありがとうございました。

Executeメソッドの第4引数で対応できました。

ありがとうございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。