Oppure

Loading
18/06/09 14:53
Revenge
Salve a tutti, volevo creare un trial in vb6. Ovvero un programma che conta i giorni che sono passati dalla prima apertura del programma.
Ho provato a creare un file e scriverci dentro la data del giorno corrente, ma non va bene perchè dovrei comunque scrivere il giorno in cui finisce il trial.
Qualcuno sa la soluzione?
aaa
18/06/09 17:17
tippolo
Postato originariamente da Revenge:

Salve a tutti, volevo creare un trial in vb6. Ovvero un programma che conta i giorni che sono passati dalla prima apertura del programma.
Ho provato a creare un file e scriverci dentro la data del giorno corrente, ma non va bene perchè dovrei comunque scrivere il giorno in cui finisce il trial.
Qualcuno sa la soluzione?

quello che vuoi fare è facimente superabile,
comunque,
Data di scadenza = data inizio + 30
Ultima modifica effettuata da tippolo 18/06/09 17:18
aaa
18/06/09 19:34
Revenge
ma se fai:
If Date = "18/06/2009" + 30 Then Msgbox "Trial Scaduto"
non risolvi niente, perchè devi comunque inserire tu la data iniziale.
E scrivendo:
If Date = Date + 30 Then Msgbox "Trial Scaduto"
lo puoi aprire ogni giorno fino all'eternità...
Bisognerebbe creare un file di testo dove dentro mettere le date delle volte in cui apri il programma, e arrivato a 30 giorni dopo, chiudere il programma.
aaa
18/06/09 21:29
GrG
Allora quando avvi il prog fai un controllo, vedendo se ad esempio scadenza.txt esiste o no. Se non esiste allora lo crei e ci metti data corrente + 30 (come ti è stato suggerito) quindi ci metti la data di scadenza. Se esiste già invece controlli che la data corrente non sia uguale o successiva a quella di scadenza del txt...

come già ti è stato detto comunque è facilmente craccabile il tuo prog...
aaa
19/06/09 10:25
Revenge
Ho fatto tutto, adesso mi manca solo sapere come aprire il file e controllare la data.
Come potrei fare?
aaa
19/06/09 10:53
GrG
bè è semplice... devi usare sempre la Open (se hai usato quest'ultima per salvare le info)
esempio:
dim datascadenza as string
open "C:\tuofile.txt" for input as #1
line input #1, datascadenza
close #1
if date >= datascadenza then
msgbox "Trial scaduto"
unload me
end if
aaa
21/07/09 22:02
hemmaus
Hanno provato in parecchi a dirtelo:

Basta modificare il file txt semplicemente con notepad per evitare che il programma scada!!!

Prova a crearti un algoritmo di crittografia per la data del primo avvio, tale dato potresti inserirlo nel registro di windows ad esempio, come chiave.

E' craccabile ma è più difficile, diciamo che mio nipote (1 elementare) non ci riuscirebbe.

Ciao.:k:
aaa
22/07/09 9:26
GrG
Non credo che dopo un mese stia ancora qua a vedere la discussione :asd::asd::asd:
aaa