PB获取系统用户名
平時寫程序時會用到系統用戶名,現將實現方法貼出,大家分享!
1、申明API函數
FUNCTION?ulong?WNetGetUser(ref?string?lpName,ref?string?lpUserName,ref?ulong?lpnLength)?LIBRARY?"mpr.dll"?ALIAS?FOR?"WNetGetUserA"?
2、PB腳本語言
?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)
以上腳本在WIN2000下測試通過
1、申明API函數
FUNCTION?ulong?WNetGetUser(ref?string?lpName,ref?string?lpUserName,ref?ulong?lpnLength)?LIBRARY?"mpr.dll"?ALIAS?FOR?"WNetGetUserA"?
2、PB腳本語言
?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)
以上腳本在WIN2000下測試通過
總結
- 上一篇: ViewStub
- 下一篇: 使用TFHpple解析html