时间：2005-08-16 11:26 来源：本站原创 作者：未知请作… 阅读：次

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Public Function UserName() As String
Dim cn As String
Dim ls As Long
Dim res As Long

cn = String(1024, 0)
ls = 1024
res = GetUserName(cn, ls)
If res <> 0 Then
UserName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
UserName = ""
End If
End Function

(责任编辑：admin)

上一篇：如何建立简单的超级连接？(ShellExecute)
下一篇：API中VB字符串作参数传递的本质论

• ·API函数详细解释
• ·Access从剪切版里复制和粘贴数据
• ·Access利用api实现打开/关闭光驱
• ·应用程序开机自动启动（注册表操作技巧
• ·Access VBA 判断网络是否连通的多种办
• ·什么是ADP,了解ADP的优缺点
• ·优秀产品大全--通用票据打印软件(新)
• ·[技巧分享]多条Shell语句执行导致判断
• ·在access中可以调用API函数GetFileInfo
• ·Access API集中营--增加临时使用的字体
• ·API ShellExecute 功能说明及应用示例
• ·在VB中使用API函数(什么是API? )
• ·API实现完美的图片出现效果（转）
• ·API 设置调整系统当前时间
• ·如何检测以及设置键盘状态
• ·不关闭当前数据库COPY当前数据库