[farfour]

السلام عليكم
ان شاء الله تكونو بألف خير
اصدقائي ممكن تعديل على هذا الكود

كود :

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

انا استعمل اداة winsock لانشاء لوكال هوست و وضعت الملفات في مجلد server 
اريد تعديل لوضع الملفات في resources