VB编程取得 Windows 用户ID方法

您现在的位置：星云网络 >> 文章中心 >> 基础学习 >> 编程学习 >> 文章正文

文章搜索:

作者：佚名文章来源：本站原创点击数：更新时间：2007-10-13

在VB编程设计中我们有时候需要取得windows用户的ID，其实很简单，下面给大家放出代码。

以下是引用片段：
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
　　"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
　　Dim aa As Long
　　Dim len5 As Long
　　Dim usern As String

　　len5 = 256
　　usern = String(255, 0)
　　aa = GetUserName(usern, len5)
　　usern = Left(usern, InStr(1, usern, Chr(0)) - 1)
　　Debug.Print usern
End Sub

　　在这里，我们使用了一个API函数GetUserName，VB中使用API函数必须先进行声明！

加入网摘：365Key | 新浪ViVi | 和讯网摘 | 天极网摘 | POCO网摘

文章录入:文章录入：2006xynt 责任编辑：2006xynt

网络赞助