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