Membuat tools pencari IP local dengan VB.Net

Ini merupakan postingan pertama li mengenai pemrograman, karena li sebenarnya kurang tertarik dengan pemrograman. Tapi ntah kenapa belakangan ini pengen banget mempelajari VB.Net terutama pemrograman jaringannya menggunakan VB.Net. dan di postingan pertama ini, li mau share bagaiamana membuat tools sederhana untuk mengecek IP address local..

Tambahkan 2 TextBox untuk bagian Hostname dan untuk Lokasi IP Address nya, serta 1 button untuk prosess get IP nya. Berikut gambarnya

Imports System.Net

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim HostName As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
        Dim ip As IPAddress() = HostName.AddressList
        TextBox2.Text = ip(0).ToString()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox2.TextAlign = HorizontalAlignment.Center

    End Sub

End Class

Maaf ni kalau postinganya kurang lengkap.. Masih baru belajar VB.Net

Semoga bermanfaat..