bbc news image

    Public Sub newsimageurl(ByVal url As String)
        'searching for image
        Dim search3 As String = "<div class=" & Chr(34) & "caption body-narrow-width" & Chr(34) & ">"
        Dim search1 As String = "<div class=" & Chr(34) & "caption body-width" & Chr(34) & ">"
        Dim search2 As String = "<param name=" & Chr(34) & "holdingImage" & Chr(34) & " value=" & Chr(34)
        Dim search4 As String = "<div class=" & Chr(34) & "caption" & Chr(34) & ">"
        '--------------------------------------
        Dim request As System.Net.HttpWebRequest
        Dim response As System.Net.HttpWebResponse
        Dim all As String
        request = System.Net.HttpWebRequest.Create(url)
        Try
            response = request.GetResponse()
        Catch
            url = ""
            Exit Sub
        End Try

        Dim sr = New System.IO.StreamReader(response.GetResponseStream)
        Dim img As String
        all = sr.ReadToEnd
        If InStr(all, search1) <> 0 Then
            all = Mid(all, InStr(all, search1), Len(all) - InStr(all, search1))
            url = Mid(all, InStr(all, "<img") + 10, InStr(all, " width") - 11 - InStr(all, "<img"))
            img = (url)
        ElseIf InStr(all, search3) <> 0 Then
            all = Mid(all, InStr(all, search3), Len(all) - InStr(all, search3))
            url = Mid(all, InStr(all, "<img") + 10, InStr(all, " width") - 11 - InStr(all, "<img"))
            img = url
        ElseIf InStr(all, search4) <> 0 Then
            all = Mid(all, InStr(all, search4), Len(all) - InStr(all, search4))
            url = Mid(all, InStr(all, "<img") + 10, InStr(all, " width") - 11 - InStr(all, "<img"))
            img = url
        ElseIf InStr(all, search2) <> 0 Then
            all = Mid(all, InStr(all, search2) + 34, Len(all) - 34 - InStr(all, search2))
            url = Mid(all, 1, InStr(all, Chr(34)) - 1)
            img = url
        Else
            img = ""
        End If

        Call Gotoimage(img)
    End Sub