33.htm

来自「vb功能实例介绍。详细、很好的实例说明。」· HTM 代码 · 共 18 行

<p>获得用户网络登录名</p>
<p></p>
<p>Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long</p>
<p></p>
<p>Public Function NTDomainUserName() As String</p>
<p>Dim strBuffer As String * 255</p>
<p>Dim lngBufferLength As Long</p>
<p>Dim lngRet As Long</p>
<p>Dim strTemp As String</p>
<p></p>
<p>lngBufferLength = 255</p>
<p>lngRet = GetUserName(strBuffer, lngBufferLength)</p>
<p>strTemp = UCase(Trim$(strBuffer))</p>
<p>NTDomainUserName = Left$(strTemp, Len(strTemp) - 1)</p>
<p></p>
<p>End Function</p>
<p></p>