طريقه معرفه الاى بى الخارجى والداخلى للجهاز

طريقه معرف الاى بى الخارجى والداخلى للجهاز

اولا نبدا باى بى الشبكة (الخارجى) وهنستعين بموقع http://checkip.dyndns.org وده لان الاى بى الخارجى للجهاز بيكون موجود على النت بس والدالة هتكون كالتالى

رمز برمجي:

Private Function Get_External_IP()

        Dim wc = New Net.WebClient()
        Dim utf8 = New System.Text.UTF8Encoding()
        Dim page As String = utf8.GetString(wc.DownloadData("http://checkip.dyndns.org/"))
        wc.Dispose()
        Dim ipPattern As String = "\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b"
        Dim ipRegex = New System.Text.RegularExpressions.Regex(ipPattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
        Dim ipMatch As System.Text.RegularExpressions.Match = ipRegex.Match(page)

        Return ipMatch.ToString

End Function

واستخدامها هيكون كالتالى

رمز برمجي:

TextBox2.Text = Get_External_IP()

نيجى بقى دلوقتى لمعرفه الاى بى الداخلى او اى بى الجهاز هنستخدم الدالة دى

رمز برمجي:

Private Function Get_Local_IP()

        Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)

        Return h.AddressList.GetValue(0).ToString


End Function

والاستخدام بيكون كالتالى

رمز برمجي:

TextBox1.Text = Get_Local_IP()

Posted in: برمجة