Tutorial Membuat Deteksi IP Komputer dengan VB 6

Misi, si tampan ini mau share Cara membuat Deteksi IP Komputer dengan VB 6 semoga soalnya udah muter - muter gak nemu juga tutorial ini 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 :




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 :



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'

NB : Kalo ada masalah silahkan comment di bawah NO JUNK,SPAM,OOUT dll tapi kalo ente nanya ane gak bisa jawabnya jangan marah ya soalnya masih newbie jadi kalo ada yang mengerti tolong di bimbing

Thx..