IEの操作:Webbrowserを使い、URLを開きページのタイトルを取得(DocumentTitle)VB2008でサイトのタイトルを取得する実行例サンプルです。IE(インターネットエクスプローラ)の操作へ■実行画面 「Button1」ボタンをクリックすると、サイトのTopページが開きます。 そして、サイトのタイトルを下のテキストボックスに表示しています。 フォームに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実践入門 |