GetElementsByTagname.txt.html

Code1 :

Private Sub Target_self_Click(sender As Object, e As EventArgs) Handles Target_self.Click
Dim linkElements As HtmlElementCollection =
WebBrowser1.Document.GetElementsByTagName("A")
Dim firstLink = linkElements.Cast(Of HtmlElement).FirstOrDefault()
' linkElements.Count = 10 ' oops , ReadOnly
Dim MyCount = 4
' If linkElements.Count > 0 Then ' This show 68, the length of search arg
If MyCount > 0 Then
' linkElements = WebBrowser1.Document.GetElementsByTagName("A")
If firstLink.GetAttribute("target") = "_blank" Then
firstLink.SetAttribute("target", "_self")
MsgBox("linkElements.Count = " & linkElements.Count)
' linkElements = WebBrowser1.Document.GetElementsByTagName("A")
End If
MyCount = MyCount - 1
' MsgBox("MyCount = " + MyCount)
End If
' End If
MsgBox("Target_self_Click = " & "Target_self_Click")
End Sub

Code2 :

Public Class GetElementsByTagName
Private Sub GetElementsByTagName_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate("http://vmars.us/SafeBrowser/SafeBrowserHome.html")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(txbAddress.Text)
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")

txbAddress.Text = WebBrowser1.Url.ToString
For Each CurElement As HtmlElement In PageElements
TextBox2.Text = TextBox2.Text & CurElement.GetAttribute("src") & Environment.NewLine
Next
End Sub

Private Sub Target_self_Click(sender As Object, e As EventArgs) Handles Target_self.Click
Dim linkElements As HtmlElementCollection =
WebBrowser1.Document.GetElementsByTagName("A")
Dim firstLink = linkElements.Cast(Of HtmlElement).FirstOrDefault()
' linkElements.Count = 10 ' oops , ReadOnly
Dim MyCount = 4
' If linkElements.Count > 0 Then ' This show 68, the length of search arg
If MyCount > 0 Then
' linkElements = WebBrowser1.Document.GetElementsByTagName("A")
If firstLink.GetAttribute("target") = "_blank" Then
firstLink.SetAttribute("target", "_self")
MsgBox("linkElements.Count = " & linkElements.Count)
' linkElements = WebBrowser1.Document.GetElementsByTagName("A")
End If
MyCount = MyCount - 1
' MsgBox("MyCount = " + MyCount)
End If
' End If
MsgBox("Target_self_Click = " & "Target_self_Click")
End Sub

Private Sub BackButton_Click(sender As Object, e As EventArgs) Handles BackButton.Click
' WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate("http://vmars.us/SafeBrowser/SafeBrowserHome.html")
End Sub
End Class