Ｐａｇｅ 71 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼リファラーを変えたいんですが つきお 03/8/4(月) 9:10 ┣Re:リファラーを変えたいんですが YAma 03/8/4(月) 10:46 ┃ ┗Re:リファラーを変えたいんですが つきお 03/8/4(月) 12:50 ┗Re:リファラーを変えたいんですが さるまた 03/8/5(火) 15:41 ┗Re:リファラーを変えたいんですが YAma 03/8/6(水) 19:56 ┗Re:リファラーを変えたいんですが さるまた 03/8/7(木) 13:22 ┣Re:リファラーを変えたいんですが さるまた 03/8/7(木) 13:32 ┣Re:リファラーを変えたいんですが YAma 03/8/7(木) 21:53 ┗Re:リファラーを変えたいんですが 通行人R 03/8/10(日) 15:24 ┗Re:リファラーを変えたいんですが つきお 03/8/19(火) 14:46 ─────────────────────────────────────── ■題名 ： リファラーを変えたいんですが ■名前 ： つきお <himitsu@yahoo.co.jp> ■日付 ： 03/8/4(月) 9:10 -------------------------------------------------------------------------
| リファラを任意で変更したいのですが、何かいい方法ってありますか? 果たしてこの掲示板で聞いていいものかと思ったのですが・・ |
| ▼つきおさん： >リファラを任意で変更したいのですが、何かいい方法ってありますか? >果たしてこの掲示板で聞いていいものかと思ったのですが・・ BugBrowserではリファラの変更機能はありません。 外部ツールを使用するしかないのではないでしょうか？ |
| ▼YAmaさん： >▼つきおさん： >>リファラを任意で変更したいのですが、何かいい方法ってありますか? >>果たしてこの掲示板で聞いていいものかと思ったのですが・・ > >BugBrowserではリファラの変更機能はありません。 >外部ツールを使用するしかないのではないでしょうか？ ・・やはりそうですか 御返事どうもありがとうございました。 |
| ▼つきおさん： >リファラを任意で変更したいのですが、何かいい方法ってありますか? >果たしてこの掲示板で聞いていいものかと思ったのですが・・ 内容間違っていたらごめんなさい。→と先に誤っておきます(笑) スクリプトで変更させる場合ですが、 取得したWebBrowserオブジェクトのNavigate2メソッドに引数として 情報を渡せたように記憶しています。 もしかしたらこれで解決可能かもしれません。 ま、最終手段としてリファラとして設定したいページのDocumentツリーに 直接リンクをうめこむ方法もありますが（ぉ |
| ▼さるまたさん： >スクリプトで変更させる場合ですが、 >取得したWebBrowserオブジェクトのNavigate2メソッドに引数として >情報を渡せたように記憶しています。 >もしかしたらこれで解決可能かもしれません。 テストで作ってみましたが、うまくいきません。 HTTPヘッダが間違っているか、Navigate2メソッドの使い方が間違っているのか・・・ 一応、以下のようにしてみました。 検索部分にURLを書いて実行すればアクティブタブでそのURLに飛びます。 'Refere変更テスト ' Dim BugWeb Dim DocView Dim CtrlIF Dim HTMLHeader Dim URL Set BugWeb = CreateObject("BugWeb.BugBrowserAPI") Set DocView = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView) HTMLHeader = "Content-Type: application/x-www-form-urlencoded" & vbCRLF & _ "Referer: http://www.aho.aho/aho.html" & vbCRLF URL = BugWeb.SearchKeywordString Call DocView.ControlInterface.Navigate2(URL,,,,HTMLHeader) |
| >テストで作ってみましたが、うまくいきません。 >HTTPヘッダが間違っているか、Navigate2メソッドの使い方が間違っているのか・・・ 作ってみました。 動きましたので貼っておきます。 headers = "" headers = headers & "Referer: http://www.hogehoge.co.jp" & vbCrLf headers = headers & "TestHeader: テストメッセージ" & vbCrLf window.navigate2 "http://www.taruo.net/e/?", nothing, nothing, nothing, headers 【注意】 手元にBugの動作環境がなかったので、 動作確認はBugでなくn●rで行ってます (滝汗 たぶん環境依存はしないと思いますが、ご了承ください。 |
| > window.navigate2 "http://www.taruo.net/e/?", nothing, nothing, nothing, headers 説明付け忘れました。 上記コードの window オブジェクトは WebBrowser Object の IDispatch です。 それを使って Navigate2 メソッドを呼び出します。 Syntax object.Navigate2( _ URL As Variant, _ [Flags As Variant,] _ [TargetFrameName As Variant,] _ [PostData As Variant,] _ [Headers As Variant]) 第一引数にURLを渡し、 今回必要のない２〜４引数に無参照を渡しています。 最後にHeader情報を渡せばいけると思います。 |
| ▼さるまたさん： >>テストで作ってみましたが、うまくいきません。 >>HTTPヘッダが間違っているか、Navigate2メソッドの使い方が間違っているのか・・・ > >作ってみました。 >動きましたので貼っておきます。 診断くんで見たら俺が作った物でもReferer変わってました。 が、自前HPのアクセス解析で見ると変わってない(ブックマークダイレクトになってた)んですよねぇ |
| Hiroshi Munakataさんが以前投稿された、 画像リンクをすべて開くスクリプトと組み合わせてみました。 アクティブドキュメントのURLをReferrerとして、 ドキュメント内のjpgかjpegファイルへのリンクを全て開きます。 使い道は・・・ご想像のままに。 |
| 久しぶりに来てみたら・・・ 皆さん有難う御座います m(__)m |