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

License

Browse Source
This commit is contained in:
SchreiberM
2021-03-04 09:14:17 +01:00
parent 6418c0625c
commit adeaec38e6
3 changed files with 37 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
app/DD_Clipboard_Searcher/ClassLicense.vb
View File

@@ -32,15 +32,39 @@ Public Class ClassLicense
If lic_string <> "" Then
LICENSE_COUNT = split(0)
LICENSE_DATE = CDate(split(1))
Try
Dim cultureInfo As System.Globalization.CultureInfo
cultureInfo = New System.Globalization.CultureInfo("de-DE")
cultureInfo.DateTimeFormat.ShortDatePattern = "dd.MM.yyyy"
Try
Dim oLicDate As Date = Convert.ToDateTime(split(1), cultureInfo)
LICENSE_DATE = oLicDate
Catch ex As Exception
Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
End Try
Catch ex As Exception
LICENSE_DATE = split(1)
Logger.Warn($"Error in Convert Licdate1 [{split(1)}] {ex.Message}")
End Try
End If
If CDate(split(1)) < CDate(Now.ToShortDateString) Then
MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
LICENSE_EXPIRED = True
LICENSE_COUNT = 0
ERROR_INIT = "NO LICENSE"
End If
Try
If Not IsNothing(LICENSE_DATE) Then
If CDate(LICENSE_DATE.ToShortDateString) < CDate(Now.ToShortDateString) Then
MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & LICENSE_DATE.ToString & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
LICENSE_EXPIRED = True
LICENSE_COUNT = 0
ERROR_INIT = "NO LICENSE"
End If
End If
Catch ex As Exception
Logger.Warn($"Error in Convert Licdate2 [{split(1)}] {ex.Message}")
End Try
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
End Try