Menampilkan LocalIP (winsock) dengan Visual Basic 6 (VB6)

 

Menampilkan LocalIP (winsock) dengan Visual Basic 6 (VB6)

Silahkan Ikuti Langkah-Langkah di bawah ini:
1. Buka Project baru
2. Tambahkan component Microsoft Winsock Control 6.0

3. Buat:

    1 buah Timer : 
        - Name : Timer1 
        - Interval : 500 

    1 buah Label :
        - Name : Label 
    1 buah Winsock :
        - Name : Winsock1 

4. Copy dan paste Winsock1 (buat control array) 
5. Hapus winsock dengan Name: Winsock1(1)
6. Klik kanan pada form dan pilih view code
7. Buat sebuah function:

Function GetIP() As String 
Load Winsock1(1) 
GetIP = Winsock1(1).LocalIP
Unload Winsock1(1)
 End Function

8. Tambahkan code di bawah ini

Private Sub Timer1_Timer()
Label1.Caption = GetIP
End Sub

9. Jalankan program (run/F5) 
10. Selesai