mapbasic或者vb中如何获取xp用户当前登陆名

来源：百度知道 编辑：UC知道 时间：2024/06/25 12:34:58
mapbasic或者vb中 如何获取windowsxp 当前用户的登录名 就像飞鸽传说那软件就能获得用户登陆计算机的名字显示出来 但是vb跟mapbasic里我不会 求教下mabasic 是mapinfo的basic

GetUserName

VB声明
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
说明
取得当前用户的名字
返回值
Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError
参数表
参数 类型及说明
lpBuffer String，一个字串缓冲区，预先初始化成由nSize指定的长度。它将用于容纳用户名
nSize Long，初始化成lpBuffer的长度。返回以后，它会包含载入lpBuffer的字符数量
示例
Dim s$, cnt&, dl&
cnt& = 199
s$ = String$(200,0)
dl& = GetUserName(s$, cnt)
Debug.Print Left$(s$, cnt); cnt

VB可以通过调用API来实现。。

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

应该是在vb中调用api读当前用户的登陆名。
mapbasic语言是用来对mapinfo进行图形操作的。