السلام عليكم ورحمة الله
رمضان كريم
لقد تعبة كثيرا في البحث على هذا الكود الموجود في هذا الرابـــــــط
الى انني لما حاولت تطبيقه
المشكلة انه عند تشغيل البرنامج يصبح لا يجيب اي وكانه هناك خطء
يصبح البرنامج جامد اذ لا استطيح حتى اقفاله
اريد وضع زر لتشغيل الكود والاخر لاقفال
ارجو انني قد وضحت السؤال
وشكرا جزيلا 
عندما نشغل البرنامج يصبح لا يجيب لكن الكود يعمل صحيح وللتجريب
نفتح المتصفح ونحط http://127.0.0.1:4040/
نجد ان الكود شغال لكن البرنامج لا يجيب
كود :
Imports System.Net
Imports System.Net.Sockets
Imports System.Textكود :
Dim soc As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Try
soc.Bind(New IPEndPoint(IPAddress.Parse("127.0.0.1"), 4040))
soc.Listen(10)
Me.Text = "Web Server Started ..."
While True
Dim client As Socket = soc.Accept
Dim sb As New System.Text.StringBuilder
Dim html As String = "<html><head><title>Web Server Test</title></head><body><h1>Web Server Hello wolrd!</h1></body></html>"
Dim htmlHeader As String = _
"HTTP/1.0 200 OK" & ControlChars.CrLf & _
"Server: WebServer 1.0" & ControlChars.CrLf & _
"Content-Length: " & html.Length & ControlChars.CrLf & _
"Content-Type: text/html" & _
ControlChars.CrLf & ControlChars.CrLf
Dim headerByte() As Byte = Encoding.ASCII.GetBytes(htmlHeader)
client.Send(headerByte, headerByte.Length, SocketFlags.None)
Dim htmlByte() As Byte = Encoding.ASCII.GetBytes(html)
client.Send(htmlByte, 0, htmlByte.Length, SocketFlags.None)
End While
Catch ex As Exception
MsgBox(ex.Message)
End Tryنفتح المتصفح ونحط http://127.0.0.1:4040/
نجد ان الكود شغال لكن البرنامج لا يجيب
