• ベストアンサー

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

VB.netのWebBrowserを使ってWeb表示の自動化を図りたい。 プログラムの流れ概要 1.WebBrowser1.Navigate(New Uri("http://hoge")) で、Web表示 2.Web表示終了イベントを検知。検知するまでwait状態にする 3.次のWeb表示をWebBrowser1.Navigateで行う。 4.以降2 - 3を繰り返す。 これらを、出来れば同じsub()で行いたいと思います。 どのようにすれば、実現出来ますか。 ご教示下さい。

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

  • ベストアンサー
  • sean9
  • ベストアンサー率86% (26/30)
回答No.1

こんにちは。とりあえず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 でいかがでしょうか

関連するQ&A