Visual Basic 6 - Progetto che scade!!

Forum - Visual Basic 6 - Progetto che scade!!

robycost (Normal User)
Pro

Messaggi: 77
Iscritto: 23/03/2008

Postato alle 22:01
Sabato, 31/07/2010

Buona sera, ho un piccolo progetto realizzato in VB6 nel Firm Inizio ho inserito quanto segue :

Private Sub Form_Load()
    Dim xData As String
    xData = GetSetting("DJMONITOR", "ATTIVAZIONE", "KEY")
    If xData = "" Then GoTo boh:
        If Date > xData Then
            MsgBox "    CHIAVE SCADUTA     ", vbCritical, "Attenzione:"
            End
        End If
    GoTo BOOH:
boh:
    MsgBox " RICHIEDERE CHIAVE DI ATTIVAZIONE  ", vbCritical, "Attenzione:"
    End
BOOH:
    Static FirstCall As Boolean
    If Not FirstCall Then
       FrmProgetto.Show , Me
    End If
    FirstCall = True
End Sub

Private Sub IfIsRunning()
    If App.PrevInstance Then
        MsgBox "Una copia di  """ & App.EXEName & """  è già in esecuzione!", vbCritical, "Attenzione:"
        Let m_Close = True

     End '   Unload Me

    End If

End Sub

Ovviamente ho un piccolo generatore che mi consente di cambiare la data di scadenza ...ma !!!!! e qui viene la cosa che mi interessa di più...... NON SCADE AL CAMBIAMENTO DELL'ANNO cioè se metto come data di scadenza 31 12 2010 il software continua a girare anche nel 2011 questo l'ho verificato cambiuando la data del PC .

domanda : come e dove intervenire ??

grazie tante. :k:

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 22:31
Sabato, 31/07/2010

If Date > xData Then fa un confronto tra stringhe.

devi usare la funzione DateDiff

If DateDiff("d", Date, xData) > 0 Then

robycost (Normal User)
Pro

Messaggi: 77
Iscritto: 23/03/2008

Postato alle 22:57
Sabato, 31/07/2010

Ok grazie tante ...adesso ci provo ...poi ti faccio sapere ...

nessuno (Normal User)
Guru^2

Messaggi: 6403
Iscritto: 03/01/2010

Postato alle 10:58
Domenica, 01/08/2010

A parte il problema specifico e ammesso che tu non abbia molta esperienza, sappi che questo tipo di "protezione" è tanto banale da essere inutile.

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

robycost (Normal User)
Pro

Messaggi: 77
Iscritto: 23/03/2008

Postato alle 11:20
Domenica, 01/08/2010

Grazie ancora, difatti ho visto ...... basta andare sul reg .... per cambiare la data quindi riattivare il progettino ... del resto mi sembra un po come la versione trial che apri il progetto per un determinato numero di volte ma che poi anche qui intervenendo sul reg è la stessa zuppa .....

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 11:48
Domenica, 01/08/2010

Almeno codifica la data con una chiave che non sia comprensibile ed individuabile con un editor esadecimale.
e:
GetSetting("DJMONITOR", "ATTIVAZIONE", "KEY")
non usare delle stringhe così esplicite. Scommetto che DJMONITOR è il nome del programma!
Poi potresti aggiungere in un'altra parte del registro un flag che ti dice che il primo avvio è già avvenuto.

Comunque sono, come dice nessuno, banali protezioni che servono per il ragioniere e la segretaria e spesso neanche per loro.

robycost (Normal User)
Pro

Messaggi: 77
Iscritto: 23/03/2008

Postato alle 12:29
Domenica, 01/08/2010

Mi fai ridere ...... ma è verissimo !!!!!!!!!! con calma cerchero qualcosa di piu valido ..... ma Ti ringrazio dei consigli e buona giornata ...