para hacer eso le vas a tener que agregar una base de datos y protegerla para que no te la modifiquen. o sino asignar el valor en el registro de windows.
Edit: Mira aqui arme algo basico para que pruebes y dsp me cuentas:
1)Crea un base de datos:
DB: bd1 (o sino cualquier otro pero recuerda modificarlo en el modulo)
Tabla: cont
Columnas:
- Id: Autonumerio + Clave Principal
-Count: Numero
2)Abre VB y dentro del menu Proyecto--> referencias habilita : Microsoft DAO 3.6 Object Library.
3)Luego crea un modulo y declara lo siguiente:
Código:
Public DB As DAO.Database
Public cont As DAO.Recordset
Public Sub ABRIR()
Set DB = OpenDatabase("bd1.mdb")
Set cont = DB.OpenRecordset("cont")
End Sub
Public Sub CERRAR()
cont.Close
DB.Close
End Sub
4)Y en el formulario principal:
Código:
Private Sub Form_Load()
ABRIR
cont.MoveLast
If cont.RecordCount <= 30 Then 'Aqui verifica si el programa se abrio 30 veces o menos
MsgBox "Puede usar el programa" 'si es verdadero..... Aqui va lo de tu programa
cont.AddNew
cont!cont = cont!cont + 1
cont.Update
Else 'Si es falso el prorgama da un mensaje y se cierra..
MsgBox "El periodo de prueba termino"
Unload Me
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
CERRAR
Unload Me
End Sub
Espero que te sirva. este es el primer aporte que hago para el foro ya que empeze con visual hace 2 semanas :D..
Si me equivoque en algo solo me lo dicen