会python真的可以为所欲为0(回)
399天前
这里还有人吗1(回)
584天前这里还有人吗0(回)
584天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
809天前到处都是羊，不想上班0(回)
889天前
鸽子
0(回)
893天前Imports System |
Imports System.Net |
Module Module1 |
Sub Main() |
Dim strMachineName As String |
'得到主机名 |
strMachineName = Dns.GetHostName() |
Console.WriteLine("Host Name: " + strMachineName) |
'通过名字得到主机 |
Dim ipHost As IPHostEntry |
ipHost = Dns.GetHostByName(strMachineName) |
'你可以得到网络上任何站点的DNS数据信息。 |
'语法如下： |
'ipHost = Dns.GetHostByName("xml.sz.luohuedu.net") |
Console.WriteLine("Host Aliases: " + ipHost.Aliases.Length.ToString()) |
'以数组的形式返回相关主机的地址信息 |
Dim ipAddr() As IPAddress = ipHost.AddressList |
Dim count As Integer |
'Enumerate the IP Addresses |
For count = 0 To ipAddr.GetUpperBound(0) |
Console.Write("IP 地址 {0}：{1} ", count, _ |
ipAddr(count).ToString) |
Next |
End Sub |
End Module |
