Dim S As String = "" For Each item As Net.IPAddress In Net.Dns.GetHostByName(Net.Dns.GetHostName).AddressList S &= item.AddressFamily.ToString & " " & item.ToString & vbCrLf Next MessageBox.Show(S)

arrow
arrow
    全站熱搜

    戮克 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄