WebBrowserコントロール

Last-modified: 2011-01-06 (木) 23:55:30
amazon.gif

サンプルの概要

Formに WebBrowserコントロール を張り付けて　ボタンを押すとWebページのテキストボックスにIDとパスワードを入れる

サンプル 

Public Class Form2
   Dim sUrl As String = "http://msdn.microsoft.com/ja-jp/netframework/dd279483"
   Dim Id As String = "ID"
   Dim Pw As String = "パスワード"
   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.wb1.Navigate(sUrl)
   End Sub
   Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
 　　　' 本来はここに書きたいがWEBページが読み終わる前に.Document.Allが走るとエラーになるので。
       'Me.wb1.Navigate(sUrl)
       Dim All1 As HtmlElementCollection = wb1.Document.All
       Dim forms1 As HtmlElementCollection = All1.GetElementsByName("i_UserId")
       forms1(0).InnerText = Id ' ID
       Dim forms2 As HtmlElementCollection = All1.GetElementsByName("i_PassWd")
       forms2(0).InnerText = Pw ' PassWord
   End Sub
End Class
'i_UserId,i_PassWd はWebページのテキストボックス（<input>要素名）

注意点 

  本来はWebEDIから自動でデータをダウンロードするプログラムを作りかたかった。
ボタンを押して次のページが開く動作までは確認できたが,
そこからWebブラウザからのアクセスのみ有効とメッセージがでてしまい。
開発を断念した。Webページによっては対応できないことがある。

参考

参考書籍

amazon.gif

サイト内リンク