IEの操作:Webbrowserを使い、URLを開きページのタイトルを取得(DocumentTitle)

VB2008でサイトのタイトルを取得する実行例サンプルです。

IE(インターネットエクスプローラ)の操作へ



■実行画面
「Button1」ボタンをクリックすると、サイトのTopページが開きます。
そして、サイトのタイトルを下のテキストボックスに表示しています。
Webページのタイトルを表示するフォーム

フォームにWebbrowserコントロールとテキストボックスを設置しています。
実行手順は
1)Navigateに開くURLを指定します。
2)開くまでループで待ちます。
  Webbrowserは開くと、DocumentCompletedイベントが発生するので、イベントが発生しフラッグがTRUEになるまでループします。
3)WebBrowser1.DocumentTitle でテキストボックスにタイトルを表示します。

■実行コード

Public Class Form1

Private webcompflag As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("http://www.feedsoft.net/vb/")
webcompflag = False
Do While (webcompflag = False)
System.Windows.Forms.Application.DoEvents()
System.Threading.Thread.Sleep(10)
Loop
'テキストボックスにタイトルを表示
TextBox1.Text = WebBrowser1.DocumentTitle

End Sub

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


Visual Basic 2008 Express Edition実践入門