Các chiêu thức trong lập trình Lấy tên người sử dung của Windownshome
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (53.92 KB, 1 trang )
Lấy tên người sử dung của Windowns home
Xuất xứ : www.allapi.net
Binh khí sử dụng : 1 Module
Đoạn mã :
Module :
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal
lpBuffer As String, nSize As Long) As Long
Form :
Sub Get_User_Name()
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
MsgBox UserName
End Sub
Private Sub Form_Load()
Get_User_Name
End Sub
