2013年4月5日 星期五

查詢電腦的 IP 位置

如果你有用到 VB 來寫網路相關程式的話
那 IP 對你來說一定很重要!
所以就在就來教你如何用 VB 來查詢 IP 位置~

  ~程式碼 VB~  

Dim HostName As String = Dns.GetHostName()

        Dim HostIP() As IPAddress
        Dim HostIPAdress As String = ""
        HostIP = Dns.GetHostEntry(HostName).AddressList
        For idx As Integer = 0 To HostIP.Length - 1
            If HostIP(idx).AddressFamily = Sockets.AddressFamily.InterNetwork Then
                HostIPAdress = HostIP(idx).ToString
                ListBox1.Items.Add(HostIPAdress)
            End If
        Next
        


    ~VB 說明~   

一、「ListBox1.Items.Add(HostIPAdress)」就是你電腦的 IP。

二、「Dns.GetHostName()」擷取你電腦的名稱。