منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اخواني اريد كود لي اظهار ip علي اداه label1

السلام عليكم

اخواني اريد كود لي اظهارip الخاص بجهاز الكمبيوتر المستخدم للبرنامج علي اداه label1

وشكرا مقدما

ما هو ال fps

(22-07-19, 03:37 AM)Abou Eman كتب : [ -> ]ما هو ال fps

عذراء اخي اقصد ip الجهاز

(22-07-19, 04:34 AM)XCoder كتب : [ -> ]
(22-07-19, 03:37 AM)Abou Eman كتب : [ -> ]ما هو ال fps

عذراء اخي اقصد ip الجهاز

استدعيها في حدث الفورم لود
Dim my_ip As String = System.Net.Dns.GetHostByName(My.Computer.Name).AddressList(0).ToString()
label1.Text = my_ip

فيه نوعين آي بي: محلي - بعيد

(22-07-19, 06:37 AM)سعود كتب : [ -> ]فيه نوعين آي بي: محلي - بعيد

اريد معرفت كيف يمكني ان اظهر الاتنين

المحلي كما هو مكتوب هنا
البعيد تبرمج صفحة aspx ان حبيت وترفعها على موقع يدعم asp.net ومحتوى الكود:

PHP كود :

      '************getting the ip************
        Dim sIPAddress As Object
        sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        If sIPAddress = "" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR")
        '''''''''''''''''''''''''''''''''''''''''''''
        Me.Controls.Clear()
        Response.Write(sIPAddress)
        '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 

كما تشاهد بالكود ستكون الصفحة فقط آي بي عند زيارتها (اذا لم يتدخل الموقع بالتعديل او اضافة)
وبالبرنامج تكتب
Label1.text=saud.somee.com/ip.aspx
كمثال.
اذا صارت هناك مشكلة في المحتوى فالغالب انه تم اضافة نصوص اخرى وهنا نضطر لوضع وسوم تحدد النتيجة ونقراها بطريقة اخرى.