Как я могу получить IP-адрес системы, отправив mac ip-адрес в качестве ввода с помощью кодирования vb.net?
Как получить имя компьютера и IP-адрес с помощью VB.NET?
Ответ 1
Использовать мой класс:)
My.Computer.Name
как для быстрого поиска в IP-адресе IP
Private Sub GetIPAddress()
Dim strHostName As String
Dim strIPAddress As String
strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)
End Sub
Ответ 2
Private Function GetIPv4Address() As String
GetIPv4Address = String.Empty
Dim strHostName As String = System.Net.Dns.GetHostName()
Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)
For Each ipheal As System.Net.IPAddress In iphe.AddressList
If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
GetIPv4Address = ipheal.ToString()
End If
Next
End Function
Ответ 3
Вот пример этого. В этом примере мы можем получить IP-адрес нашего имени хоста.
Dim strHostName As String = "jayeshsorathia.blogspot.com"
'string strHostName = "www.microsoft.com";
' Get DNS entry of specified host name
Dim addresses As IPAddress() = Dns.GetHostEntry(strHostName).AddressList
' The DNS entry may contains more than one IP addresses.
' Iterate them and display each along with the type of address (AddressFamily).
For Each address As IPAddress In addresses
Response.Write(String.Format("{0} = {1} ({2})", strHostName, address, address.AddressFamily))
Response.Write("<br/><br/>")
Next
Ответ 4
Спасибо Shuwaiee
Я сделал небольшое изменение, хотя уже использовал его в Private Sub
.
Dim GetIPAddress()
Dim strHostName As String
Dim strIPAddress As String
strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
MessageBox.Show("Host Name: " & strHostName & vbCrLf & "IP Address: " & strIPAddress)
Но также изменилось способ отображения деталей, чтобы они отображались на отдельных строках с помощью & vbCrLf &
MessageBox.Show("Host Name: " & strHostName & vbCrLf & "IP Address: " & strIPAddress)
Надеюсь, это поможет кому-то.
Ответ 5
Dim ipAddress As IPAddress
Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
ipAddress = ipHostInfo.AddressList(0)
Ответ 6
Каждая отдельная часть оборудования, подключенная к онлайн-сети, обычно назначается специализированной цифрой, легендарной для того, чтобы быть стандартным протоколом Интернет (IP). up.IP объясняет, что он состоит из четырехлетних подробностей, отбираемых от случайностей (также известный как 'dotted-quad') и аналогичный 127.0.0.1. Для получения дополнительной информации просмотрите сайт моего друга http://www.ipaddresshub.com/
Ответ 7
Показывает имя компьютера, используйте кнопку для вызова
Dim strHostName As String
strHostName = System.Net.Dns.GetHostName(). MsgBox(strHostName)
Показывает имя пользователя, используйте кнопку для вызова
Если TypeOf My.User.CurrentPrincipal - это Security.Principal.WindowsPrincipal Затем
Dim parts() As String = Split(My.User.Name, "\") Dim username As String = parts(1) MsgBox(username) End If
Для IP-адреса это немного сложно, но я стараюсь объяснить как можно больше. Сначала напишите следующий код перед Form1_Load, но после раздела импорта
Открытый класс Form1
Dim mem As String Private Sub GetIPAddress() Dim strHostName As String Dim strIPAddress As String strHostName = System.Net.Dns.GetHostName() strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString() mem = strIPAddress MessageBox.Show("IP Address: " & strIPAddress) End Sub
Затем в разделе Form1_Load просто вызовите его
GetIPAddress()
Результат: при загрузке формы он будет показывать msgbox вместе с IP-адресом, для размещения в Label1.text или в каком-либо другом месте с кодом.
Ответ 8
Imports System.Net
Module MainLine
Sub Main()
Dim hostName As String = Dns.GetHostName
Console.WriteLine("Host Name : " & hostName & vbNewLine)
For Each address In Dns.GetHostEntry(hostName).AddressList()
Select Case Convert.ToInt32(address.AddressFamily)
Case 2
Console.WriteLine("IP Version 4 Address: " & address.ToString)
Case 23
Console.WriteLine("IP Version 6 Address: " & address.ToString)
End Select
Next
Console.ReadKey()
End Sub
End Module
Ответ 9
Только IP-версия 4...
Imports System.Net
Module MainLine
Sub Main()
Dim hostName As String = Dns.GetHostName
Console.WriteLine("Host Name: " & hostName & vbNewLine)
Console.WriteLine("IP Version 4 Address(es):")
For Each address In Dns.GetHostEntry(hostName).AddressList().
Where(Function(p) p.AddressFamily = Sockets.AddressFamily.InterNetwork)
Console.WriteLine(vbTab & address.ToString)
Next
Console.ReadKey()
End Sub
End Module
Ответ 10
Public strHostName As String
Public strIPAddress As String
strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(0).ToString()
MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)