√ Mengambil Nama Komputer / Login Komputer di VB

Mengambil Nama Komputer / Login Komputer di VB

Senin, 12 Desember 2016

Mengambil Nama Komputer / Login Komputer di VB - pada beberapa kondisi, pada saat membangun sebuah aplikasi, ada kalanya membutuhkan nama user / login pada sebuah komputer.. entah sebagai alamat/path atau sebagai sebuah keyword tertentu pada aplikasinya.

kali ini penulis berbagi bagaimana cara Mengambil Nama Komputer / Login Komputer di VB, sebelumnya perlu pembaca ketahui, coding dibawah dibuat pada bahasa pemrograman Visual Basic 6, bagi yang sudah menggunakan VB .NET maka tinggal sesuaikan saja, seharusnya tidak banyak yg dirubah.

Sediakan form kosong, lalu pastekan koding dibawah :

Private Declare Function apigetcomputername Lib "kernel32" Alias "GetComputerNameA" (ByVal lpbuffer As String, nsize As Long) As Long
Private Function getpcname() As String
Dim sresult As String
sresult = Space(255)
Call apigetcomputername(sresult, 255)
getpcname = stripterminator(sresult)
End Function

Private Function stripterminator(sstring As String) As String
stripterminator = Left$(sstring, InStr(sstring, Chr$(0)) - 1)
End Function

Private Sub Form_Load()
Me.Caption = getpcname
End Sub

double click untuk memblok coding
selebihnya silahkan pembaca berkarya engan fungsi getpcname diatas sesuai kebutuhan.