Sisam Intermedia

Mungkin anda sewaktu-waktu ketika berkunjung ke warnet, komputer teman, komputer di kampus/sekolah iseng ingin mengetahui nama komputer si user berikut IP adressnya tanpa harus masuk dulu ke My Network Place. Sedikit trik membuat aplikasi kecil untuk mengetahui IP address user dengan menggunakan VB 6.0.. Semoga bermanfaat.......!

Ini Source Codenya :

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 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

If Image1.Visible = True Then

Image2.Visible = True

Image1.Visible = False

ElseIf Image2.Visible = True Then

Image3.Visible = True

Image2.Visible = False

ElseIf Image3.Visible = True Then

Image4.Visible = True

Image3.Visible = False

ElseIf Image4.Visible = True Then

Image1.Visible = True

Image4.Visible = False

End If

End Sub