SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MindEye en Martes 8 de Abril de 2003, 15:34

Título: Re: ¿ Como Puedo saber el numero de serie del disco duro ?
Publicado por: MindEye en Martes 8 de Abril de 2003, 15:34

- Me puede ayudar alguien con esto, es que me gustaría saber, como localosar el numero de serie del disco duro.

 - Gracias.

Título: Re: ¿ Como Puedo saber el numero de serie del disco duro ?
Publicado por: José D en Martes 8 de Abril de 2003, 16:55

Hay yo solo lo he hecho una vez y de forma más corta, es decir, no con este código que pongo aquí sino con algo más corto pero no recuerdo bien como es, y fijate que no consigo el proyecto porque tengo el disco duro algo regado:D

 

Código: Text

1.  
2. [b]Api:[/b]
3. Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)
4.  
5. [b]Y esto lo pones donde vas a llamar esa información:[/b]
6. Dim cad1 As String * 256
7. Dim cad2 As String * 256
8. Dim numSerie As Long
9. Dim longitud As Long
10. Dim flag As Long
11. Unidad = "C:"
12. Call GetVolumeInformation(Unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
13. MsgBox "Numero de Serie de la unidad " & Unidad & " = " & numSerie
14.  
15.  

Esto sirve para evitar que se cargue el software en PC de los "amigos de lo ajeno" (pero el ejecutable claro) con una sentencia If comparas el serial del discho duro del PC en donde reside el software, y si no es igual a uno indicado, pues que se descargue de memoria y ya:D
Algo así como un AntiCopy

Título: ¿ Como Puedo saber el numero de serie del disco duro ?
Publicado por: MindEye en Martes 8 de Abril de 2003, 21:24

- Gracias