1, regarde c'est dans truc et astuce ce code là
2, c'est un code niveau 1
3, j'avou qu'il est pas top comme code, masi je l'ai mis pour montrer qu'il y a plusieurs façon d,arriver au même résultat
ouais je vois pas trop l'interet de cette source. y a deja plein sur le site.
je parie que tu vas bientot nous montrer un code pour donner l'ip du pc??
C'est cool mais bon...en plus y a même pas le moindre commentaire pour les newsb.
je vais de ce pas voir tes autres sources histoire de voir si c'est du même niveau.
Néanmoins ton initiative est louable.
@+
ca n'est pas utilisable, ta source, sous cette forme.
en plus, il manque la declaration d'API...
voici ce que ca donne...
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function API_GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'# Pour Visual Basic 6
Public Function GetComputerName()
Dim Buffer As String * MAX_COMPUTERNAME_LENGTH
Call API_GetComputerName(Buffer, MAX_COMPUTERNAME_LENGTH)
GetComputerName = Split(Buffer, vbNullChar)(0)
End Function
'# Pour Visual Basic 5 (et 6 !! ) :
Public Function GetComputerName()
Dim Buffer As String * MAX_COMPUTERNAME_LENGTH
Dim Length As Long
Length = API_GetComputerName(Buffer, MAX_COMPUTERNAME_LENGTH)
GetComputerName = Left$(Buffer, Length)
End Function
ensuite, il suffit de faire, par exemple :
Private Sub Form_Load()
Call MsgBox(GetComputerName)
End Sub
23 juil. 2003 à 18:49
23 juil. 2003 à 18:48
23 juil. 2003 à 17:44
Private Sub Form_Load()
MsgBox (Winsock1.LocalHostName)
End Sub
@+
Mattflyer
22 juil. 2003 à 17:33
2, c'est un code niveau 1
3, j'avou qu'il est pas top comme code, masi je l'ai mis pour montrer qu'il y a plusieurs façon d,arriver au même résultat
22 juil. 2003 à 17:15
je parie que tu vas bientot nous montrer un code pour donner l'ip du pc??
C'est cool mais bon...en plus y a même pas le moindre commentaire pour les newsb.
je vais de ce pas voir tes autres sources histoire de voir si c'est du même niveau.
Néanmoins ton initiative est louable.
@+