user

Du bruger API kaldet GetUserName:

Declare Function GetUserName Lib \"advapi32.dll\" Alias \"GetUserNameA\" (ByVal lpBuffer As String, nSize As Long) As Long

jeg har lavet et modul og sat koden ind som du gav mig

kan jeg kalde den sådan her?
MsgBox Module1.GetUserName

ellers hvordan?

Eksempel: Her gemmes brugernavnet i \'User\' og der vises en MsgBox med brugernavnet:


Declare Function GetUserName Lib \"advapi32.dll\" Alias \"GetUserNameA\" (ByVal lpBuffer As String, nSize As Long) As Long
Dim Ans As Long
Dim S As Long
Dim User As String

Sub Main()
User = Space(255)
S = 255
Ans = GetUserName(User, S)
If Not Ans = 0 Then MsgBox \"Brugernavn: \" + User, vbInformation, \"Bruger\"
End Sub


Se evt: http://www.vbapi.com/ref/g/getusername.html