+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اخواني اريد كود لي اظهار ip علي اداه label1 (/showthread.php?tid=30439)
اخواني اريد كود لي اظهار ip علي اداه label1 - XCoder - 22-07-19
السلام عليكم
اخواني اريد كود لي اظهارip الخاص بجهاز الكمبيوتر المستخدم للبرنامج علي اداه label1
وشكرا مقدما
RE: اخواني اريد كود لي اظهار fps علي اداه label1 - Abou Eman - 22-07-19
ما هو ال fps
RE: اخواني اريد كود لي اظهار fps علي اداه label1 - XCoder - 22-07-19
(22-07-19, 03:37 AM)Abou Eman كتب : ما هو ال fps
عذراء اخي اقصد ip الجهاز
RE: اخواني اريد كود لي اظهار fps علي اداه label1 - bakriano30@yahoo.com - 22-07-19
(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
RE: اخواني اريد كود لي اظهار ip علي اداه label1 - سعود - 22-07-19
فيه نوعين آي بي: محلي - بعيد
RE: اخواني اريد كود لي اظهار ip علي اداه label1 - XCoder - 22-07-19
(22-07-19, 06:37 AM)سعود كتب : فيه نوعين آي بي: محلي - بعيد
اريد معرفت كيف يمكني ان اظهر الاتنين
RE: اخواني اريد كود لي اظهار ip علي اداه label1 - سعود - 22-07-19
المحلي كما هو مكتوب هنا
البعيد تبرمج صفحة 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
كمثال.
اذا صارت هناك مشكلة في المحتوى فالغالب انه تم اضافة نصوص اخرى وهنا نضطر لوضع وسوم تحدد النتيجة ونقراها بطريقة اخرى.