AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Init

Browse Source
This commit is contained in:
SchreiberM 2023-01-24 10:11:08 +01:00
parent f4a072cbbd
commit fd8aeca9e0
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -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)