IP Numarasını ,Ülke ve Il Adını Öğrenme

Arkadaşlar bu makalede sitenize bağlanan kişilerin ip numarasını gösterebilirsiniz. Ayrıca bu Ip numarasının hangi Ülkeye ve İle ait olduğunu bulabilirsiniz.Aşağıdaki örnek resme bakabilirsiniz.

Şekil 1

Forma yazılacak kodlar:

Imports System
Imports System.Net

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ip_no As String = Request.ServerVariables("REMOTE_ADDR")

        Dim dokuman As Xml.XmlDocument = New Xml.XmlDocument
        dokuman.Load("http://www.showmyip.com/xml/?ip=" + ip_no)

        Dim Ulke As Xml.XmlNodeList = dokuman.GetElementsByTagName("lookup_country")
        Dim Il As Xml.XmlNodeList = dokuman.GetElementsByTagName("lookup_city2")

        ip_no = "Ülke :" & Ulke(0).InnerText & " Il :" & Il(0).InnerText & " " & "IP Numaraniz:" & ip_no
        Response.Write(ip_no)

    End Sub

End Class