[vbnet]

-
أنا جربت وضع On Error Resume Next بعد For Each مباشرة لتلافي الأخطاء.........جرب
تم استخدام Distinct لحذف المكرر.....

كود :

Dim htmldoc As HtmlDocument = New HtmlDocument()
htmldoc.Load("abc.html")

Dim hrefs, classs As New List(Of String)
For Each link As HtmlNode In htmldoc.DocumentNode.SelectNodes("a")
    On Error Resume Next
    hrefs.Add(link.Attributes("href").Value)
    classs.Add(link.Attributes("class").Value)
Next
MsgBox("hrefs:" & vbNewLine & Join(hrefs.Distinct.ToArray, vbNewLine))
MsgBox("classes:" & vbNewLine & Join(classs.Distinct.ToArray, vbNewLine))