VB2008を使っています。WebBrowserのコンポーネントを使って
ホームページにGET形式でパラメータを渡して画面のBODY部分を読み取る
ものを作っているのですが、サーバーのレスポンスにもよりますが
1分間に20回で5分(100回程度)連続アクセスをするのですが、
以下のルーチンの場合何か不安を感じまして、
ネットでこれを使えばOKというものが無くて
確実に読み取る方法が知りたくて質問いたしました。
やはり、2つ目のイベントを用いる方が安心でしょうか?
正しいWebBrowserの使い方(ループ判定)をご存知の方教えてください。
'***** WebBrowser1.ReadyState *****
WebBrowser1.Navigate(URL)
Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Or WebBrowser1.IsBusy = True
Application.DoEvents()
Loop
data = WebBrowser1.DocumentText
'***** DocumentCompletedイベントまでループ *****
public wait_flag as Boolean
wait_flag = True
WebBrowser1.Navigate(URL)
Do While (WebBrowser1.IsBusy = True) Or (wait_flag = True)
Application.DoEvents()
Loop
data = WebBrowser1.DocumentText
'---- イベント -----
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
wait_flag = False
End Sub
No.1ベストアンサー
- 回答日時:
正しいのかどうかわからないし、好みの問題かもしれませんが、、
[MSDN 引用]
http://msdn.microsoft.com/ja-jp/library/system.w …
DocumentCompleted イベントが発生したときには、新しいドキュメントが
完全に読み込まれています。つまり Document プロパティ、DocumentText
プロパティ、または DocumentStream プロパティを使用してドキュメント
のコンテンツにアクセスできます。
とあるので、DocumentCompleted イベントを利用した方法が良いでしょう。
ただし、フレームを切ったページではフレームごとに DocumentCompleted が
発生するため、完全にページが読み込まれたかどうかを判定するには e.Url
が目的の URL を差しているか調べる必要はあります。
それから、DocumentCompleted イベントを利用するのであれば、ループで待機
せず、イベント内で次の処理をすればいいのでは?
Private m_Url As String
Private m_BodyText As String
Private Sub Button1_Click() Handles Button1.Click
m_BodyText = ""
m_Url = "目的の URL"
WebBrowser1.Navigate(m_Url)
End Sub
Private Sub WebBrowser1_DocumentCompleted( _
ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs _
) Handles WebBrowser1.DocumentCompleted
If e.Url.ToString() = m_Url Then
m_BodyText = WebBrowser1.DocumentText
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
GIFアニメをループさせたくない
-
Escキーを押すと、中断する時と...
-
UWSCの終了の仕方
-
VBA Dir関数でファイルをループ...
-
CSVファイルの特定の行だけを読...
-
VBA for i=1 to lastrow
-
DoEventsが必要な理由について
-
範囲指定したセルを1つずつ飛...
-
OSもどきを作りたいです(OSで...
-
vb.netからエクセル関数書き込み
-
ループを回すという意味は何で...
-
アクティブセルから、A列最終行...
-
VBAでの一時停止と再開の方法
-
sscanfより速い方法について。
-
ボタンが押された時にループか...
-
一定時間ループさせて止めたい
-
自分で組んでわからないです・・・
-
プログラムはif文とforループが...
-
【続き】統計解析Rを使った作図
-
エクセル マクロ range と A...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UWSCの終了の仕方
-
画面を強制的に再描画させる方法
-
VBAで3秒だけ時間を止めたい
-
Escキーを押すと、中断する時と...
-
DoEventsが必要な理由について
-
VBAでの一時停止と再開の方法
-
DOSコマンドのループ内のTIMEコ...
-
範囲指定したセルを1つずつ飛...
-
GIFアニメをループさせたくない
-
VBA for i=1 to lastrow
-
乱数の桁数指定、または範囲指定。
-
ループフリー
-
vb.netからエクセル関数書き込み
-
エクセル関数で1〜12の数字がル...
-
vbscriptでIE自動入力(途中で...
-
null 参照の例外が実行時に発生...
-
アクティブセルから、A列最終行...
-
Do whileでExitせず、ループの...
-
UWSCに制限時間を付けたいです
-
CSVファイルの特定の行だけを読...
おすすめ情報