Revenge (Normal User)
Rookie
Messaggi: 22
Iscritto: 24/05/2009
|
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?
|
|
tippolo (Normal User)
Pro
Messaggi: 157
Iscritto: 21/09/2008
|
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,
Codice sorgente - presumibilmente Plain Text |
Data di scadenza = data inizio + 30
|
Ultima modifica effettuata da tippolo il 18/06/2009 alle 19:18 |
|
Revenge (Normal User)
Rookie
Messaggi: 22
Iscritto: 24/05/2009
|
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.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
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...
|
|
Revenge (Normal User)
Rookie
Messaggi: 22
Iscritto: 24/05/2009
|
Ho fatto tutto, adesso mi manca solo sapere come aprire il file e controllare la data.
Come potrei fare?
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
bè è semplice... devi usare sempre la Open (se hai usato quest'ultima per salvare le info)
esempio:
Codice sorgente - presumibilmente VB.NET |
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
|
|
|
hemmaus (Normal User)
Pro
Messaggi: 96
Iscritto: 15/07/2009
|
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.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Non credo che dopo un mese stia ancora qua a vedere la discussione
|
|
hemmaus (Normal User)
Pro
Messaggi: 96
Iscritto: 15/07/2009
|
Hai ragione
|
|