- ベストアンサー
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()で行いたいと思います。 どのようにすれば、実現出来ますか。 ご教示下さい。
- みんなの回答 (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 でいかがでしょうか