Predmet:Re: vb.net webbrowser scroll down

---

NMazalost ja nemam instagram i nemogu uci da vidim uistinu koliko ima elemenata.
Mogu opisati kako treba uraditi pa ako ne uspijes pokusat cemo na neki drugi nacin
U kodu ispod je petlja koja bi trebala da ucita sve elemente u listBox kako sam ja to vidio.
Da bi sprijecio ucitavanje svih elemenata odjednom odnosno da ucitavas stranicu po stranicu morao bi na vrhu klase ili negdje drugdje da definises tri variable.
Jedna bi bila brojac napr i=0 br_strane=0 i treca a moze biti konstanta redova_po_strani.
Uzmimo da je Button2 next za listanje nazad mislim da nmozes sam.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

'WebBrowser1.Navigate("javascript:window.scroll(0,4050);")

ListBox1.Items.Clear()

Dim HTMLI As Xml.XmlElement

For Each HTMLI In doc.getElementsByclassName("Nnq7C weEfm")

If HTMLI.innerHTML.Contains("a href") Then

Dim sSource As String = HTMLI.innerHTML 'String that is being searched

Dim subst As String = sSource.Substring(41, 15)
REM MessageBox.Show(subst.Count)
i=i+1
br_strane=br_strane +1
start=br_strane*redova_po_strani
kraj=start+redova_po_strani
if i >=start and i<=kraj rhen
ListBox1.Items.Add("https://www.instagram.com" & subst & vbCrLf)
enduif
End If

Next

End Sub

---