Ciao ragazzi, da poco (3 mesi) ho creato un programma in vb.
Vorrei proteggerlo con una licenza, poiché è a pagamento.
Ho inserito dei tempi: 1 mese = 1 euro, 3 mesi = 3 euro e così via..
Bene, fin qui nulla di grave ma il problema è solo uno!
Se io invio tramite email programma con la key, l'utente può tranquillamente passarlo a tante persone, (anche se la licenza durerà quello che durerà).
Quindi, l'utente, dopo aver terminato la prova di tot. giorni, potrà tranquillamente reinstallarlo o passarlo ad altri!
Ecco, il programma è completo ma il problema rimane questo.
Il codice comunque che ho utilizzato per la licenza è questo:
Vorrei proteggerlo con una licenza, poiché è a pagamento.
Ho inserito dei tempi: 1 mese = 1 euro, 3 mesi = 3 euro e così via..
Bene, fin qui nulla di grave ma il problema è solo uno!
Se io invio tramite email programma con la key, l'utente può tranquillamente passarlo a tante persone, (anche se la licenza durerà quello che durerà).
Quindi, l'utente, dopo aver terminato la prova di tot. giorni, potrà tranquillamente reinstallarlo o passarlo ad altri!
Ecco, il programma è completo ma il problema rimane questo.
Il codice comunque che ho utilizzato per la licenza è questo:
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86) & "\pp.tg30") Then
Dim data As Date = System.IO.File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86) & "\pp.tg30")
Dim operazioni As TimeSpan = Now.Date.Subtract(data)
Dim giornirestanti As String = FormatNumber(operazioni.TotalDays, 0)
If giornirestanti > 30 Then
MsgBox("L'edizione [Professional Edition] con la durata di 1 MESE è terminata. Acquistare una nuova licenza.", MsgBoxStyle.Critical, "LICENZA SCADUTA")
Application.Exit()
Else
Label11.Text = "Giorni Passati (30MAX): " & giornirestanti & " giorni."
End If
Else
System.IO.File.WriteAllText((Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86) & "\pp.tg30"), Now.Date)
End If
Dim data As Date = System.IO.File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86) & "\pp.tg30")
Dim operazioni As TimeSpan = Now.Date.Subtract(data)
Dim giornirestanti As String = FormatNumber(operazioni.TotalDays, 0)
If giornirestanti > 30 Then
MsgBox("L'edizione [Professional Edition] con la durata di 1 MESE è terminata. Acquistare una nuova licenza.", MsgBoxStyle.Critical, "LICENZA SCADUTA")
Application.Exit()
Else
Label11.Text = "Giorni Passati (30MAX): " & giornirestanti & " giorni."
End If
Else
System.IO.File.WriteAllText((Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86) & "\pp.tg30"), Now.Date)
End If