Mengetahui Username windows di Visual Basic

Tentunya setiap programer selalu haus akan rasa penasaran, kali ini saya akan berbagi mengenai cara Mengetahui Username Windows di Visual basic. Memang secara tidak langsung ini sesuatu yang tidak aneh, tapi selaku programer kita harus banyak mengetahui tentang bahasa pemograman supaya bisa terlatih menjadi Programer Professional. Langkah-langkahnya cukup mudah, berikut langkah-langkah cara mengetahui Username Windows di Visual Basic :

Komponen :

1. Tambahkan 1 CommandButton
2. Tambahkan 2 TextBox masing-masing TextBox namanya "Text1" dan "Text2"

Private Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib “kernel32″ Alias “GetComputerNameA” (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()
Dim Commstr As String, nErr As Long
Commstr = Space(255)
nErr = GetComputerName(Commstr, 255)
GetCommName = Commstr
Dim lpBuff As String * 25
Dim ret As Long
ret = GetUserName(lpBuff, 25)
Get_UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) – 1)
Text1.Text = Get_UserName
Text2.Text = GetCommName
End Sub