‹‹ 上一主题 | 下一主题 ››
发新话题
打印

[其他相关] VB编程取得 windows 用户ID方法代码

snowfox373

我是奥运火炬手,Oh YeaH!

管理员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

刘翔快跑啊~~~

UID
4976 
帖子
9238 
精华
15 
积分
13318 
金币
666 个 
共享
905 个 
行业
建筑设计 
阅读权限
200 
在线时间
774 小时 
最后登录
2008-11-20 
楼主 大 中 小 发表于 2007-10-8 17:43  只看该作者

VB编程取得 windows 用户ID方法代码

在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函数必须先进行声明！
赠人玫瑰，手有余香。

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题