Newsgroup: it.comp.lang.visual-basic
Titolo: Programmazione

Vorrei cortesemente un piccolo listato da inserire in un 
programma per durata del file cioè che questo file in 
programmazione VB abbia durata di 30 giorni e dopo non si vedra 
piu,e possibile averlo
Grazie
-- 
Postato da Alice Newsgroup: lo usi da web ma con le funzioni del newsreader 
http://newsgroup.alice.it
Gerarchie it, italia, it-alt, tin, it.binari. Unico!

 piu,e possibile averlo
Ma il messaggio l'hai tradotto con google translate da lingua straniera?
Perchč non si capisce nulla di quello che vuoi.

 piu,e possibile averlo
If now()>#01/23/2009# Then End
Alberto
-- 
L'economia sa tutto di te e tu non sai niente dell'economia. La tua 
banca sa tutto di te, di quanti soldi hai, e quando li spendi; ma tu 
non sai niente di cosa fa la banca dei tuoi soldi e dove li mette, e se 
ce li ha!

 If now()>#01/23/2009# Then End
che se uno lo installa il 12 o 28 gennaio, non è il massimo. 

Nel suo scritto precedente, andrea palazzi ha sostenuto :

If now()>#01/23/2009# or now()>#02/12/2009# or now()>#02/28/2009#
Then End
Alberto
-- 
Charles Baudelaire: C'è un solo modo di dimenticare il tempo: 
impiegarlo.

 If now()>#01/23/2009# or now()>#02/12/2009# or now()>#02/28/2009# Then End
Cosě č molto piů chiaro!
-- 
Ciao Fede
By Chicco Production
http://bcp.freetools.it

 Then End
io leggerei la data di creazione della cartella dell'exe.
non è affidabilissimo, ma almeno è parametrizzabile.
ciao e auguri 

andrea palazzi ha detto questo martedì :

Troppo complicato.
Alberto
-- 
Friedrich Nietzsche: Un po' di salute ogni tanto è il miglior rimedio 
per l'ammalato.

 Troppo complicato.
adesso vado a cercare qualche tua query di 6 pagine, so che ne ho tenute, e 
te la riposto integralmente.

 Troppo complicato.
Naturalmente dipende dal tipo di sw e da quanto si vuole "proteggerlo", 
in linea di massima farei così:
al momento dell'installazione mi creo un file (ascii o binario è 
indifferente) dove riporto data di installazione e una stringa di 
controllo creata con un algoritmo dove è presente la stessa data ma 
codificata.
La manomissione è possibile solo conoscendo l'algoritmo e sarà tanto più 
complicato quanto più voglio rendere difficile l'aggiramento.
Se poi voglio proprio fare le cose precisine ad ogni chiusura del 
programma genero un'accoppiata data-ora data-ora-codificate in modo da 
evitare il riporto all'indietro dell'orario.
Ancora più pignolino ... per evitare che l'utente porti indietro 
l'orario mentre uso il programma, scrivo le stesse info in un tempo 
random durante l'uso del programma.
ciao
stefano


Se crei una cartella per il tuo programma,
nella Form di avvio:
Private Sub Form_Load()
    If CDate(Format(Now, "mm/dd/yyyy")) = f + 30 Then
        'quello che vuoi tu
    End If
End Sub
Private Function f() As Date
    Dim objFSO As Object
    Dim objFolder As Object
    Dim sPath As String
    sPath = App.Path
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(sPath)
    f = Format(objFolder.DateCreated, "mm/dd/yyyy")
    Set objFolder = Nothing
    Set objFSO = Nothing
End Function
Non l'ho provato.
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/

andrea palazzi scriveva il 23/12/2008 :

Nel frattempo rileggi il messaggio originale, e vedi se vale la pena di 
disquisire su come leggere la data, il registry, l'affidabilità, la 
criptazione, ecc...
Questo qui vuole 'un listato'...
Alberto
-- 
Max Beerbohm: Tutto ciò che è degno di essere fatto è stato fatto 
ripetutamente. Dalle cose mai fatte bisognerebbe tenersi, sospetto, 
molto alla larga.

 Questo qui vuole 'un listato'...
sì, e dato il periodo noi gli facciamo i migliori auguri, no? :)
ciao albe, buone feste