PDA

View Full Version : سوال: چاپ کردن IP در lable در VB.NET



moein_nasa
پنج شنبه 22 تیر 1391, 05:35 صبح
سلام
دوستان چطور میتونم آدرس IP کامپیوتر خودم رو چه در حالت آفلاین که 127.0.0.1 هست و چه در حالت اتصال به اینترنت در label نمایش بدم؟
در تاپیک سایت آشیانه و p30world این سوال رو مطرح کردم اما جواب درستی نگرفتم و دوستان میگفتن باید IP هارو تفکیک کنی که کدوم اصل کاری هست و ipv4 رو هم با ipv6 جدا کنی اما توضیح بیشتری ندادن !!
من به عنوان یک مبتدی فقط کد اصل کاری رو میخوام...!
با کلیک بر روی Button آدرس IP در Label نمایش داده بشه... همین.
اگه بتونید خیلی ساده و مبتدی کمکم کنید ممنون میشم :چشمک:

peyman677
شنبه 09 دی 1391, 23:41 عصر
با سلام دوست عزیز با این تابع می توانید IP سیستم خود را دریافت کنید :

Public Function GetIP() As String
Dim IPEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHost Name())
Dim IPAddr() As System.Net.IPAddress = IPEntry.AddressList
GetIP = IPAddr(0).ToString
End Function