webbrowserでAmebaブログを開きブログの作成日時をTextBoxに表示するには？ (ID:147362)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> あるいは、WebBrowse の Document プロパティから、対象のタグを追って
> 日付値を取得するという手もあります。内容によってはこちらの方が
> 良い場合もありますが、ブログのデザインが変更された場合には
> 対応しきれないのが弱点ですね。

ちなみに、上記の場合はこんな感じ。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "日付読取"
        Button1.Enabled = False
        WebBrowser1.Navigate("http://ameblo.jp/takahashiai-blog/page-2.html#main")
    End Sub

Private Sub WebBrowser1_DocumentTitleChanged(ByVal sender As Object, ByVal e As EventArgs) Handles WebBrowser1.DocumentTitleChanged
        Me.Text = WebBrowser1.DocumentTitle
    End Sub

Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        e.Cancel = Button1.Enabled
    End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Button1.Enabled = True
    End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim span = From tag As HtmlElement In WebBrowser1.Document.GetElementsByTagName("span") Where tag.GetAttribute("className") = "date"
        Dim dt As String = span.First().InnerText
        MsgBox(dt)
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る