vb.netを使ってWeb表示の自動化を図りたい

VB.netのWebBrowserを使ってWeb表示の自動化を図りたい。

プログラムの流れ概要
１．WebBrowser1.Navigate(New Uri("http://hoge"))　で、Web表示
２．Web表示終了イベントを検知。検知するまでwait状態にする
３．次のWeb表示をWebBrowser1.Navigateで行う。
４．以降２　－　３を繰り返す。

これらを、出来れば同じsub()で行いたいと思います。

どのようにすれば、実現出来ますか。
ご教示下さい。

No.1 ベストアンサー 回答者： sean9 回答日時： 2013/02/05 12:52

こんにちは。

とりあえず1案のせます。


同じsub()でというところは解決できていません。読み込み完了のイベントを取得しています。

Dim _pages As New ArrayList
Dim _index As New Integer

が定義されているものとして、

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
　GoNext()
End Sub

Private Sub GoNext()
　If (index < _pages.Count) Then
　　WebBrowser1.Navigate(_pages(_index))
　　WebBrowser1.Refresh()
　　_index += 1
　End If
End Sub

でいかがでしょうか