VB Leggere utente pc

[gyonny]

in una label devo leggere il nome dell'utente connesso al pc.

esiste un'apina o una funzione per farlo?

by
gyonny

[xegallo]

getusername

[amodio]

Originariamente inviato da xegallo
getusername

getusername?

-->parola sconosciuta nell'msdn (riguardo vb)
pero' ho visto che esiste ma fa parte di un'altro linguaggio-->il c

beh per la verita' mi interesserebbe anche a me:bubu:

[amodio]

Declare Function GetUserName Lib "advapi32.dll" _
    Alias "GetUserNameA"(ByVal lpBuffer As String, _
    nSize As Long) As Long
Sub Get_User_Name()
    Dim lpBuff As String * 25
    Dim ret As Long
    'Get the user name minus any trailing
    'spaces found in the name.
    ret = resName(lpBuff, 25)
    UserName = UCase(Left(lpBuff, InStr(lpBuff, Chr(0)) - 1))
    'Gets the length of the name
    strLen = Len(UserName)
    'takes 2 away from that length
    nLen = strLen - 2
    'Gets the first letter of the name - makes uppercase
    fLets = UCase(Left(UserName, 1))
    'Gets the second letter of the name - makes uppercase
    sLets = UCase(Mid(UserName, 2, 1))
    'Gets the rest of the name thats left - makes Lowercase
    rLets = LCase(Mid(UserName, 3, nLen))
    'Puts it all together (ie: P.Smith)
    strUser = fLets & "." & sLets & rLets
End Sub

fighissimo ci ho messo un casino a trovarlo ma funziona da dio
provalo

[gyonny]

io avevo usato questo:

'dichiarazioni
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

'in form load
Dim sBuffer As String
    Dim lSize As Long


    sBuffer = Space$(255)
    lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)

Label25.Caption = Left$(sBuffer, lSize)

ma non funge bene, il mio username è gio, mentre la funzione mi restituisce utente

[amodio]

e allora usa il mio

cmq bella fra un po la utilizzo gio'
tutto fa brodo:tongue:

[xegallo]

Originariamente inviato da amodio
e allora usa il mio

cmq bella fra un po la utilizzo gio'
tutto fa brodo:tongue:

entrambe fanno esattamente la stessa cosa se non ti esce giò vuol dire che non è giò non è l'utente di sistema di windows