diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 14cbf65..cba1e51 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -236,12 +236,20 @@ Public Class ClassInit Else LICENSE_COUNT = 0 End If - - If LICENSE_VALID = False Then + If split.Length >= 2 Then + LICENSE_VALID = True + End If + Dim oLICDATE = CDate(split(1)) + If oLICDATE < CDate(Now) Then MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Your sysadmin", MsgBoxStyle.Exclamation) LICENSE_EXPIRED = True LICENSE_COUNT = 0 + ElseIf LICENSE_VALID = False Then + MsgBox("Your license is invalid!" & vbNewLine & "Please contact Your sysadmin", MsgBoxStyle.Exclamation) + LICENSE_EXPIRED = True + LICENSE_COUNT = 0 End If + LOGGER.Debug("license initialized....") LICENSE_PROFILES = split(2)