licjrz
10 de Enero del 2008

Alguien me podria explicar o mandar un ejemplo de como crear una licencia en mi sistema para que nadamas se pueda"instalar en esa maquina" por ejemplo por el numero de serie del disco duro o algo por el estilo..

GRACIAS, POR TODO
ESTARE MUY AGRADECIDO

Francisco D
10 de Enero del 2008

este otro
En un módulo declarar :

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)

En un formulario :

dim Vol as string*256, FileSystem as string*256, unidad as string
dim longitud as long, NumSerie as long, Flags as long

unidad = "c:"
Call GetVolumeInformation(unidad, Vol, 256, NumSerie, longitud, Flags, FileSystem, 256)

debug.print "Etiqueta : " + left$(Vol,instr(vol,chr$(0)))
debug.print "Nº de serie : " & NumSerie
debug.print "Sistema de archivos : " + left$(FileSystem,instr(FileSystem,chr$(0)))

Carlos
10 de Enero del 2008

Saludos y Feliz Año.
Cada vez que se formatea un disco duro, el número de serie del disco duro cambia?. Cual seria el dato que hay que leer de la maquina que no cambie al formatearla?. Esto para la seguridad de la instalación de programas.
Gracias......

Marlboro
10 de Enero del 2008

Si lo que quieres es amarrar un sistema a un solo equipo, se me ocurre que utilices el Microsoft Sysinfo (sysinfo.ocx) te da características de la PC, num. de serie y otras cosas. Y si lo quieres validar desde la instalación del software ... pues tendrías que incluir este objeto dentro de tu setup.vbp (que viene en tus carpetas de ayuda de VB) y desde ahí validarlo al momento de instalarlo

Saludos