Source Code Aplikasi Info Komputer & IP Address Menggunakan VB 6.0

Coding Program Info Komputer & IP Address

Berikut Langkahnya :
Buka Aplikasi VB 6.0 anda
Design Form seperti gambar dibawah ini :
Design diatas terdapat :
Label1
Label2
Label3
Label4
Label5
Label6
Winsock1

Note :
Untuk mendapatkan Winsock1 anda bisa menambahkan Component Winsock terlebih dahulu :

Kemudian masukan Koding dibawah ini :

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
    Dim dwLen As Long
    Dim strString As String
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    GetComputerName strString, dwLen
    strString = Left(strString, dwLen)
    Label4.Caption = "" & strString & ""
    Label5.Caption = "" & Winsock1.LocalHostName & ""
    Label6.Caption = "" & Winsock1.LocalIP & vbCrLf & ""
End Sub

dan Silahkan jalankan Aplikasi Vb 6.0 anda

Download Source Code Program