[VB5/VB6] Controllo della data di sistema

[satriano]

salve.
Vorrei inserire all'interno di un programma,prima della sua compilazione, magari all'inizio, una variabile con una data futura per esempio datafine="01012006"
dopo compilerei il programma.
Ad ogni avvio del programma stesso, una routine iniziale dovrebbe controllare se la data della variabile datafine non sia oltrepassata.
SE non oltrepassata, il programma si avvierebbe, in caso contrario si bloccherebbe. A quale scopo direte?
In questo modo io potrei per esempio dare un programma in dotazione a certi utenti fino ad un tempo ben definito, una specie di licenza.
Quale formula scrivere, nel form iniziale, per far si che il programma ad ogni avvio controlli, tramite confronto variabile datafine e data sistema, che quella data non sia oltrepassata?
IO avevo pensato unn cntrollo tramite registro
hkey_local_machine\software\nome_programma\datafin e
e magari confrontare con la proprietà sbrDATE .
ma dopo tanti tentativi non ci riesco.
Sperando di aver fatto una domanda chiara, c'é qualcuno che mi aiuti a risovere questo problema. Alla fine mi sono perso nei tentativi e ricerche.

Naturalmente con un esempio pratico da porre inizio programma.
Di quello che conosco ne ho provato di tutto.
grazie

[giorgiogio48]

Io il problema lo risolverei così:

Nell'evento load di Form1 inserisci questo codice:

Private Sub Form_Load()
MsgBox Format("10 / 3 / 2006", "dd/mm/yyyy")
If Format(Date, "dd/mm/yyyy") > Format("10/03/2006", "dd/mm/yyyy") Then
MsgBox "Tempo di prova scaduto"
Unload Form1
End If

End Sub

Ovviamente nell'evento load potrai mettere anche altro codice.

[satriano]

grazie, il problema é risolto. Grazie Giorgio.
ciao giorgio
Ma... giusto adesso ho pensato a qualcosa a cui non avevo pensato prima:
SE l'utente, arrivato alla data di scadenza,scopre la faccenda, cambia la data al computer E LA METTE SEMPRE INDIETRO?
allora si dovrebbe dire al computer per esempio che il programma deve funzionare solo per 365 giorni,o un altro numero, da una certa data di consegna licenza. Come impostare quest'altra condizione di durata?


grazie per la pazienza.
antonio

[Boolean]

forse QUI puoi farti un'idea di come procedere...

Boolean

[tossam]

io userei Savesetting e getsetting per memorizzare una variabile.
aumenterei la variabile ad ogni apertura del programma fino ad un valore limite da me impostato.

Private Sub Form_Load()
numero = 3
On Error GoTo salvavariabile
a = GetSetting(appname:="c:/ciao.exe", section:="Startup", Key:="hallo")
a = a + 1
SaveSetting appname:="c:/ciao.exe", section:="Startup", Key:="hallo", setting:=a
If a > numero Then
msgbox "tempo di prova scaduto"
Unload Me
End If
GoTo fine:
salvavariabile:
SaveSetting appname:="c:/ciao.exe", section:="Startup", Key:="hallo", setting:="0"
fine:
End Sub

immetti in numero il numero massimo di aperture del tuo programmino...

[frisella]

grazie,tossam, questa soluzione mi pare la piu sicura.
Solo una domanda:
dove viene memorizzata la variabile? questo non mi é chiaro.
per il resto la soluzione é buona.
grazie

[oregon]

Nel registro di sistema ...