Download

[Download][slideshow]

View Point

[viewpoint][btop]

Mengambil Nama Komputer / Login Komputer di VB

Baca Juga

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 :

Mengambil Nama Komputer / Login Komputer di VB

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.


Hai.., Saya ,ini Portofolio saya Terima kasih telah membaca artikel 'Mengambil Nama Komputer / Login Komputer di VB' jika rekan-rekan ingin membeli/berdonasi atau memesan program yang terdapat diartikel silahkan hubungi saya di :
Halaman Donasi
BBM : 54D54BDE or
Line/Telegram : didenkuswendi atau blackfanatic
WhatsApp : 0857 8221 2277
E-mail : didenkuswendi@gmail.com

No comments:

yuu.. kita budayakan berkomentar.. bersilaturahmi itu memperpanjang umur... ^_^