RÉCUPÉRER LE NOM DU USER
cs_Isa45
Messages postés
7
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
27 octobre 2003
-
30 janv. 2002 à 10:09
mySQL15 Messages postés 79 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 28 août 2010 - 16 avril 2010 à 22:47
mySQL15 Messages postés 79 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 28 août 2010 - 16 avril 2010 à 22:47
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/2508-recuperer-le-nom-du-user
https://codes-sources.commentcamarche.net/source/2508-recuperer-le-nom-du-user
16 avril 2010 à 22:47
le code de Microsoft (a mettre dans un module)
' Makes sure all variables are dimensioned in each subroutine.
Option Explicit
' Access the GetUserNameA function in advapi32.dll and
' call the function GetUserName.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
' Main routine to Dimension variables, retrieve user name
' and display answer.
Sub Get_User_Name()
' Dimension variables
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
' Display the User Name
MsgBox UserName
End Sub
tu l'appelle avec "Get_User_Name" dans ta form
1 févr. 2004 à 00:20
1 févr. 2004 à 00:18
30 janv. 2002 à 10:09