タイトル : Re^3: ソースの一部取得は? 投稿日 : 2006/02/15(Wed) 16:11 投稿者 : YAS
VB2005であったらこんな感じでしょうか。 Public Class Form1 WithEvents WebBrowser1 As New WebBrowser Dim TextBox1 As New TextBox Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.TextBox1.Multiline = True Me.TextBox1.Dock = DockStyle.Fill Me.Controls.Add(Me.TextBox1) Me.WebBrowser1.Navigate("hhttp://www.yahoo.co.jp") End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, _ ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _ Handles WebBrowser1.DocumentCompleted Dim Document As HtmlDocument = Me.WebBrowser1.Document Dim HtmlElements As HtmlElementCollection = Document.GetElementsByTagName("a") For Each HtmlElement As HtmlElement In HtmlElements If HtmlElement.GetAttribute("href") _ .StartsWith("hhttp://rd.yahoo.co.jp/toppage/topics/") Then Me.TextBox1.Text += HtmlElement.InnerText & ControlChars.CrLf End If Next End Sub End Class |