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

كود :
Private Sub Winsock1_DataArrival(sender As Object, e As DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock1.DataArrival

        Try

            Dim text As String = ""

            Dim replacement As String = ""

            Dim text2 As String = ""

            Dim arg_32_0 As AxWinsock = Me.Winsock1

            Dim value As Object = Text

            arg_32_0.GetData(value, 8, e.bytesTotal)

            text = Conversions.ToString(value)

            Dim flag As Boolean = Operators.CompareString(Strings.Mid(Strings.UCase(Text), 1, 3), "GET", False) = 0

            If flag Then

                Dim array As String() = Strings.Split(Text, " ", -1, CompareMethod.Binary)

                Dim expression As String = Conversions.ToString(Operators.AddObject(Operators.AddObject(Me.AppPath(), "server"), Array(1)))

                array = Strings.Split(expression, "?", -1, CompareMethod.Binary)

                Dim text3 As String = Strings.Replace(Array(0), "/", "\", 1, -1, CompareMethod.Binary)

                flag = (Information.UBound(array, 1) > 0)

                If flag Then

                    replacement = Strings.Replace(expression, array(0) + "?manifest=", "", 1, -1, CompareMethod.Binary)

                End If

                Dim num As Short = CShort(FileSystem.FreeFile())

                FileSystem.FileOpen(CInt(num), text3, OpenMode.Binary, OpenAccess.[Default], OpenShare.[Default], -1)

                text2 = Strings.Space(CInt(FileSystem.LOF(CInt(num))))

                FileSystem.FileGet(CInt(num), text2, -1L, False)

                FileSystem.FileClose(New Integer() {CInt(num)})

                flag = (Operators.CompareString(Strings.Mid(text3, Strings.Len(text3) - 2, 3), "htm", False) = 0)

                Dim str As String

                If flag Then

                    text2 = Strings.Replace(text2, "[ManifestTokenHere]", replacement, 1, -1, CompareMethod.Binary)

                    str = "HTTP/1.1 200 OK" & vbCrLf & "Content-Length: " + Strings.LTrim(Conversion.Str(Strings.Len(text2))) + vbCrLf & "Content-Type: text/html" & vbCrLf

                Else

                    str = "HTTP/1.1 200 OK" & vbCrLf & "Content-Length: " + Strings.LTrim(Conversion.Str(Strings.Len(text2))) + vbCrLf & "Content-Type: text/plain" & vbCrLf

                End If

                Me.Winsock1.SendData(str + vbCrLf + text2)

                Me.Timer1.Interval = 5000

                Me.Timer1.Start()

            Else

                Me.Winsock1.Close()

                Me.Close()

            End If

        Catch expr_202 As Exception





        End Try



    End Sub