Soyez le premier à donner votre avis sur cette source.
Vue 8 136 fois - Téléchargée 956 fois
Option Explicit ' Publié par 69VobD3 (DivX-Paradise.net) Private Declare Function GetVolumeInformation Lib "kernel32" _ Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As String, _ ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, _ lpMaximumComponentLength As Long, _ lpFileSystemFlags As Long, _ ByVal lpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize As Long) As Long Public Function RecupIdHdd(sLecteur As String) As Long 'Definit les variables locales Dim Serial As Long, VName As String, FSName As String 'Creation des tampons VName = String$(255, Chr$(0)) FSName = String$(255, Chr$(0)) 'Obtient les informations du volume GetVolumeInformation Left(sLecteur, 3), VName, 255, _ Serial, 0, 0, FSName, 255 VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1) FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1) 'Récupère le numéro de série RecupIdHdd = Trim(Str$(Serial)) End Function
22 déc. 2007 à 19:44
il faut trouver le numéro de série de proceceur
17 juin 2003 à 10:48
getvolumeinformations = donne les infos du volume.Donc les infos partitions.Y'a déjà une chiée + 1 de sources com ca ici.Si tu trouve les infos du disque dur, alors là tu innove ... et ca m'interresserait vivement !
17 juin 2003 à 10:47
getvolumeinformations = donne les infos du volume.Donc les infos partitions.Y'a déjà une chiée + 1 de sources com ca ici.Si tu trouve les infos du disque dur, alors là tu innove ... et ca m'interresserait vivement !
3 juil. 2002 à 09:14
'Dim oFSO As Object, vLecteur As Variant
'Set oFSO = CreateObject("Scripting.FileSystemObject")
'Set vLecteur = oFSO.GetDrive(oFSO.GetDriveName( _
oFSO.GetAbsolutePathName(sLecteur)))
'lNSD = vLecteur.SerialNumber
'Set vLecteur = Nothing
'Set oFSO = Nothing
VBLOCKER : PROTÉGEZ VOTRE APPLICATION COMMERCIALE
http://www.vbfrance.com/article.aspx?Val=4123
1 juil. 2002 à 18:19
(Les commentaires ne sont pas tous traduits)
et en plus, je regarde pourquoi ça ne marche pô chez moi ...
LOL
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.