تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] التعديل على كود
#1
السلام عليكم
ان شاء الله تكونو بألف خير
اصدقائي ممكن تعديل على هذا الكود
كود :
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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ممكن التعديل على المثال بتبديل أدوات ديف اكسبريس إلى أدوات فيجوال بيسك rfhdgd 3 82 24-02-20, 03:06 AM
آخر رد: alsalamoni
  [سؤال] هل استطيع نسخ الفريم و التعديل علية بسام محمدغانم 1 95 03-02-20, 09:57 PM
آخر رد: alsalamoni
Heart [VB.NET] سوال بخصوص حفظ صوره بفيجوال بيسك دوت نت بعد التعديل عليها سواء بالرسم او اضافه صوره صالح لطفى 1 152 03-02-20, 10:21 AM
آخر رد: بسام محمدغانم
Question [سؤال] كود لمنع المستخدم من التعديل او الحذف و السماح له بالاضافه Mahmoud moaaz 4 234 17-01-20, 04:52 AM
آخر رد: Mahmoud moaaz
  [VB.NET] كود التعديل Hassan.syria 1 104 28-12-19, 01:30 AM
آخر رد: boudyonline
  [VB.NET] استفسار عن كود الاستعلام التعديل واستعلام الحذف Hassan.syria 0 99 27-12-19, 08:27 PM
آخر رد: Hassan.syria
  [نقاش] التعديل علي قاعده بيانات sql عن بعد abo3li8555 1 174 14-11-19, 06:32 PM
آخر رد: asemshahen5
  اريد التعديل البسيط علي مشروعي اليوم السابع 8 375 07-11-19, 12:07 PM
آخر رد: اليوم السابع
  [VB.NET] بعد تعبئة خانة معينة منع التعديل في النموذج khairallah 3 250 15-10-19, 03:51 PM
آخر رد: elgokr
  طلب التعديل على هذا الكود ليضيف من التكست بوكس لملف التكست الخارجى على زهران 4 421 11-10-19, 02:59 AM
آخر رد: على زهران

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم