Visualizzazione dei risultati da 1 a 7 su 7
  1. #1
    Utente bannato
    Registrato dal
    Oct 2005
    Messaggi
    66

    Controllo della data sistema in vb5/6

    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

  2. #2
    Io il problema lo risolverei così:

    Nell'evento load di Form1 inserisci questo codice:
    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.
    Giorgio
    L'esperienza è il tipo di insegnante più difficile. Prima ti fa l'esame, e poi ti spiega la lezione. (Oscar Wilde)

  3. #3
    Utente bannato
    Registrato dal
    Oct 2005
    Messaggi
    66
    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

  4. #4
    Utente di HTML.it L'avatar di Boolean
    Registrato dal
    Oct 2005
    Messaggi
    758
    forse QUI puoi farti un'idea di come procedere...

    Boolean

  5. #5
    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.

    codice:
    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...

  6. #6
    Utente bannato
    Registrato dal
    Mar 2006
    Messaggi
    3
    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

  7. #7
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Nel registro di sistema ...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.