تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج كود يجلب رقم IP
#1
السلام عليكم روحمة الله وبركاته 
محتاج كود يجلب رقم IP  للجهاز المتصل ويظهره في التكست 1
من شبكة LAN محليه 
يعني عندي برنامج لما يتصل ويدخل البرنامج يقرأ IP
الرد
تم الشكر بواسطة: awidan76
#2
PHP كود :
       Public Function GetMyIP() As List(Of IPAddress)

 
           Dim lst As New List(Of IPAddress)(4)
 
           Dim IPs As IPAddress() = Dns.GetHostEntry(Dns.GetHostName).AddressList

            For Each ip 
As IPAddress In IPs
                If IsIPv4
(ip.ToStringThen lst.Add(ip)
 
           Next

            Return lst
        End 
Function


 
       Public Function IsIPv4(ByVal IP As String) As Boolean

            If IP
.Length 15 Then Return False
            If IP
.Contains(":"Then Return False

            Dim s
() As String IP.Split(".")
 
           If Not UBound(s) = 3 Then Return False
            For i 
0 To UBound(s)
 
               If s(i).Length Or s(i).Length 0 Then Return False
                For j 
0 To s(i).Length 1
                    If Not s
(i).Chars(jLike "#" Then Return False
                Next
            Next

            Return True
        End 
Function 

تحتاج إلى إستيراد مكتبة System.Net أولا
الرد
تم الشكر بواسطة: zinom , الشاكي لله , adel27 , adel27 , ابو ليلى , awidan76
#3
ده كمان  كود يقوم بنفس العمليه

استدعيها في حدث الفورم لود

كود :
   Dim my_ip As String = System.Net.Dns.GetHostByName(My.Computer.Name).AddressList(0).ToString()
       TextBox1.Text = my_ip
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد
#4
شكراً لكم وزادكم الله من علمه 
سبحان من جمعكم في رد واحد الأثنين يــما وقفتم معاي والله جميلكم على راسي يا أساتذتي 
ولكن يأشر بالأخضر 
System.Net.Dns.GetHostByName
أستدعيت NamesPase 
system.net
الرد
تم الشكر بواسطة: awidan76
#5
بسييييطةةة

كود :
Dim ip As String = New Net.WebClient().DownloadString("https://wtfismyip.com/text")
        MsgBox(ip)
الرد
تم الشكر بواسطة: ابو ليلى , awidan76 , awidan76
#6
(21-12-16, 12:27 AM)adel27 كتب : ولكن يأشر بالأخضر 
System.Net.Dns.GetHostByName

السلام عليكم

يؤشر الأخضر ليخبرك أن تستخدم GetHostEntry بدلا من GetHostByName ولكن سيعطيك AddressList(0).ToString بمعلومة غير صحيحة لما تريد
لهذا طريقة التعامل مع GetHostEntry كالتالي
كود :
Dim localIP As String =
    Dns.GetHostEntry(Dns.GetHostName).AddressList.
    Where(Function(x) x.ToString.Split(".").Count = 4).
    FirstOrDefault.ToString

MsgBox(localIP)
الرد
تم الشكر بواسطة: ابو ليلى , Fantastico , Fantastico , zinom , zinom , awidan76
#7
جرب الدالة التالية
PHP كود :
Private Function GetIP() As String
        GetIP 
String.Empty
 
       Dim strHostName As String System.Net.Dns.GetHostName()
 
       Dim ip As System.Net.IPHostEntry System.Net.Dns.GetHostEntry(strHostName)

 
       For Each ips As System.Net.IPAddress In ip.AddressList
            If ips
.AddressFamily System.Net.Sockets.AddressFamily.InterNetwork Then
                GetIP 
ips.ToString()
 
           End If
 
       Next

    End 
Function 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
تم الشكر بواسطة: Basil Abdallah , zinom , awidan76
#8
اشكرك استاذ ابو ليلى
فقد استفدت من اشارتك الى AddressFamily

فعدلت الكود الذي في مشاركتي ليصبح كالتالي
كود :
Dim localIP As String =
   Dns.GetHostEntry(Dns.GetHostName).AddressList.
   Where(Function(x) x.AddressFamily.Equals(Sockets.AddressFamily.InterNetwork)).
   FirstOrDefault.ToString

MsgBox(localIP)

اشكرك استاذ ابو ليلى
الرد
#9
(22-12-16, 09:52 PM)مساعدة كتب : اشكرك استاذ ابو ليلى
فقد استفدت من اشارتك الى AddressFamily

فعدلت الكود الذي في مشاركتي ليصبح كالتالي
كود :
Dim localIP As String =
   Dns.GetHostEntry(Dns.GetHostName).AddressList.
   Where(Function(x) x.AddressFamily.Equals(Sockets.AddressFamily.InterNetwork)).
   FirstOrDefault.ToString

MsgBox(localIP)

اشكرك استاذ ابو ليلى


السلام عليكم 
شكرا لارشادي لطريقة استخراج الاي بي المحلي و التي اثبتت فعلا نجاعتها 
لا يزال امامي عائق و هو الحصول على اسم الكارت الذي تم استخراج الاي بي الخاص به 
فرجاءا ساعدني لأنني لا أطلب المساعدة إلا اذا بحثت و تأكدت 
شكرا مسبقا
الرد
تم الشكر بواسطة: Fantastico , Fantastico , awidan76 , awidan76
#10
جزاكما الله خير
الرد
تم الشكر بواسطة: awidan76


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] محتاج كود dubai.eig 4 850 17-03-16, 07:20 PM
آخر رد: dubai.eig
  [VB.NET] محتاج بعض الأكواد لتعطيل بعض المهام adel27 2 953 23-02-16, 12:30 PM
آخر رد: adel27
  محتاج كود فتح ملف + تسمية ملف adel27 0 642 26-10-15, 08:30 PM
آخر رد: adel27

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم