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.ToString) Then 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 > 3 Or s(i).Length = 0 Then Return False
For j = 0 To s(i).Length - 1
If Not s(i).Chars(j) Like "#" Then Return False
Next
Next
Return True
End Function
Dim my_ip As String = System.Net.Dns.GetHostByName(My.Computer.Name).AddressList(0).ToString()
TextBox1.Text = my_ipDim ip As String = New Net.WebClient().DownloadString("https://wtfismyip.com/text")
MsgBox(ip)(21-12-16, 12:27 AM)adel27 كتب : [ -> ]ولكن يأشر بالأخضر
System.Net.Dns.GetHostByName
Dim localIP As String =
Dns.GetHostEntry(Dns.GetHostName).AddressList.
Where(Function(x) x.ToString.Split(".").Count = 4).
FirstOrDefault.ToString
MsgBox(localIP)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
Dim localIP As String =
Dns.GetHostEntry(Dns.GetHostName).AddressList.
Where(Function(x) x.AddressFamily.Equals(Sockets.AddressFamily.InterNetwork)).
FirstOrDefault.ToString
MsgBox(localIP)(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)
اشكرك استاذ ابو ليلى