VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

獲取網路上的用戶名

2002-1-3
某本地設備通過某種方式與網路連接。通過FoxPro程式獲取本地用戶登陸網路時使用的用戶名。這時候本地設備與網路之間的連接必須是存在的。

方案1：利用WNetGetUser函數
DECLARE INTEGER WNetGetUser IN Win32API STRING lpName, STRING @lpUserName,INTEGER @lpnLength
szUserName = SPACE(80)
dwResult = 0
cchBuff = 80
dwResult = WNetGetUser("", @szUserName, @cchBuff)
?substr(szUsername,1,atc(chr(0),szUsername)-1)
?cchBuff

方案2：利用SYS(0)函數
IF allt(substr(sys(0),rat("#",sys(0))+2)) > "1" and
!empty(allt(substr(sys(0),rat("#",sys(0))+2)))
gcUserName = allt(substr(sys(0),rat("#",sys(0))+2))
ELSE
gcUserName = "NotConnected"
ENDIF
事實上，在某些內置了網路功能的PC機（如運行Windows 98的PC機）上，運行以上兩個方案都將返回正在使用本機的用戶名。
作者：蔣清野
通訊位址：清華大學23#421 （100084）
電子郵件：qyjohn@letterbox.com

jakey · 註冊時間: 2003-05-26 文章: 18 第 2 樓

請教一下:可否在VFP中做到,有多少個USER連上我這台主機.即是可以知道我的軟體內,目前有多少使用者正在線上,在區域網路上. Laughing

garfield · 發表於: 星期三六月 18, 2003 3:46 pm 文章主題:

這個功能我有想過要如何做, 須在主機端執行一個監測程式, 在工作端的程式須每隔一分鐘回報說有還在執行中, 且於結束時告知主機端的監測程式. VFP是沒有這種程式, 完全是要自行開發的.

Ruey · 發表於: 星期四六月 19, 2003 11:57 am 文章主題:

1.或許增加一個使用者紀錄檔
你就能解決一個問題
2.NT上有一個使用者連線紀錄

elleryq · 註冊時間: 2007-06-21 文章: 768 第 5 樓

Ruey · 發表於: 星期日七月 13, 2003 8:25 pm 文章主題:

取得用戶名稱又一範例
RetVal = 0
lpUserIDBuffer = SPACE(25) && Return buffer for user ID string
nBufferSize = 25 && Size of user ID return buffer

DECLARE INTEGER GetUserName IN Win32API AS GetName ;
STRING @lpUserIDBuffer, ;
INTEGER @nBufferSize

RetVal = GetName(@lpUserIDBuffer, @nBufferSize)
RETURN LEFT(lpUserIDBuffer,nBufferSize-1)

--------------------------------------------------------------------------------
* Get user name
sUser = GETENV("USERNAME")
kipdole

--------------------------------------------------------------------------------
The similar code retrieving both names -- the user and the computer. Though, why don't we look back at the function SYS(0):

DECLARE INTEGER GetComputerName IN "kernel32" As "GetComputerNameA";
STRING @ lpBuffer,;
INTEGER @ nSize

DECLARE INTEGER GetUserName IN "advapi32.dll" As "GetUserNameA";
STRING @ lpBuffer,;
INTEGER @ nSize

nSize = 250
lpBuffer = SPACE(nSize)

IF GetComputerNameA (@lpBuffer, @nSize) > 0
? "Computer: " + Left(lpBuffer, nSize-1)
ENDIF

nSize = 250
lpBuffer = SPACE(nSize)

IF GetUserNameA (@lpBuffer, @nSize) > 0
? "User: " + Left(lpBuffer, nSize-1)
ENDIF