摘要： 说明:取得当前用户的名字库名:advapi32.dll分类:硬件与系统函数实例:获得当前windows登录的用户名Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Form_Load() Dim str As String Dim cnt As Long Dim dl As Long Dim CurUs 阅读全文