Lo que quiero hacer es extraer todas las url de los capitulos de un manga buscado en esta web " submanga.com " y que se muestren en un ListBox en el orden que estan , masomenos asi :
Citar
http://submanga.com/Gakuen_Heaven/23/244316
http://submanga.com/Gakuen_Heaven/22/243793
http://submanga.com/Gakuen_Heaven/21/243638
http://submanga.com/Gakuen_Heaven/20/243383
etc.....
http://submanga.com/Gakuen_Heaven/22/243793
http://submanga.com/Gakuen_Heaven/21/243638
http://submanga.com/Gakuen_Heaven/20/243383
etc.....
Para esto cree un TEXTBOX en el cual introduzco el nombre del manga que quiero y un BUTTON que realiza la busqueda en un webbrowser asi
" http://submanga.com/nombre_del_manga/completa "
=====Hasta aqui todo bien======
El problema es en la busqueda de los url .... en el LISTBOX me botan varias url menos la de los capitulos
Por ejemplo , si busco el manga "Gakuen Heaven" me sale así en el ListBox
Citar
http://submanga.com/Gakuen_Heaven
http://submanga.com/Gakuen_Heaven/completa
http://submanga.com/Gakuen_Heaven/scanlation
etc.... y varias url similares pero menos la de los capitulos
http://submanga.com/Gakuen_Heaven/completa
http://submanga.com/Gakuen_Heaven/scanlation
etc.... y varias url similares pero menos la de los capitulos
WebBrowser1
Código
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Try For Each ETIQUETA As HtmlElement In WebBrowser1.Document.All If ETIQUETA.TagName = "A" Then If ETIQUETA.OuterHtml.Contains("http://submanga.com/" & TextBox4.Text & "/") Then Try Dim MIURL As String = ETIQUETA.OuterHtml MIURL = MIURL.Remove(0, MIURL.IndexOf("href=") + 6) MIURL = MIURL.Substring(0, MIURL.IndexOf(">") - 1) ListBox1.Items.Add(MIURL) Catch ex As Exception End Try End If End If Next Catch ex As Exception MsgBox(ex.Message) End Try End Sub
Si no fuera mucha molestia , me podrían decir que parte esta mal