ベストアンサー

プロクシーを経由してwebbrowserに表示させるには？

2005/08/17 02:05

■VBのバージョン : VB.NET2003 お世話になります。プロクシーの使い方がよくわかりません。 helpでproxyといれて検索してみたのですが webBrowserを使ったサンプルがなく困っています。このヤフーのページを表示させるまえにプロクシーを経由して表示させるにはどのようにすればよいでしょうか？ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxWebBrowser1.Navigate2("http://www.yahoo.co.jp") End Sub

googole
お礼率36% (19/52)

Visual Basic
回答数9
ありがとう数2

みんなの回答 （9）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

1050 円（@1050YEN）
ベストアンサー率69% (477/687)

2005/08/18 01:14 回答No.9

http://www.sfdata.jp/ML/menu.php?ml=VB-ML ここですよ^^ フリーのメルアドでは、登録できないのであしからずです。

質問者

お礼 2005/08/18 05:33

重ね重ねご丁寧にありがとうございます。早速登録させていただきました。

その他の回答 (8)

1050 円（@1050YEN）
ベストアンサー率69% (477/687)

2005/08/17 13:57 回答No.8

今、開発環境のある場所にやってきて、「さてやろう」と思って、とりあえず、私が登録しているメーリングリストを見てみました。すると、同様の履歴がありました。やはり、IEと同様のプロクシ情報を引き継ぐらしいです。レジストリ位置は＃4さんが言われている場所です。プログラムでレジストリを書き換えるときに注意しなければならないのは、webBrowserを起動するより先に行わなければ、その値を利用してくれないという欠点があるそうです。すんません。そっちを早く検索しておくべきでした^^; 結果：無理 m(_ _)m

質問者

補足 2005/08/17 22:52

そうですか・・・残念ですね。わざわざお付き合いいただきありがとうございました。僕もそのメーリングリストに登録してみたいのですが、どこか教えていただけますか？

1050 円（@1050YEN）
ベストアンサー率69% (477/687)

2005/08/17 10:52 回答No.7

たしかに面白い試みですね。ちょっとやってみたくなりました。今開発環境が無いので、帰宅したらやってみますね。途中までできている部分、ありますか？

質問者

補足 2005/08/17 11:35

ありがとございます。すごく助かります。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxWebBrowser1.Navigate2("http://www.yahoo.co.jp") end Sub 全然進んでいませんがここで止まっています。 http://dobon.net/vb/dotnet/internet/useproxy.html おそらくこのページの出力結果をデバック画面ではなくWebBrowserに表示させることができればと思うのですが・・ただそれだとWebBrowserのnavigateメソッドの機能を無視してますから、合理的とはいえないですよね。No.4にて教えていただいた方法は（http://プロキシURL:ポート番号/-_-http://開きたいウェブページのURL）は対応するプロクシーがほぼ皆無みたいですし、不安ですがレジストリをいじる方法になりますかね・・・

1050 円（@1050YEN）
ベストアンサー率69% (477/687)

2005/08/17 10:28 回答No.6

よくみると「webBrowser」ではないっすよね^^; WebRequestとWebResponsならサンプルが落ちています。 http://dobon.net/vb/dotnet/internet/index.html の・WebRequest、WebResponseクラスを使ってファイルをダウンロードし表示する・プロキシサーバーを指定してダウンロードするあたりが参考になりませんか？

質問者

補足 2005/08/17 10:30

ご丁寧にありがとうございます。私もですね、検索してるうちにそのページにたどり着きました。ですが、いかんせんページをみてもよくわからず、WebBrowserを用いてプロクシー経由にするにはどうすればよいのかとここで質問したんですけども、どうもじゅんぐりめぐりですね。

OsieteG00
ベストアンサー率35% (777/2173)

2005/08/17 10:24 回答No.5

出所が解っているなら買えば良いと思いますが... 中々面白そうな本ですので、役に立ちそうですね。

質問者

補足 2005/08/17 10:33

予算の都合上、厳しいのです。

OsieteG00
ベストアンサー率35% (777/2173)

2005/08/17 10:16 回答No.4

IEのコンポーネントみたいなものだし、IEの設定に準していると思います。緊急避難的には http://プロキシURL:ポート番号/-_-http://開きたいウェブページのURL IEで使用するレジストリは(こちらは有効かどうか未確認) HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer 及び 1. 自動構成 (WPAD もしくは http:// か https:// で指定された .pac ファイル) で設定されているプロキシサーバー。 2. LOCAL MACHINE の Internet Settings のレジストリに設定されているプロキシサーバー。 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Connections\WinHttpSettings のどちらか

質問者

補足 2005/08/17 10:34

やはりレジストリをいじる方法ですか・・・。うーん、それだと自分のOS上だけだとよいのですが他のコンピューターだと不安ですね。緊急避難的にはというとそれをコードにくみこめるのでしょうか？

1050 円（@1050YEN）
ベストアンサー率69% (477/687)

2005/08/17 10:15 回答No.3

ぉおぉお！本当だ！ webBrowserコントロールはVB6で1回だけ、試しに触れたことがあります。その時に、意識してなかったから、見落としたんでしょうね。失礼いたしました。できるのですねー知りませんでした。 m(_ _)m

1050 円（@1050YEN）
ベストアンサー率69% (477/687)

2005/08/17 09:37 回答No.2

＞それじゃ、プログラム関係ないじゃないですか・・・私も＃1さんの言うとおりのような気がするのですが。。。所詮、IEの埋め込みみたいなもんだし。。。逆にどこかで「できる」という情報を得ているのですか？

質問者

補足 2005/08/17 10:08

そうなんですか。あまり一般的ではないようですね。 http://www.gihyo.co.jp/books/syoseki-contents.php/4-7741-2023-5ここのですね、WebRequestとWebResponseの技この項目にのっているのでいけるかなとおもってたのですが、どう思われますか？

BLUEPIXY
ベストアンサー率50% (3003/5914)

2005/08/17 03:56 回答No.1

自信無しですがインターネットオプションの接続でプロキシーの設定をすればいいのでは？

質問者

補足 2005/08/17 08:26

それじゃ、プログラム関係ないじゃないですか・・・

関連するQ&A

WebBrowserについて
VB2005で、WebBrowserを使おうとしたところ次のような問題が発生しました。フォームに、WebBrowserを貼り付けてボタンをクリックしたところsubの途中でStopさせるとWebBrowserに表示されません。どうしてでしょうか？教えてください。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate("http://www.goo.ne.jp/") End Sub の状態だと表示されますが、 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate("http://www.goo.ne.jp/") 　　　　Stop End Sub で止めると表示されません。教えていただけないでしょうか？宜しくお願い致します。
- ベストアンサー
- Visual Basic
フォントサイズ変更
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click 'フォントを一つ大きくする Dim s As Integer = CInt(GetFontSize(AxWebBrowser1.Controls(0))) If s <> 4 Then SetFontSize(AxWebBrowser1.Controls(0), s + 1) End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click 'フォントサイズを小さく Dim s As Integer = CInt(GetFontSize(AxWebBrowser1.Controls(0))) If s <> 0 Then SetFontSize(AxWebBrowser1.Controls(0), s - 1) End Sub GetFontSizeとSetFontSizeにエラーが出ます。どうすればエラーを消せますか。よろしくお願いします。環境　XP 使用言語　VB.NET2003
- 締切済み
- Visual Basic
WebBrowserでHtmlを取得
WebBrowserでHtmlを取得する方法をおしえてくださいフォーム上に、WebBrowser1、TextBox1、Button1を配置しています。 TextBox1にHtmlを表示し、Button1は、WebBrowser1に表示している WEBページを更新します。やりたい事　(1)フォームを開いた時に、URLで指定したWEBページを表示させ　　TextBox1にHtmlを表示させる。　(2)Button1をクリックした時、表示しているWEBページを更新する。　　更新後のHtmlをTextBox1に表示させる。　(3)TextBox1の表示が完了したらHtmlを処理する。(未着手）現在、(1)は動作するのですが、(2)が動作しません（TextBox1のHtmlが更新されない） Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate(オッズURL):webcompflag = False Do While (webcompflag = False) System.Windows.Forms.Application.DoEvents() System.Threading.Thread.Sleep(10) Loop TextBox1.Text = WebBrowser1.Document.Body.InnerHtml End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = "" If Not WebBrowser1.Url.Equals("about:blank") Then WebBrowser1.Refresh() : webcompflag = False Do While (webcompflag = False) System.Windows.Forms.Application.DoEvents() System.Threading.Thread.Sleep(10) Loop TextBox1.Text = WebBrowser1.Document.Body.InnerHtml End Sub 何がいけないのか分かりませんよろしくお願いします。
- ベストアンサー
- Visual Basic
VBのこのコードの意味を教えてください。（至急）
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click このコードの意味を教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
最後まで読み込ませて待たせるには？
わからないので質問させてください。初心者なのでなかなかうまくいきません。(?_?) 教えていただけないでしょうか。よろしくお願いいたします。 OS　VISTA ブラウザ　IE7 Microsoft Visual Basic 2005 WindowsFormのWebBrowserを使って表示させています。やりたいこと WebBrowser1.Navigate(ComboBox1.Text)が読み込むまで待たせたい。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click WebBrowser1.Navigate(ComboBox1.Text) WebBrowser1.Document.All.GetElementsByName("タイトル")(0).InnerText = TextBox2.Text WebBrowser1.Document.All.GetElementsByName("内容")(0).InnerText = RichTextBox1.Text End Sub
- ベストアンサー
- Visual Basic
VB初心者です。コードの書き方が分かりません。
VB初心者です。 VBで（zのn乗）－（xのn乗＋yのn乗）の計算が出来るようにしたいのですが、答えが必ず-1になってしまいます。 Option Explicit On Public Class Form1 Dim x As Long Dim y As Long Dim z As Long Dim n As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox5.Text = (z ^ n) - (x ^ n + y ^ n) End Sub End Class 正しいコードの書き方を教えて下さい。また特定の答えのときにメッセージを表示したいのですが、どうすればいいですか？
- ベストアンサー
- Visual Basic
Comboboxを連動するには？。
はじめまして、どなたか教えてくれませんか。 Microsoft Visual Basic 2005を使ってCombobox1で選らんだ項目を WebBrowser1で表示させたい。 URLをCombobox1に表示させて表示はできますが項目を変えて表示するやり方がわかりまでいたのでおしえてくれませんか。よろしくお願いします。 Combobox1で表示させたい項目ヤフーグーグル goo Navigateで誘導したいURL http://www.yahoo.co.jp/ http://www.google.com/ http://www.goo.ne.jp/ Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged WebBrowser1.Navigate(ComboBox1.Text) End Sub
- ベストアンサー
- Visual Basic
Call文でデバックできません。
VB初心者です。 Win2003Sarver+SQL2000+VB.Net2008の組合せで作っています。 Call文で下記の様にすると Private Sub Button自動1600_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button自動1600.Click Call Button1600_Click() <--ここでデバックできません。 End Sub Private Sub Button1600_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1600.Click Me.洗浄機記録BindingSource.AddNew() Me.日付TextBox.Text = Now End Sub Call Button1600_Click() デバックできません。下記の様にすると動きます。 Private Sub Button自動1600_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button自動1600.Click Call B1600() End Sub Private Sub B1600 Me.洗浄機記録BindingSource.AddNew() Me.日付TextBox.Text = Now End Sub Call先に Click(ByVal sender As System.Object, ByVal e As System.EventArgs) があると引数か何かが必要になるのでしょうか。ご存知の方教えてください。
- ベストアンサー
- Visual Basic
AxWebBrowserでMouseHoverイベントを発生させたいです。
AxWebBrowser1の上でマウスが動いた場合に発生するMouseHoverイベントを発生させたいのですが、方法を教えていただけないでしょうか。 Private Sub AxWebBrowser1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxWebBrowser1.MouseHover を書いて見たのですが、ビルドエラーになってしまいました。よろしくお願い致します。 VB.NET2003 FrameWork1.1 WindowsXP-PRO(SP2) です。
- ベストアンサー
- Visual Basic
C++でメッセージボックスを表示したい
C++でメッセージボックスを表示したいフォーム上にbutton1を設置しました。クリックして、メッセージボックスを表示したいのですがどうすればいいのかわかりません。 vb.netで言う Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show("test") End Sub をC++で書くとどうなるんですか？ｂutton1をダブルクリックして private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) { } }; を表示させたのですが、どこにMessageBoxを入れればいいのか教えてください。よろしくお願いします。
- ベストアンサー
- C・C++・C#

プロクシーを経由してwebbrowserに表示させるには？