Windows 操作系統提供不同的用戶賬戶，所以每個用戶可以登錄到系統中并具有對他們的文件和設置的訪問權。如果想要跟蹤哪個用戶運行了一個 Visual Basic 6 程序，那么你就需要確定當前用戶的名稱然后將其以某種方式存儲起來。這個技巧將告訴你如何去實現這一需要。

    API 函數GetUserName就是專門為這一用途而設計的。該函數的聲明為：

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

    第一個參數是一個字符串，用來返回用戶名；第二個參數是一個數字，表示返回的字符串的長度。在函數成功時返回值是非零（True），失敗時返回值為0（False）。我還從來沒有碰到過個函數失敗的情況，所以我總是忽略檢查返回值。

    要使用這個函數，你必須創建一個字符串并用空格填充該字符串。空格的數目由字符串的長度確定，也就是能作為用戶名返回的字符串的最大長度。因為人們從來不選擇長用戶名，所以我發現40個字符長就足夠用了。下面是代碼。

    Dim UserName As String
    UserName = Space(40)

    然而就是簡單地調用GetUserName函數，如下所示：

    GetUserNameUserName, Len(UserName)

    在這個調用之后，變量UserName將包含當前用戶的名稱。在需要時你可以在程序中使用這個方法（例如，將其存儲到一個日志文件或者存儲到注冊表中以跟蹤誰在使用這個程序）。