دخول

**عبدالرحمن المكاوي** · 25-04-18, 02:33 PM

السلام عليكم اخواني
انا اريد ان اصنع سيرفر localhost واقوم برفع عليه بعض البرنامج لن الاستضافة لم تتحمل ضغط الاشخاص
فبحث ف الانترنت عن طريقة ووجدت هذا الكود عمل لوكال سيرفر #C لكني اريد تحويله الي vb.net ارجو مساعدتي

**فراس الغزي** · 25-04-18, 09:51 PM

السلام عليكم

اخي العزيز انت عن ماذا تبحث بالضبط في هذا المجال عن كود الاتصال ام ماذا ارجو التضيح حتى الاخوان يساعدونك فيه

**عبد الرؤوف**

(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 E1-(' server -- port 5000!</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 E1-(' server -- port 5000!</body></html>")) context.Response.OutputStream.Write(_responseArray, 0, _responseArray.Length) context.Response.KeepAlive = False context.Response.Close() End While End Sub End Class

اخي اريد بمجرد فتح البرنامج يقوم البرنامج بفتح السيرفر واريد كيف اضع ملفات ع السيرفر والاتصال بها بواسطة اداة ويب براوزر وعند اغلاق البرنامج يغلق السيرفر

**عبد الرؤوف**

(25-04-18, 02:33 PM)عبدالرحمن المكاوي كتب : اخي اريد بمجرد فتح البرنامج يقوم البرنامج بفتح السيرفر واريد كيف اضع ملفات ع السيرفر والاتصال بها بواسطة اداة ويب براوزر وعند اغلاق البرنامج يغلق السيرفر

تفظل اتمنى يكون المطلوب

**عبدالرحمن المكاوي** · 27-04-18, 01:42 AM

(26-04-18, 02:39 PM)عبد الرؤوف كتب :
(25-04-18, 02:33 PM)عبدالرحمن المكاوي كتب : اخي اريد بمجرد فتح البرنامج يقوم البرنامج بفتح السيرفر واريد كيف اضع ملفات ع السيرفر والاتصال بها بواسطة اداة ويب براوزر وعند اغلاق البرنامج يغلق السيرفر

تفظل اتمنى يكون المطلوب

ليس مقصدي للاسف Huh

لكني لدي مشروع به نفس الخاصية ولكن توجد به بعض الاخطاء هل ارسله اليك لتراه !؟

**عبد الرؤوف** · 27-04-18, 04:38 AM

(27-04-18, 01:42 AM)عبدالرحمن المكاوي كتب :
(26-04-18, 02:39 PM)عبد الرؤوف كتب :
(25-04-18, 02:33 PM)عبدالرحمن المكاوي كتب : اخي اريد بمجرد فتح البرنامج يقوم البرنامج بفتح السيرفر واريد كيف اضع ملفات ع السيرفر والاتصال بها بواسطة اداة ويب براوزر وعند اغلاق البرنامج يغلق السيرفر

تفظل اتمنى يكون المطلوب

ليس مقصدي للاسف لكني لدي مشروع به نفس الخاصية ولكن توجد به بعض الاخطاء هل ارسله اليك لتراه !؟

ارسله ربما استطيع مساعدتك

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	جهاز ارسال رسائل SMS من خلال برنامج فيجوال بيسك	جيولوجي مبتدئ	4	1,012	05-09-25, 12:37 PM آخر رد: جيولوجي مبتدئ
	مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك	ahmedfa71	13	2,213	09-07-25, 11:24 PM آخر رد: أبو خالد الشكري
	[VB.NET] حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك	abo ragab	7	1,199	09-07-25, 12:45 AM آخر رد: abo ragab
	مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت	سيد أحمد	5	815	23-03-25, 10:54 PM آخر رد: سيد أحمد
	كيف يمكن تحويل ملف تنفيذى الى فيجوال بيسك 2010	walkady	2	778	07-02-25, 07:57 PM آخر رد: الورد2
	[مشروع] مطلوب برنامج نظام صيدليه بالفيجوال بيسك 2010	May-5	13	10,771	07-02-25, 07:55 PM آخر رد: الورد2
	كيفية التعامل مع inputbox في فيجوال ستوديو	أسامة حسين	4	3,496	14-01-25, 02:04 AM آخر رد: أبو خالد الشكري
	افضل نسخة فيجوال نت مافيها مشاكل	Wolfalwolf20	0	299	13-12-24, 05:40 PM آخر رد: Wolfalwolf20
	[VB.NET] تحويل لغة الأرقام في فيجوال ستوديو	AboBattal	2	383	12-11-24, 08:11 AM آخر رد: أبو خالد الشكري
	السلام عليكم ممكن كود بحث فى برنامج مصمم بالفيجوال بيسك وقاعدة بيانات اكسس	خالد كامل1	1	457	08-10-24, 02:37 PM آخر رد: salamandal