منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : معرفة الاي بي للانترنت InternetIP
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام

توجد طرق كثيرة لمعرفة الايبي للانترنت، ولكن اذا كانت الطريقة تعتمد على موقع غير مضمون بقائه فستحدث مشكلة لو تم اغلاقه

هذه الطريقة تعتمد على موقع معروف وهو dyndns.org
كود :
Public Function InternetIP() As String
    Try
        Dim wc As New Net.WebClient()
        Dim html As String = wc.DownloadString("http://checkip.dyndns.org/")
        Dim ip As String = System.Text.RegularExpressions.Regex.Match(html, "(?<=Current\sIP\sAddress:).+?(?=<)").Value.Trim
        Return ip
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Function