WebBrowserでの表示について (ID:142576)

名前

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

本文 > それは様、試してみたのですがうまく取得できなかったです。 まずは、状況を確認・整理してみてください。 現在の状況は、VB から Referer が送信されていないのでしょうか? それとも Referer は送信されているのに、サーバー側で 受け取れない状態なのでしょうか? 少なくとも、当方で Private Sub Form_Load() Dim URL As String URL = "http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200909/09090020.txt" Dim Flags As Variant Flags = 0 Dim Headers As String Headers = "Referer: http://www.google.co.jp/" & vbCrLf WebBrowser1.Navigate URL, Flags, , , Headers End Sub というコードを書いてみた場合、送出された HTTP リクエストは > GET /MADIA/VBBBS2/wwwlng.cgi?print+200909/09090020.txt HTTP/1.1 > Accept: */* > Referer: http://www.google.co.jp/ > Accept-Language: ja > Accept-Encoding: gzip, deflate > 以下略 のように、Referer ヘッダを含んだものが送出されましたよ。