Help Me Is't Correct Codes for 60 Days Validation for Application
Hello :wave:
i am creating a class for only 60 days working my application but i don't know that is correct code,
please help me:wave:
Thanks....
Code:
Public Class ClassTrialVersion
Implements IDisposable
#Region "Constructor"
Public _onceCatchTrailExpiredMsg As Boolean = False
Public Sub New(ByVal _softwareInitialDate As Date)
Try
Dim _msgs$ = Nothing
Dim _ethanaiYeariruku% = 0
Dim _ethanaiMonthIruku% = 0
Dim _ethanaiDaysIruku% = 0
'------------------YearCompare----------------------------------
'Rendu Date kkum Ethanai YEAR difference ikku nnu check pannrean
_ethanaiYeariruku% = DateDiff(DateInterval.Year, _softwareInitialDate, Now.Date) '1 Year iruntha Ok [Dec2010 - Jan2011]
Select Case _ethanaiYeariruku
Case Is < 0 'Year
_onceCatchTrailExpiredMsg = True
_msgs$ = "Trial Expired" & vbCrLf & "Please Purchase this Software : #10001"
MsgBox(_msgs$, MsgBoxStyle.Critical, "Beta Test")
End
Case Is > 1 'Year
_onceCatchTrailExpiredMsg = True
_msgs$ = "Trial Expired" & vbCrLf & "Please Purchase this Software : #10002"
MsgBox(_msgs$, MsgBoxStyle.Critical, "Beta Test")
End
Case 0, 1 'Year
'Months
_ethanaiMonthIruku% = DateDiff(DateInterval.Month, _softwareInitialDate, Now.Date) '1 Year iruntha Ok [Dec2010 - Jan2011]
Select Case _ethanaiMonthIruku
Case Is < 0 'month if minus value
_onceCatchTrailExpiredMsg = True
_msgs$ = "Trial Expired" & vbCrLf & "Please Purchase this Software : #10003"
MsgBox(_msgs$, MsgBoxStyle.Critical, "Beta Test")
End
Case Is >= 2 'month
_ethanaiDaysIruku = DateDiff(DateInterval.Day, _softwareInitialDate, Now.Date) '1 Year iruntha Ok [Dec2010 - Jan2011]
If _ethanaiDaysIruku > 60 Then
_onceCatchTrailExpiredMsg = True
_msgs$ = "Trial Expired" & vbCrLf & "Please Purchase this Software : #10004"
MsgBox(_msgs$, MsgBoxStyle.Critical, "Beta Test")
End
End If
End Select
'Days
_ethanaiDaysIruku% = DateDiff(DateInterval.Day, _softwareInitialDate, Now.Date) '1 Year iruntha Ok [Dec2010 - Jan2011]
Select Case _ethanaiDaysIruku%
Case Is < 0
_onceCatchTrailExpiredMsg = True
_msgs$ = "Trial Expired" & vbCrLf & "Please Purchase this Software : #10005"
MsgBox(_msgs$, MsgBoxStyle.Critical, "Beta Test")
End
Case Is > 60 'days
_onceCatchTrailExpiredMsg = True
_msgs$ = "Trial Expired" & vbCrLf & "Please Purchase this Software : #10006"
MsgBox(_msgs$, MsgBoxStyle.Critical, "Beta Test")
End
End Select
End Select
Dim _methamullaDathi% = 60 - DateDiff(DateInterval.Day, _softwareInitialDate, Now.Date)
' MsgBox("Days Remaining : " & 60 - _methamullaDathi%) '1 Year iruntha Ok [Dec2010 - Jan2011]
If _methamullaDathi < 0 Then
_onceCatchTrailExpiredMsg = True
_msgs$ = "Trial Expired" & vbCrLf & "Please Purchase this Software : #10007"
MsgBox(_msgs$, MsgBoxStyle.Critical, "Beta Test")
End
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim _clsTrialInitialize As New ClassTrialVersion(dtpck1.Value.Date)
End Sub
Re: Help Me Is't Correct Codes for 60 Days Validation for Application
Test it. Install it then advance the date.
Re: Help Me Is't Correct Codes for 60 Days Validation for Application
@med - you do know that this won't stop anyone who wants to bypass / disable your checks.