COMMENT RÉCUPÉRER LE NOM DU USER CONNECTÉ À WINDOWS ?

Signaler
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
-
bibi1981
Messages postés
3
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
23 octobre 2004
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20850-comment-recuperer-le-nom-du-user-connecte-a-windows

thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
5
10 / 10

y'a les deux solutions bon code pour memo ou pour les nouveaux
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010

Pour environ(ji est pensez des k jai vu le nom de ta source) sa ma fait pensez, à l'aide de "labout", que cette fonctionpeu donnez plus d'info que sa donc voici son code:

dim i as integer
for i = 1 to 42
msgbox environ(i)
doevents
next i

si sa peut servir.
cs_nono1135
Messages postés
52
Date d'inscription
jeudi 5 septembre 2002
Statut
Membre
Dernière intervention
2 mars 2006

Merci pour la note.
j'en ai eu besoin perso, et j'ai pensé que sa pourrais servir à d'autres.
C'est vrai que cette petite fonction peu donner plein de renseignements.
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
On pourrais coder ca autrement, en tirant davantage parti de la fonction, et de tout ce qu'elle fait :

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

Public Function UserName() As String
'# On créé une variable tampon, pour contenir ce que renverra la fonction
Dim Buffer As String * 250
'# Cette variable va permettre de spécifier et de récupérer la taille de notre tampon
Dim Size As Long: Size = 251
'# Si la fonction renvoie une valeur <> 0, elle a fait son oeuvre...
If GetUserName(Buffer, Size) Then
'# Size contient maintenant le nombre de caractères copiés dans Buffer
UserName = Left$(Buffer, Size)
End If
End Function
spycollege
Messages postés
50
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
8 mars 2007

cool ^^
10/10