A voir également:
- [VB] recupération des info utilisateurs
- Vb cable - Télécharger - Audio & Musique
- Info pc - Guide
- Vb - Télécharger - Langages
- Wifi info view - Télécharger - Divers Réseau & Wi-Fi
- Crystaldisk info - Télécharger - Informations & Diagnostic
3 réponses
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
24 mars 2005 à 12:24
24 mars 2005 à 12:24
Salut,
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, NSize As Long) As Long
Dim Buff As String * 255
Dim NSize As Long
Dim Ret As Long
Dim UsrName As String
NSize = Len(Buff)
Ret = GetUserName(Buff, NSize)
UsrName = Left(Buff, NSize)
UsrName = Left(UsrName, Len(UsrName) - 1)
MsgBox UsrName
A+
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, NSize As Long) As Long
Dim Buff As String * 255
Dim NSize As Long
Dim Ret As Long
Dim UsrName As String
NSize = Len(Buff)
Ret = GetUserName(Buff, NSize)
UsrName = Left(Buff, NSize)
UsrName = Left(UsrName, Len(UsrName) - 1)
MsgBox UsrName
A+
Merci de ce code pour la recuperation du nom d'utilisateur mais puis-je continuer par attendre l'autre volet?
