Italian Immagini da link di feed rss

Sub Parser_EndElement(Uri As String, Name As String, Text As StringBuilder)
            
If Parser.Parents.IndexOf("item") > -1 Then
      
If Name = "title" Then

Sub Globals
      Dim Immagine(per esempio) As String
End Sub

Sub Parser_EndElement(Uri As String, Name As String, Text As StringBuilder)
If Name = "(qua dovrei mettere il tag dove c'è il link dell'immagine ma non so quale gli dovrei mettere)" Then
Immagine = Text.ToString

If Name = "item" Then
RSS.AddTwoLinesAndBitmap2(Title, Description, Bitmap1, linkk)
End If

End Sub

Sub Parser_EndElement(Uri As String, Name As String, Text As StringBuilder)
If Name = "encode" then
 qui va usato regex su Text per isolare l'indirizzo

Sub HandleMainPage (in As InputStream)
    start = DateTime.Now
    Dim TextReader1 As TextReader
    TextReader1.Initialize(in)
    Dim pattern, class As String
    class = "<td class=" & QUOTE & "Photo" & QUOTE & ">"
    pattern = "img src=\q([^q]+)\q".Replace("q", QUOTE)
    Dim links As List
    links.Initialize
    Dim line As String
    line = TextReader1.ReadLine
    Do While line <> Null
        If line.IndexOf(class) > -1 Then
            Dim link As String
            Dim m As Matcher
            m = Regex.Matcher(pattern, line)
            If m.Find Then
                links.Add(m.Group(1)) 'add the image link
            End If
        End If
        line = TextReader1.ReadLine
    Loop
    TextReader1.Close
    Log("done parsing main page: " & (DateTime.Now - start))
    For i = 0 To links.Size - 1 'send request for each image
        Dim request As HttpRequest
        request.InitializeGet(links.Get(i))
        HttpClient1.Execute(request, i)
    Next
    ProgressDialogHide
End Sub