Ο χρήστης του υπολογιστή (vb)

[lefi]

Θέλω σε μία εφαρμογή στην Visual Basic να βρίσκω ποιός χρήστης χρησιμοποιεί την εφαρμογή δηλαδή το όνομα του λογαριασμου που έχει στον υπολογιστή, Σημ. δεν βρήκα τίποτα στην αναζήτηση κάθε προσπάθεια ευπρόσδεκτή.

[firewalker]

Αν αναφέρεσαι σε vb 6.0 τότε δοκίμασε την παρακάτω συνάρτηση. Αν όχι εδώ είμαστε.

 

>
Private Function UserName() As String
Const UNLEN = 256   ' Max user name length.
Dim user_name As String
Dim name_len As Long

   user_name = Space$(UNLEN + 1)
   name_len = Len(user_name)
   If GetUserName(user_name, name_len) = 0 Then
       UserName = "<unknown>"
   Else
       UserName = Left$(user_name, name_len - 1)
   End If
End Function

[lefi]

Σε V.b. 6.0 αναφέρομαι, θα δοκιμάσω τον κώδικά το συντομότερο και θα σας ενημερώσω.

[firewalker]

Ξέχασα να σου πω ότι πρέπει να βάλει και το εξής στον κώδικα

 

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

[lefi]

1000 ευχαριστώ firewalker o κώδικας έτρεξε κανονικά.

[firewalker]

Δεν κάνει τίποτε. Για ότι χρειαστείς εδώ είμαστε.