[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)

طبعا ده زي ما هوا ظاهر في الفديو

   

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