Dalam penggunaan coding jaringan, terkadang pengecekan IP address sangat diperlukan. Tergantung kebutuhan untuk apa dulu. Di visual basic 6 sudah ada kontrol yang mendukung untuk mengecek IP address komputer sobat. Baik untuk mengecek IP internal maupun eksternal.
Coding untuk mengecek IP Address sangat simpel. Ikuti langkah - langkah berikut ini :
1. Buka Visual Basic 6 sobat. Buatlah sebuah Project baru
2. Tambahkan control Label. Beri nama LBLIP
3. Tambahkan control Microsoft Internet Transfer Control 6.0. Beri nama Inet1
4. Tambahkan control Timer. Isi Value dengan nilai 50
5. Masukkan coding sebagai berikut
Dim MyIP As String
LBLIP.Caption = ""
LBLIP.Caption = "Mohon tunggu ..."
On Error Resume Next
MyIP = Inet1.OpenURL(http://pavel.kuzub.com/ip)
LBLIP.Caption = MyIPTimer1.Enabled = False
If LBLIP.Caption = "" Then
LBLIP.Caption = "Tidak bisa terkoneksi"
End If
LBLIP.Caption = "Mohon tunggu ..."
On Error Resume Next
MyIP = Inet1.OpenURL(http://pavel.kuzub.com/ip)
LBLIP.Caption = MyIPTimer1.Enabled = False
If LBLIP.Caption = "" Then
LBLIP.Caption = "Tidak bisa terkoneksi"
End If
Selesai. Kini sobat bisa mengetes sendiri. Pergunakan sebuah Command Button untuk mengetes.
Silakan dicoba
