Cara Memunculkan Info Computer Name & IP Address VB 6.0

1:03:00 AM
Pada Tips n Trik VB 6.0 kali ini adalah Cara Memunculkan Info Computer Name IP Address Dengan VB 6.0

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

Untuk Hasil langkah diatas bisa anda Donwload dengan KLIK LINK INI

Salam,
BelajarVB.com

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan