تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج مساعدة في اكمال الكود
#5
(02-05-17, 05:06 PM)zinom كتب :
1-التعديل

كود :
                   Dim response_200() As Byte = enc.GetBytes("HTTP/1.1 200 OK" & vbCrLf & file_Type & "server:MRI-server=" & Application.StartupPath & "\HomePage\index.html")

- وممكن باردو تستبدل دي (
كود :
\index.html"
بالمتغير النصي cek عشان يبقي الكود زي ما صاحب الفديو عامله
كود :
& cek


كود :
                   Dim response_200() As Byte = enc.GetBytes("HTTP/1.1 200 OK" & vbCrLf & file_Type & "server:MRI-server=" & Application.StartupPath & "\HomePage" & cek)

2- المفروض انو موجود فولدر اسمه (HomePage) في مسار الملف التنفيذي للمشروع بتاعك
زي الكود ده ما بيقول



3-جواه صفحة رئيسيه (index.html-3)
مرتبطه بعدة صفح تانيه زي صفحة الفديو الي ظاهر الي المفروض اسمها (Video_Test_Body.html)
طبعا ده زي ما هوا ظاهر في الفديو

جرب التعديل وقولي النتيجه

لم ينجح اخي الكريم وقد ارفقت لك  المشروع  احسن لترى بنفسك


الملفات المرفقة
.rar   HTTP Server.rar (الحجم : 242.47 ك ب / التحميلات : 51)
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
RE: محتاج مساعدة في اكمال الكود - بواسطة bidaya - 02-05-17, 09:09 PM


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


يقوم بقرائة الموضوع: