VB抓網頁公告欄 LOL為例

 

 

 

  1.  
  2.         Dim FindDiv As Boolean = False   '
  3.         For Each [HtmlElement] As HtmlElement In WebBrowser1.Document.All
  4.  
  5.             '
  6.             If Not FindDiv AndAlso [HtmlElement].TagName = "DIV" AndAlso HtmlElement.Id = "news_subject" Then
  7.                 FindDiv = True
  8.             ElseIf FindDiv AndAlso [HtmlElement].TagName = "A" Then
  9.                 '  MsgBox(HtmlElement.InnerText)
  10.                 DataLink = [HtmlElement].GetAttribute("HREF")
  11.                 ListBox1.Items.Add(DataLink)
  12.  
  13.             End If
  14.      
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.   
  23.             If [HtmlElement].TagName = "DIV" AndAlso [HtmlElement].Id = "news_subject" Then
  24.                 DataTitle = [HtmlElement].FirstChild.InnerText
  25.                 ListBoxTitle.Items.Add(DataTitle)
  26.             End If
  27.         Next

阿倫 發表在 痞客邦 PIXNET 留言(0) 人氣()