用VB爬蟲網站公告欄資訊

Dim FindDiv As Boolean = False   ' 
For Each [HtmlElement] As HtmlElement In WebBrowser1.Document.All

	'
	If Not FindDiv AndAlso [HtmlElement].TagName = "DIV" AndAlso HtmlElement.Id = "news_subject" Then
		FindDiv = True
	ElseIf FindDiv AndAlso [HtmlElement].TagName = "A" Then
		'  MsgBox(HtmlElement.InnerText)
		DataLink = [HtmlElement].GetAttribute("HREF")
		ListBox1.Items.Add(DataLink)

	End If


	If [HtmlElement].TagName = "DIV" AndAlso [HtmlElement].Id = "news_subject" Then
		DataTitle = [HtmlElement].FirstChild.InnerText
		ListBoxTitle.Items.Add(DataTitle)
	End If
Next
arrow
arrow
    全站熱搜

    JL8051 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄