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を探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UWSCの終了の仕方
-
画面を強制的に再描画させる方法
-
ExcelVBA FindNextを使用して条...
-
Providence PEC-02 接続方法
-
一巡伝達関数と開ループ伝達関数
-
ListBox 複数選択 で オートフ...
-
Do whileでExitせず、ループの...
-
ループ7回目の悪役令嬢は、元敵...
-
無限ループ
-
MACのガレージバンド
-
VB.NETでFTPプログラム
-
エクセルVBAでの繰り返し処理に...
-
配列にaaaからzzzまでの17576(2...
-
アクティブセルから、A列最終行...
-
VBS オーバーフローの原因
-
c++ ランダムウォーク
-
perl 文字列検索後に指定フィー...
-
リストの再構成について
-
一致する要素が格納されている...
-
配列要素の並べ替え
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
DoEventsが必要な理由について
-
UWSCの終了の仕方
-
Escキーを押すと、中断する時と...
-
VBA for i=1 to lastrow
-
vb.netからエクセル関数書き込み
-
GIFアニメをループさせたくない
-
VBAでの一時停止と再開の方法
-
「人を傷つけることは悪いこと...
-
VBAで3秒だけ時間を止めたい
-
DOSコマンドのループ内のTIMEコ...
-
アクティブセルから、A列最終行...
-
CSVファイルの特定の行だけを読...
-
範囲指定したセルを1つずつ飛...
-
ループフリー
-
VBA for文が止まらない
-
null 参照の例外が実行時に発生...
-
vbscriptでIE自動入力(途中で...
-
フラグについて
-
VBA Dir関数でファイルをループ...
おすすめ情報