21-12-19, 12:54 AM
السلام عليكم
ان شاء الله تكونو بألف خير
اصدقائي ممكن تعديل على هذا الكود
انا استعمل اداة winsock لانشاء لوكال هوست و وضعت الملفات في مجلد server
اريد تعديل لوضع الملفات في resources
ان شاء الله تكونو بألف خير
اصدقائي ممكن تعديل على هذا الكود
كود :
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
اريد تعديل لوضع الملفات في resources