[trakktour]

السلام عليكم
ان شاء الله تكونو بألف خير
عملت لوكال هوست و اضفت كود php لافتح في البروزر
و لكن لما وضعته يفتح ك صفحة عادية و لا ينفذ الامر

كود :

   Private Shared _httpListener As HttpListener = New HttpListener

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       _httpListener.Prefixes.Add("http://localhost:5555/")
       _httpListener.Start()
       Dim _responseThread As Thread = New Thread(AddressOf ResponseThread)
       _responseThread.Start()

   End Sub
   Private Shared Sub ResponseThread()

       While True
           Dim context As HttpListenerContext = _httpListener.GetContext
           Dim _responseArray() As Byte = Encoding.UTF8.GetBytes(("<?php echo 'Welcome'; ?>"))
           context.Response.OutputStream.Write(_responseArray, 0, _responseArray.Length)
           context.Response.KeepAlive = False
           context.Response.Close()
       End While

   End Sub