Salve a tutti, il titolo non è molto concreto ma sinceramente non sapevo come scrivere, poichè è un problema che non riesco a risolvere
Allora, c'è una pagina con vari video(Non Youtube), e ognuno di questi ha un proprio ID. Io ottengo l'ID e tramite questo poi prendo le varie informazioni(Durata-numero di visite-punti che si guadagnano ecc.); ma c'è un piccolo problema, ci sono alcuni video che hanno un ID strutturato diverso, cioè invece di iniziare "pid_" iniziano per "pid__"
Screen:
Il codice che uso è questo:
codice:
Dim finale As String
Dim finale2 As String
Dim num As Integer
Dim categorie As String
Dim PageElement As HtmlElementCollection = WebBrowser1.Document.GetElementById("browse-video-catalog").GetElementsByTagName("ul")
Dim CurElement As HtmlElement = WebBrowser1.Document.GetElementById("browse-video-catalog").GetElementsByTagName("li").Item(0)
For Each CurElement In PageElement
categorie = CurElement.InnerHtml
num = categorie.IndexOf(":")
'Link video
finale = categorie.Substring(num, 33)
finale2 = "http://lockerz.com/p/watch/" & finale
'informazioni video tramite ID(Titolo-Durata-Punti ecc)
finaleID = finale.Replace(":", "pid_")
titolo = BrowserIE.Document.GetElementById(finaleID).GetElementsByTagName("li").Item(0).InnerText
ptz = BrowserIE.Document.GetElementById(finaleID).GetElementsByTagName("li").Item(4).InnerText
watched = BrowserIE.Document.GetElementById(finaleID).GetElementsByTagName("li").Item(5).InnerText
durata = BrowserIE.Document.GetElementById(finaleID).GetElementsByTagName("li").Item(2).InnerText
End If
Next
Ovviamente poi mi restituisce errore NullReference perchè quando incontra "pid__" il programma usa"pid_" e non so come prevenire questo errore, ho provato con un replace e return, mi funziona, ma poi invece di prendermi 48 video(Come dovrebbe) me ne prende molti di meno(25 circa)...
Qualche idea?? 
grazie mille