681
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
TGWall 2004-10-09
- 打赏
- 举报
恭喜！
Fancy_Free 2004-10-09
- 打赏
- 举报
这个问题已经搞定，谢谢几位
flappySoft 2004-10-09
- 打赏
- 举报
api函数的很强大，可以扩展pb的功能
jb99334 2004-10-09
- 打赏
- 举报
同意调用api函数
10975037 2004-10-09
- 打赏
- 举报
gong xi le !!
hwh88888 2004-10-08
- 打赏
- 举报
要用到api函数，具体代码如下：
FUNCTION ulong WNetGetUser(ref string lpName,ref string lpUserName,ref ulong lpnLength) LIBRARY "mpr.dll" ALIAS FOR "WNetGetUserA"
string ls_name, ls_username
ulong ll_len
ll_len = 256
ls_username = space(ll_len)
setnull(ls_name)
WNetGetUser(ls_Name,ls_UserName,ll_Len)
messagebox("用户名",ls_username)
FUNCTION ulong WNetGetUser(ref string lpName,ref string lpUserName,ref ulong lpnLength) LIBRARY "mpr.dll" ALIAS FOR "WNetGetUserA"
string ls_name, ls_username
ulong ll_len
ll_len = 256
ls_username = space(ll_len)
setnull(ls_name)
WNetGetUser(ls_Name,ls_UserName,ll_Len)
messagebox("用户名",ls_username)
