Deteksi IP Komputer dengan VB 6

1.    Buka VB 6 dan pilih standart EXE.
2.    Masukkan Komponen Winsock & Microsoft Windows Common Controls 6 (SP6) dengan cara klik kanan pada Toolbox dan pilih Components

Beri tanda centang pada Microsoft Winsock Control 6.0 & Microsoft Windows Common Controls 6 (SP6).

3.    Masukkan 1 buah progressbar, 1 buah timer, 4 buah label dan 2 buah command button. Atur propertinya sebagai berikut :

a.    Progressbar  ( Max = 30000)
b.    Timer1 (Enabled = False dan Interval = 1000)
c.    Label1 (Caption = Waktu)
d.    Label2 (Caption = Nama Komputer)
e.    Label3 (Caption = IP Komputer)
f.    Label4 (Caption = Port)
g.    Command1 (Caption = Deteksi)
h.    Command2 (Caption = Keluar)

Berikut ini adalah tampilan Form yang telah diubah propertinya:

4.    Kode

Dim a As Integer
Private Sub Command1_Click()
For a = 1 To 30000
    ProgressBar1.Value = a
Next a
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format _
    (Now, "HH:MM:SS - dd mmmm yyyy")
Label2.Caption = "Nama Komputer : " _
    & Winsock1.LocalHostName
Label3.Caption = "IP Komputer : " & _
    Winsock1.LocalIP
Label4.Caption = "Port : " _
    & Winsock1.LocalPort
End Sub

5.    Tes program sederhana ini dengan menekan tombol F5
6.    Selamat mencoba !!!