Pemrograman Jaringan - Mendeteksi IP Address

Mendeteksi IP Address di komputer kita terkadang IP Address yang kita set
selalu berubah hal ini akan menjadi masalah kalau kita mendefiniskan dalam program IP
yang digunakan bersifat statis.

Dalam program ini didefinisikan pula mengetahui nama ip dari nama sebuah domain, dalam
hal ini user mengetikan nama domain di nama web jika anda lihat pada desain program.
Ketika diklik maka program akan menampikan IP Address yang dimiliki oleh facebook
sebagai contoh pada program. Anda dapat lihat hasilnya adalah 66.220.158.11
Silahkan anda buka firefox atau browser internet anda dengan 66.220.158.11, dan lihat
halaman web apa yang akan tampil.

Jika komputer anda memiliki alamat IP versi 6, maka alamat versi 6 anda akan tampil, jika
anda ingin memiliki IP versi 6, dalam modul ini akan dijelaskan pula set IP versi 6.

Properti yang digunakan dalam form tersebut yaitu:
• Label sebanyak 4 buah
• Textbox sebanyak 4 buah
• Button

Import yang digunakan agar VB net mengenali program yang kita ketikan yaitu:
• Imports System.Net
• Imports System.Net.Sockets

Untuk pendeteksian IP Address dari domain
Dim hostname2 As IPHostEntry = Dns.GetHostByName(TextBox1.Text) menyimpan
nama domain web.

Dan alamat domain, misalkan facebook ditampilkan di
TextBox2.Text = ip2(0).ToString()

Ip Komputer sendiri ditampilkan di
TextBox3.Text = ip(0).ToString()

Untuk alamat mac address ditampilkan di
TextBox4.Text = curAdd.ToString()

Kode lengkap nya dapat anda lihat di Kode program mendeteksi IP Address

Imports System.Net
Imports System.Net.Sockets
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
Dim hostname2 As IPHostEntry =
Dns.GetHostByName(TextBox1.Text)
Dim hostname As IPHostEntry =
Dns.GetHostEntry(System.Environment.MachineName)
Dim ip As IPAddress() = hostname.AddressList
Dim ip2 As IPAddress() = hostname2.AddressList
TextBox3.Text = ip(0).ToString()
TextBox2.Text = ip2(0).ToString()
Dim curAdd As IPAddress
For Each curAdd In hostname.AddressList
'=== Retrieve only IPv4 ====
If curAdd.AddressFamily = AddressFamily.InterNetwork
Then
TextBox4.Text = curAdd.ToString()
End If
Next curAdd
End Sub
End Class