Hallo..
Da ich keinerlei Antworten mehr auf mein altes Thema bekomme, poste ich es einfach erneut in der Hoffnung eine Antwort zu bekommen..
Ich bin momentan dabei eine Art Player für Simfy-Lieder zu schreiben...
Jedenfalls möchte ich den Namen, Künstler.. in einer ListView anzeigen lassen.. Ich habe leider einen kleinen Fehler in meinem Code, kann ihn aber leider nicht finden und verzweifle mitlerweile.
Würde mich freuen, wenn mir jemand helfen kann!
MFG
Da ich keinerlei Antworten mehr auf mein altes Thema bekomme, poste ich es einfach erneut in der Hoffnung eine Antwort zu bekommen..
Ich bin momentan dabei eine Art Player für Simfy-Lieder zu schreiben...
Jedenfalls möchte ich den Namen, Künstler.. in einer ListView anzeigen lassen.. Ich habe leider einen kleinen Fehler in meinem Code, kann ihn aber leider nicht finden und verzweifle mitlerweile.
Würde mich freuen, wenn mir jemand helfen kann!
VB.NET-Quellcode
- Private Sub cmdSuchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSuchen.Click
- WebBrowser2.Navigate("http://www.google.de/#hl=de&source=hp&q=" + TextBoxsuche.Text & " Simfy" + "&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=81443f5e551dfc1c")
- While WebBrowser2.ReadyState <> WebBrowserReadyState.Complete
- Application.DoEvents()
- End While
- RichTextBox1.Text = WebBrowser2.Document.Body.OuterText
- SendKeys.Send("{Enter}")
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim ArtistID_Start As Integer = RichTextBox1.Text.IndexOf(" /www.simfy.de/artists/ / ") + 5
- Dim ArtistID_Ende As Integer = RichTextBox1.Text.IndexOf("-", ArtistID_Start)
- Dim ArtistID As String = RichTextBox1.Text.Substring(ArtistID_Start, ArtistID_Ende - ArtistID_Start)
- MsgBox(ArtistID)
- ' ListView1.Items.Add(ArtistID)
- End Sub
MFG