Dim bilgi2 As HtmlElementCollection = WebBrowser1.D0cument.All
For Each element As HtmlElement In bilgi2
If element.GetAttribute("classname").Contains("inputtext") Then
Label1.Text = element.InnerText
End If
Next
Çok elemanlı clastan çekme:
VB.Net:
Dim bilgi1 As HtmlElementCollection = WebBrowser1.D0cument.All
For Each element As HtmlElement In bilgi1
If element.GetAttribute("classname").Contains("normal-wins") Then
ListBox1.Items.Add(element.InnerText & Environment.NewLine)
End If
Next
Dim bilgi2 As HtmlElementCollection = WebBrowser1.D0cument.All
For Each element As HtmlElement In bilgi2
If element.GetAttribute("classname").Contains("inputtext") Then
Label1.Text = element.InnerText
End If
Next
Çok elemanlı clastan çekme:
VB.Net:
Dim bilgi1 As HtmlElementCollection = WebBrowser1.D0cument.All
For Each element As HtmlElement In bilgi1
If element.GetAttribute("classname").Contains("normal-wins") Then
ListBox1.Items.Add(element.InnerText & Environment.NewLine)
End If
Next