[VB.NET] مساعدة في تعديل كود - نسخة قابلة للطباعة

كود :
Function live(ByVal n As String) As String

        Dim host As String = "http://62.210.181.164:7777/"

        Dim usrps As String = "yacinenew1178/yacinenew1178/"

        Dim postData As String = ""

        Dim tempcookies As New CookieContainer

        Dim encoding As New UTF8Encoding

        Dim byteData As Byte() = encoding.GetBytes(postData)

        Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create(host & usrps & n), HttpWebRequest)

        'postreq.Proxy = Nothing

        postreq.Method = "GET"

        postreq.Timeout = 2500

        postreq.KeepAlive = True

        postreq.AllowAutoRedirect = False

        postreq.UserAgent = "yacineapp.tv"

        postreq.Host = "62.210.181.164:7777"

        postreq.Headers.Add("Accept-Encoding: none")

        Dim postresponse As HttpWebResponse

        Try

            postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)

        Catch ex As Exception



            MessageBox.Show(ex.Message)



            Return Nothing



        End Try

        postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)

        tempcookies.Add(postresponse.Cookies)

        Dim postreqreader As New StreamReader(postresponse.GetResponseStream())

        Dim chlink As String = postresponse.GetResponseHeader("Location")

        VLCP.playlist.stop()

        VLCP.playlist.items.clear()

        VLCP.playlist.add(chlink.Trim)

        VLCP.playlist.play()

        VLCP.CtlVisible = True

        Return Nothing

    End Function