Cara Membuat Tracking IP dari VB.NET

Dan kali ini kita akan belajar membuat Tracking IP adalah salah satu cara untuk mempermudah kita melihat Lokasi IP yang akan kita Cari, tak perlu panjang lebar langsung kita belajar aja

1. Seperti biasa Buka VB.NET dan buat Project baru

2. Buat 1 ListBox, 1 TextBox, Label dan 2 Button

3. Langkah selanjutnya kita akan memasukan perintah agar aplikasi di gunakan

Imports System.Xml
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim xmldoc As New XmlDocument
            Dim xmlnode As XmlNodeList
            Dim i As Integer
            xmldoc.Load("http://freegeoip.net/xml/" & TextBox1.Text)
            xmlnode = xmldoc.GetElementsByTagName("Response")
            For i = 0 To xmlnode.Count - 1
                xmlnode(i).ChildNodes.Item(0).InnerText.Trim()
                ListBox1.Items.Add("IP Address : " & xmlnode(i).ChildNodes.Item(0).InnerText.Trim())
                ListBox1.Items.Add("Country Code : " & xmlnode(i).ChildNodes.Item(1).InnerText.Trim())
                ListBox1.Items.Add("Name : " & xmlnode(i).ChildNodes.Item(2).InnerText.Trim())
                ListBox1.Items.Add("Region Code : " & xmlnode(i).ChildNodes.Item(3).InnerText.Trim())
                ListBox1.Items.Add("Region Name : " & xmlnode(i).ChildNodes.Item(4).InnerText.Trim())
                ListBox1.Items.Add("City : " & xmlnode(i).ChildNodes.Item(5).InnerText.Trim.Trim())
                ListBox1.Items.Add("Zip Code : " & xmlnode(i).ChildNodes.Item(6).InnerText.Trim())
                ListBox1.Items.Add("Latitude : " & xmlnode(i).ChildNodes.Item(7).InnerText.Trim())
                ListBox1.Items.Add("Longitude : " & xmlnode(i).ChildNodes.Item(8).InnerText.Trim())
                ListBox1.Items.Add("Metro Code : " & xmlnode(i).ChildNodes.Item(9).InnerText.Trim())
            Next
        Catch ex As Exception
            MsgBox("An Error Has Occured.")
        End Try
        If TextBox1.Text = "" Then

MsgBox("Please enter a IP Adress to Geo-Locate.")
        End If
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
    End Sub
End Class

4. Aplikasi Sudah Bisa digunakan agar lebih enak untuk dilihat bisa di ganti Skin

5. Disini saya menggunakan Irriskin

Trimakasih