150.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 19 行

<p>得到登入windows 的人的id </p>
<p></p>
<p></p>
<p>　</p>
<p></p>
<p>Private Declare Function GetUserName Lib "advapi32.dll" Alias _</p>
<p>        "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>Dim aa As Long</p>
<p>Dim len5 As Long</p>
<p>Dim usern As String</p>
<p>len5 = 256</p>
<p>usern = String(255, 0)</p>
<p>aa = GetUserName(usern, len5)</p>
<p>usern = Left(usern, InStr(1, usern, Chr(0)) - 1)</p>
<p>Debug.Print usern</p>
<p>End Sub</p>