Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://www.kitabinabak.com/kitap/saftirik-greg-in-gunlugu-4-iste-simdi-yandik--jeff-kinney--epsilon-yayinlari--kbk--9789944823579--1")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim bilgi1 As HtmlElementCollection = WebBrowser1.Document.All
For Each element As HtmlElement In bilgi1
If element.GetAttribute("classname").Contains("new-price siteText") Then
ListView1.Items.Add(element.InnerText)
End If
If element.GetAttribute("classname").Contains("col-xs-3 col-sm-3 col-lg-3 col-md-4 xsCenter") Then
ListView1.Items.Add(element.InnerText)
End If
Next
End Sub
End Class Dim elementList As HtmlElementCollection = WebBrowser1.Document.All
Dim kitapList = elementList.Cast(Of HtmlElement).
Where(Function(element) element.GetAttribute("classname").Contains("new-price siteText") Or
element.GetAttribute("classname").Contains("col-xs-3 col-sm-3 col-lg-3 col-md-4 xsCenter")).
Select(Function(el) el.InnerText).ToList()
For i = 0 To kitapList.Count - 1
ListView1.Items.Add(New ListViewItem(New String() {kitapList(i), kitapList(i + 1)}))
i += 1
Next