Mensaje enviado por "LuisJa" <lmisiego@teleline.es>

Mirar en http://www.activelock.com/download.html y en http://www.insite.com.br/~nferraz/activelock

En al fichero "nslock15.zip" tienes el generador de Key´s. Además incluyen, tanto la versión 1.5 como la 1.6, un ejemplo de utilización.

Esto lo envió "Sancha" a la lista espero te sirva:

De: Sacha Marquina Reyes [mailto:marquina@arrakis.es]
Enviado el: Jueves 6 de Enero de 2000 15:16
Para: visualbasic-esp@egroups.com
Asunto: (VB-ESP) Re: Control ActiveLock 1.5

Envío esto a la lista por si hay más interesados sobre el control ActiveLock
1.5.
Una vez bajado el control lo registras (con regsrv32), lo añades a tu aplicación (en Proyecto/Componentes) y pones un control ActiveLock en el form de inicio, por ejemplo. Yo tengo puesto uno llamado Seguro. Luego en el Form.Load hago:

'Chequeamos que no se ha modificado la fecha aposta
   If (Seguro.LastRunDate > Now) Then
      kk = MsgBox("Por favor corrija la fecha.", vbCritical + vbOKOnly, "Mi Programa")
      End
   End If

'Chequeamos que esta versión no haya caducado
   If (Seguro.UsedDays > 180) Then
      kk = MsgBox("Lo siento pero esta versión de Mi Programa ha caducado",vbCritical + vbOKOnly, "Mi Programa")
      End
   End If

Estos son dos de los usos posibles del control. Otra propiedad que puedes usar es Counter, para limitar el nº de veces que se puede ejecutar el programa.
Para hacer que el usuario tenga que registrar la aplicación (con una clave individualizada para cada instalación) tienes que hacer lo siguiente:

Le muestras al usuario su código de software:
 Label1 = "Tu código es: " & Seguro.SoftwareCode

El usuario te envía ese código y tu generas su clave con el programita KeyGenerator y se la envías.
El usuario mete esa clave y se registra:
 Seguro.LiberationKey = Text1
   If Seguro.RegisteredUser Then
      MsgBox "Gracias por registrarse!"
   Else
      MsgBox "Clave incorrecta!"
   End If

Bueno, si no entiendes algo me lo preguntas.
Sacha


Saludos
Luis Javier

 nslock15.zip