Mendapatkan Nama dan Alamat IP Komputer (VB6)

1. Buatlah sebuah proyek dengan nama LocalIP.vbp.

2. Buat sebuah form bernama frmLocalIP dengan tampilan sebagai berikut.



3. Set properties-nya menjadi sebagai berikut.

Obyek	Property	Nilai
txtHost	BackColor	&H00C0C0C0
txtHost	Locked	True
txtIP	BackColor	&H00C0C0C0
txtIP	Locked	True

4. Tambahkan kode seperti di bawah ini.

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdResolve_Click()
txtHost.Text = sck.LocalHostName
txtIP.Text = sck.LocalIP
End Sub

Private Sub Form_Load()
Show
cmdResolve.SetFocus
End Sub

5. Jalankan program. Tekan tombol Resolve, maka nama komputer dan alamat IP-nya akan tertera.