bassystem.bas

来自「Control your PC with Mobile Phone-it con」· BAS 代码 · 共 18 行

Attribute VB_Name = "basSystem"
Public Function LoggedInUser() As String
On Error GoTo ErrTrap
'To get logged on user
Dim strUserName As String
    'Create a buffer
    strUserName = String(100, Chr$(0))
    'Get the username
    GetUserName strUserName, 100
    'strip the rest of the buffer
    strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
    LoggedInUser = strUserName
    Exit Function
ErrTrap:
    Exit Function
End Function