7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
guofu1070 2005-11-30
- 打赏
- 举报
居然没人会？
feiyun0112 2005-11-30
- 打赏
- 举报
Private Declare Function ApiGetWindowsUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim strBuffer As String
Dim lngSize As Long
strBuffer = Space$(255)
lngSize = Len(strBuffer)
Call ApiGetWindowsUserName(strBuffer, lngSize)
If lngSize > 0 Then
GetWinUserName = Left$(strBuffer, lngSize)
Else
GetWinUserName = ""
End If
Dim strBuffer As String
Dim lngSize As Long
strBuffer = Space$(255)
lngSize = Len(strBuffer)
Call ApiGetWindowsUserName(strBuffer, lngSize)
If lngSize > 0 Then
GetWinUserName = Left$(strBuffer, lngSize)
Else
GetWinUserName = ""
End If
rose_886886 2005-11-30
- 打赏
- 举报
学习!~~~~~~~~
northwolves 2005-11-30
- 打赏
- 举报
Private Sub Command1_Click()
MsgBox Environ("USERNAME")
'MsgBox Environ("LOGONSERVER")
End Sub
MsgBox Environ("USERNAME")
'MsgBox Environ("LOGONSERVER")
End Sub
