'窗体申明部分 Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long '具体实现部分 Private Sub Form_Load() On Error Resume Next Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize > 0 Then txtUserName.Text = Left$(sBuffer, lSize) Else txtUserName.Text = vbNullString End If End Sub
Public Function NetworkUserName() As String Dim lpBuff As String * 25 Dim retval As Long retval = GetUserName(lpBuff, 25) ' trim off any trailing spaces found in the name NetworkUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)End Function
Private Sub Form_Load() TxtValue.text = NetworkUserName() End Sub
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
'具体实现部分
Private Sub Form_Load()
On Error Resume Next
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If
End Sub
Dim lpBuff As String * 25
Dim retval As Long retval = GetUserName(lpBuff, 25)
' trim off any trailing spaces found in the name
NetworkUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)End Function
TxtValue.text = NetworkUserName()
End Sub