Tutorial Membuat Deteksi IP Komputer dengan VB 6

ehmm ,,, misi si tampan ini ( Tampan :ooo )mau share Cara membuat Deteksi IP Komputer dengan VB 6 semoga no soalnya udah muter - muter gak nemu juga tutorial ini kalo  tutup thered aja om momod, ikuti langkah - langkah ini ya harus sama persis :inidia :


Persiapan : 

1. Visual Basic 6.0 << Cari di engkong gugle usahakan yang vull ya 
2. Kopi + Rokok << Biar gak mumet 
3. Lagu om Bob Marley << Biar gak pusing 

Tutorial : 

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 Untuk lebih jelas lihat gambar berikut : 

spoiler for 'SS': 

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 :

>> Progressbar ( Max = 30000)
>> Timer1 (Enabled = False dan Interval = 1000)
>> Label1 (Caption = Waktu)
>> Label2 (Caption = Nama Komputer)
>> Label3 (Caption = IP Komputer)
>> Label4 (Caption = Port)
>> Command1 (Caption = Deteksi)
>> Command2 (Caption = Keluar)

Berikut ini adalah tampilan Form yang telah diubah propertinya :

Spoiler: 

4. Kode : 

PHP Code:

Dim a As IntegerPrivate 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'