contador de visitas en una aplicación

[anadelaisla]

Hola, quiero poner un contador de visitas en una aplicacion, y no se como hacerlo,
pq claro si yo pongo un contador cont que en un principio valga 0 y luego vaya incrementando no me vale, pq cada vez que abro la aplicación vuelve a valer 0 y nunca cuenta, siempre me tendrá el mismo valor.... creo q lo tendría que hacer entonces utilizando algún evento no?
El caso es que la aplicación quiero que tenga un periodo de prueba de 30 veces y que cuando pase eso ya no le deje usarla.... alguien sabe como es??

Gracias!!
Saludos!.

[acc008]

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

[Avellaneda]

Hola,
Veo mas factible guardar el valor en una clave del registro de Windows. Las bases de datos de Access no son seguras ni siquiera con contraseña (hay varios programas circulando que la hackean).

En el evento Load del Form de inicio:

Código vb:

Dim s As String, i As Integer
s = GetSetting(App.EXEName, "Settings", "numero")
If s = "" Then
    ' es la primera vez que se ejecuta el programa
    SaveSetting App.EXEName, "Settings", "numero", "1"
Else
    i = Val(s) + 1
    SaveSetting App.EXEName, "Settings", "numero", Str(i)
End If
If i > 30 Then
    MsgBox "La demo ha finalizado"
    End
End If
 

Eso así simplificando. Si además encriptas los valores, pues mas seguro.

[anadelaisla]

Ok, he probado las dos formas que me habéis comentado y me funcionan.
Muchas gracias a los 2 !!
Saludos.