Các chiêu thức trong lập trình Lấy tên người sử dung của Windownshome

Lấy tên người sử dung của Windownshome 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" ByVa

Lấy tên người sử dung của Windownshome

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