HTTPのReferer情報について (ID:107854)

名前

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

本文 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メソッドを使って、任意の要求ヘッダを指定できます。