السلام عليكم اخواني
انا اريد ان اصنع سيرفر localhost واقوم برفع عليه بعض البرنامج لن الاستضافة لم تتحمل ضغط الاشخاص
فبحث ف الانترنت عن طريقة ووجدت هذا الكود
عمل لوكال سيرفر #C لكني اريد تحويله الي vb.net ارجو مساعدتي
السلام عليكم
اخي العزيز انت عن ماذا تبحث بالضبط في هذا المجال عن كود الاتصال ام ماذا ارجو التضيح حتى الاخوان يساعدونك فيه
(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
(26-04-18, 02:22 AM)عبد الرؤوف كتب : [ -> ] (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
اخي اريد بمجرد فتح البرنامج يقوم البرنامج بفتح السيرفر واريد كيف اضع ملفات ع السيرفر والاتصال بها بواسطة اداة ويب براوزر وعند اغلاق البرنامج يغلق السيرفر
(26-04-18, 02:22 AM)عبد الرؤوف كتب : [ -> ] (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
اخي اريد بمجرد فتح البرنامج يقوم البرنامج بفتح السيرفر واريد كيف اضع ملفات ع السيرفر والاتصال بها بواسطة اداة ويب براوزر وعند اغلاق البرنامج يغلق السيرفر
(26-04-18, 02:39 PM)عبد الرؤوف كتب : [ -> ] (25-04-18, 02:33 PM)عبدالرحمن المكاوي كتب : [ -> ]اخي اريد بمجرد فتح البرنامج يقوم البرنامج بفتح السيرفر واريد كيف اضع ملفات ع السيرفر والاتصال بها بواسطة اداة ويب براوزر وعند اغلاق البرنامج يغلق السيرفر
تفظل اتمنى يكون المطلوب
ليس مقصدي للاسف
لكني لدي مشروع به نفس الخاصية ولكن توجد به بعض الاخطاء هل ارسله اليك لتراه !؟
(27-04-18, 01:42 AM)عبدالرحمن المكاوي كتب : [ -> ] (26-04-18, 02:39 PM)عبد الرؤوف كتب : [ -> ] (25-04-18, 02:33 PM)عبدالرحمن المكاوي كتب : [ -> ]اخي اريد بمجرد فتح البرنامج يقوم البرنامج بفتح السيرفر واريد كيف اضع ملفات ع السيرفر والاتصال بها بواسطة اداة ويب براوزر وعند اغلاق البرنامج يغلق السيرفر
تفظل اتمنى يكون المطلوب
ليس مقصدي للاسف لكني لدي مشروع به نفس الخاصية ولكن توجد به بعض الاخطاء هل ارسله اليك لتراه !؟
ارسله ربما استطيع مساعدتك