منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عمل سيرفر Local وربطه ببرنامج فيجوال بيسك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عمل سيرفر Local وربطه ببرنامج فيجوال بيسك (/showthread.php?tid=24651)

عمل سيرفر Local وربطه ببرنامج فيجوال بيسك - عبدالرحمن المكاوي - 25-04-18

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

RE: عمل سيرفر Local وربطه ببرنامج فيجوال بيسك - فراس الغزي - 25-04-18

السلام  عليكم  

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

RE: عمل سيرفر Local وربطه ببرنامج فيجوال بيسك - عبد الرؤوف - 26-04-18

(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


RE: عمل سيرفر Local وربطه ببرنامج فيجوال بيسك - عبدالرحمن المكاوي - 26-04-18

(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
اخي اريد بمجرد فتح البرنامج يقوم البرنامج بفتح السيرفر واريد كيف اضع ملفات ع السيرفر والاتصال بها بواسطة اداة ويب براوزر وعند اغلاق البرنامج يغلق السيرفر

RE: عمل سيرفر Local وربطه ببرنامج فيجوال بيسك - عبد الرؤوف - 26-04-18

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

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

RE: عمل سيرفر Local وربطه ببرنامج فيجوال بيسك - عبدالرحمن المكاوي - 27-04-18

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

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

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

RE: عمل سيرفر Local وربطه ببرنامج فيجوال بيسك - عبد الرؤوف - 27-04-18

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

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

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

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