~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : UserName (ByVal lpBuffer As String, nSize As Long) As Long Public Function UserName() As String ' Retourne le nom de l'utilisateur courant de l'ordinateur Dim stTmp As String, lgTmp As Long stTmp = Space$(250) lgTmp = 251 Call GetUserName(stTmp, lgTmp) UserName = Left$(stTmp, lgTmp - 1) End Function |