AFFICHER LE NOM D'UTILISATEUR ET LE NOM DE L'ORDINATEUR !
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
14 nov. 2005 à 08:46
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 14 nov. 2005 à 15:30
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 14 nov. 2005 à 15:30
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/34626-afficher-le-nom-d-utilisateur-et-le-nom-de-l-ordinateur
https://codes-sources.commentcamarche.net/source/34626-afficher-le-nom-d-utilisateur-et-le-nom-de-l-ordinateur
14 nov. 2005 à 15:30
http://www.vbfrance.com/code.aspx?ID=8546
et tant d'autres ainsi.
donc inutile, disparaitra dans la soirée.
14 nov. 2005 à 14:14
Et comme le dit si bien Renfield, tu aurais fait une recherche sur ce même site, tu aurais remarqué que ta source n'est en rien exceptionnelle vu qu'elle est redondante.
De plus, celle-ci comporte quelques erreurs soulignées par Renfield.
14 nov. 2005 à 13:57
"c'est mon premier code" mon oeuil... rien qu'à le voir ca fait au moins deux ans que tu fais du VB ;)
et aussi, arrêtez de dire "j'ai oublié ton peudo" il vous uffit de le taper, le nom du code que vous avez touvé, dans le moteur de recherche, et vous trouvez illico le nom de son auteur...
Franchement, fa fait la XXXème fois que je vois ca... mais bon.
Juste en passant
sinon côté source pas de pb cher moi, continue !
14 nov. 2005 à 08:47
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 )
14 nov. 2005 à 08:46
pourquoi dupliquer les variables (RetVal, ton Buffer, et lgBuf...)
une fois la donnée affichée dans ton label, tu peux réutiliser les variables
ton code aurait donc pu être :
Private Sub Form_Load()
Dim RetVal As Long
Dim lgBuf As Long
Dim Buffer As String * 256
Length = 256
If GetUserName(Buffer, Length) Then
Label5.Caption = Left$ ( Buffer , Length )
Else
Label5.Caption = VbNullstring
End If
Length = 256
If GetComputerName(Buffer, length) Then
Label6.Caption = Left$ ( Buffer , Length )
Else
Label6.Caption = VbNullstring
End If
End Sub
j'ajouterai que ce sujet a été maintes fois débattu, et que cette source est surement en trois ou quatre exemplaires sur le site.... à vérifier