28-06-20, 01:35 AM
السلام عليكم
ان شاء الله تكونو بألف خير
عملت لوكال هوست و اضفت كود php لافتح في البروزر
و لكن لما وضعته يفتح ك صفحة عادية و لا ينفذ الامر
ان شاء الله تكونو بألف خير
عملت لوكال هوست و اضفت كود 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