facebook noti

    Public Sub Loadfacebook(ByRef noti() As trax)
        'loading facebook ----------------------------------------------------------------------------------
        Dim all As String
        Dim i As Int16
        Dim trim As String
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.facebook.com/feeds/notifications.php?id=738392784&viewer=738392784&key=AWjtlgOebJ_8GgH8&format=rss20")
        request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim sr = New System.IO.StreamReader(response.GetResponseStream)
        all = sr.ReadToEnd
        i = -1
        ReDim noti(50)
        Do Until InStr(all, "<item>") = 0
            i = i + 1
            all = Mid(all, InStr(all, "<item>") + 6, Len(all) - InStr(all, "<item>") - 6)
            noti(i).name = Mid(all, InStr(all, "<title>") + 7, InStr(all, "</title>") - InStr(all, "<title>") - 7)
            'getting url
            trim = Mid(all, InStr(all, "<link>") + 6)
            trim = Mid(trim, 1, InStr(trim, "</link>") - 1)
            Do Until InStr(trim, "amp;") = 0
                trim = Mid(trim, 1, InStr(trim, "amp;") - 1) & Mid(trim, InStr(trim, "amp;") + 4)
            Loop
            noti(i).url = trim

        Loop
        ReDim Preserve noti(i)

    End Sub