[vb.net] Récupération du nom de la machine
Résolu
Merry29
Messages postés
78
Date d'inscription
mercredi 21 juillet 2004
Statut
Membre
Dernière intervention
23 février 2009
-
2 févr. 2006 à 11:46
Merry29 Messages postés 78 Date d'inscription mercredi 21 juillet 2004 Statut Membre Dernière intervention 23 février 2009 - 2 févr. 2006 à 16:22
Merry29 Messages postés 78 Date d'inscription mercredi 21 juillet 2004 Statut Membre Dernière intervention 23 février 2009 - 2 févr. 2006 à 16:22
10 réponses
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
29
2 févr. 2006 à 13:16
2 févr. 2006 à 13:16
Salut,
lim < Manquerait pas une ligne de code ou deux dans ton accesseur Get ??
NinJoDo < Pas besoin des APi en VB.NET. Ceci suffit
MessageBox.Show(SystemInformation.ComputerName)
CR
lim < Manquerait pas une ligne de code ou deux dans ton accesseur Get ??
NinJoDo < Pas besoin des APi en VB.NET. Ceci suffit
MessageBox.Show(SystemInformation.ComputerName)
CR
NinJoDo
Messages postés
23
Date d'inscription
mercredi 11 février 2004
Statut
Membre
Dernière intervention
5 mars 2007
2 févr. 2006 à 11:58
2 févr. 2006 à 11:58
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function nomordi() As String
' Retourne le nom de l'ordinateur
Dim stTmp As String, lgTmp As Long, requete As String
stTmp = Space$(250)
lgTmp = 251
Call GetComputerName(stTmp, lgTmp)
ComputerName = Left$(stTmp, lgTmp)
Msgbox (stTmp)
@ toute
Public Function nomordi() As String
' Retourne le nom de l'ordinateur
Dim stTmp As String, lgTmp As Long, requete As String
stTmp = Space$(250)
lgTmp = 251
Call GetComputerName(stTmp, lgTmp)
ComputerName = Left$(stTmp, lgTmp)
Msgbox (stTmp)
@ toute
cs_lim
Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
7
2 févr. 2006 à 12:21
2 févr. 2006 à 12:21
Salut
'Classe qui donne le nom de la machine
Public
Class DonneNomMachine
Public
Shared
ReadOnly
Property MachineName()
As
String
Get
End
Get
End
Property
End
Class
'Utilisation
Dim NomdeMachine as string=MachineName
@+
LIM
'Classe qui donne le nom de la machine
Public
Class DonneNomMachine
Public
Shared
ReadOnly
Property MachineName()
As
String
Get
End
Get
End
Property
End
Class
'Utilisation
Dim NomdeMachine as string=MachineName
@+
LIM
Utilisateur anonyme
2 févr. 2006 à 13:30
2 févr. 2006 à 13:30
Bonjour,
Si tu est sur vs2005, utilise My.Computer.Name
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Si tu est sur vs2005, utilise My.Computer.Name
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merry29
Messages postés
78
Date d'inscription
mercredi 21 juillet 2004
Statut
Membre
Dernière intervention
23 février 2009
1
2 févr. 2006 à 13:47
2 févr. 2006 à 13:47
Merci à vous!!!
Lim : En effet je pense qu'il manque qqch dans ton code!! tu as juste
effectué une property qui porte le nom MachineName mais qui ne fait
rien...
Crenaud76 : Je pense que je vais utilisé ta fonction!! mais que faut-il
importer car system seul ne fonctionne pas et en le parcourant un peu
je ne trouve pas...
Merci pour aux autres pour vos réponses!
Lim : En effet je pense qu'il manque qqch dans ton code!! tu as juste
effectué une property qui porte le nom MachineName mais qui ne fait
rien...
Crenaud76 : Je pense que je vais utilisé ta fonction!! mais que faut-il
importer car system seul ne fonctionne pas et en le parcourant un peu
je ne trouve pas...
Merci pour aux autres pour vos réponses!
Merry29
Messages postés
78
Date d'inscription
mercredi 21 juillet 2004
Statut
Membre
Dernière intervention
23 février 2009
1
2 févr. 2006 à 14:05
2 févr. 2006 à 14:05
Bon en fait j'ai trouvé... j'étais dans ma couche data... hors c'est nécessaire d'être dans une forme!!
Merci à vous!
Merci à vous!
cs_lim
Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
7
2 févr. 2006 à 14:24
2 févr. 2006 à 14:24
Je veux bien avoir oublié quelquechose, mais quelqu'un pourrait-il m'expliquer pourkoi çà marche ?
@+
LIM
@+
LIM
Merry29
Messages postés
78
Date d'inscription
mercredi 21 juillet 2004
Statut
Membre
Dernière intervention
23 février 2009
1
2 févr. 2006 à 14:50
2 févr. 2006 à 14:50
Bah ça m'étonnait alors j'ai essayé et... ça ne fonctionne pas chez moi!! ça me renvoi, comme prévu..., "nothing"!
Vérifie que tu n'as pas une fonction du même nom ou qqchose comme ça
dans la class dans laquelle tu effectue : Dim NomdeMachine as
string=MachineName!!
car si on suit ta façon de faire,cad d'appeler ta fonction d'une autre classe on devrait écrire :
Dim Machine as new DonneNomMachine
Dim NomdeMachine as string =
Machine.
MachineName
au lieu de :
Dim NomdeMachine as string=MachineName
Vérifie que tu n'as pas une fonction du même nom ou qqchose comme ça
dans la class dans laquelle tu effectue : Dim NomdeMachine as
string=MachineName!!
car si on suit ta façon de faire,cad d'appeler ta fonction d'une autre classe on devrait écrire :
Dim Machine as new DonneNomMachine
Dim NomdeMachine as string =
Machine.
MachineName
au lieu de :
Dim NomdeMachine as string=MachineName
cs_lim
Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
7
2 févr. 2006 à 16:10
2 févr. 2006 à 16:10
OK, je vais farfouiller pour trouver le pourkoi du comment!
Merci
@+
LIM
Merci
@+
LIM
Merry29
Messages postés
78
Date d'inscription
mercredi 21 juillet 2004
Statut
Membre
Dernière intervention
23 février 2009
1
2 févr. 2006 à 16:22
2 févr. 2006 à 16:22
à l'endroit ou tu appelles ta fonction!! selectionne là et fais juste
un "go to the definition"!! (par clic droit) et regarde ou quelle est
la fonction appelé!
un "go to the definition"!! (par clic droit) et regarde ou quelle est
la fonction appelé!
