Source Code Aplikasi Info Komputer & IP Address Menggunakan VB 6.0

Ditulis olehAdi Gunawan -
Artikel Terkait Source Code VB6
Pada Tips n Trik VB 6.0 kali ini adalah Cara Memunculkan Info Computer Name IP Address Dengan 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


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini.
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini.
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini.
Tag