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で質問しましょう!
似たような質問が見つかりました
- その他(ブラウザ) pythonの既定のブラウザを変更したいです 1 2022/07/06 22:09
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
どなたかこのプログラミングを...
-
VBA for i=1 to lastrow
-
VBAでの一時停止と再開の方法
-
乱数の桁数指定、または範囲指定。
-
ということですか 他に固定りよ...
-
Visual BasicのUserFormが閉じ...
-
アセンブラによるウェイト(WAIT...
-
ListBox 複数選択 で オートフ...
-
UWSCの終了の仕方
-
EXCEL VBA(初心者)印刷ルー...
-
C言語でファクト関数を使わずに...
-
範囲指定したセルを1つずつ飛...
-
プログラムはif文とforループが...
-
一巡伝達関数と開ループ伝達関数
-
Do whileでExitせず、ループの...
-
alarmの使用について
-
イベントの発生を待つ
-
Escキーを押すと、中断する時と...
-
VB6 ListIndexのコピー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
ループ7回目の悪役令嬢は、元敵...
-
UWSCの終了の仕方
-
Escキーを押すと、中断する時と...
-
エクセルの当番表を作っていま...
-
GIFアニメをループさせたくない
-
VBAで3秒だけ時間を止めたい
-
どなたかこのプログラミングを...
-
VBA for i=1 to lastrow
-
DOSコマンドのループ内のTIMEコ...
-
ListBox 複数選択 で オートフ...
-
vbscriptでIE自動入力(途中で...
-
vb.netからエクセル関数書き込み
-
DoEventsが必要な理由について
-
Java 南京錠
-
アクティブセルから、A列最終行...
-
テキストボックスの名前に変数...
-
範囲指定したセルを1つずつ飛...
-
VBA Dir関数でファイルをループ...
おすすめ情報