26-04-18, 02:22 AM
(آخر تعديل لهذه المشاركة : 26-04-18, 02:35 AM {2} بواسطة عبد الرؤوف.)
(25-04-18, 02:33 PM)عبدالرحمن المكاوي كتب : السلام عليكم اخواني
انا اريد ان اصنع سيرفر localhost واقوم برفع عليه بعض البرنامج لن الاستضافة لم تتحمل ضغط الاشخاص
فبحث ف الانترنت عن طريقة ووجدت هذا الكود عمل لوكال سيرفر #C لكني اريد تحويله الي vb.net ارجو مساعدتي
تفظل اخي الكود بعد التحويل
كود :
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Net
Imports System.Threading
Public Class Form1
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:5000/")
_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(("<html><head><title>Localhost server -- port 5000</title></head>" + "<body>Welcome to the <strong>E1-(' server</strong> -- <em>port 5000!</em></body></html>"))
context.Response.OutputStream.Write(_responseArray, 0, _responseArray.Length)
context.Response.KeepAlive = False
context.Response.Close()
End While
End Sub
End Class