Tutorial Membuat Deteksi IP Sederhana With Video

Tutorial Membuat Deteksi IP Sederhana With Video , Bagi kalian yang belum mengerti cara membuat Deteksi IP sederhana menggunakan VB6 Langsung aja lihat video dibawah ini :

Untuk Code :

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