84 lines
3.3 KiB
VB.net
84 lines
3.3 KiB
VB.net
Imports DD_LIB_Standards
|
|
Imports DigitalData.Modules.License
|
|
|
|
Public Class ClassLicense
|
|
Private Shared lic_string As String
|
|
Private Shared Sub Get_License(CLIENT_ID As Integer)
|
|
Try
|
|
Dim sql As String = String.Format("SELECT LICENSE FROM TBDD_MODULES WHERE SHORT_NAME = 'CW'")
|
|
lic_string = Database.GetScalarValue(sql)
|
|
Catch ex As Exception
|
|
Try
|
|
Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
|
|
lic_string = Database.GetScalarValue(sql)
|
|
Catch ex1 As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Get_License:")
|
|
End Try
|
|
End Try
|
|
|
|
End Sub
|
|
Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
|
|
Try
|
|
Dim _lizenzManager = New LicenseManagerLegacy(LogConfig, "#DigitalData35452!#", "")
|
|
Get_License(CLIENT_ID)
|
|
|
|
If lic_string = "" Then
|
|
LICENSE_COUNT = 0
|
|
LICENSE_DATE = "1900-01-01"
|
|
ERROR_INIT = "NO LICENSE"
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim licString = _lizenzManager.DecodeLicenseKey(lic_string)
|
|
Dim split() = licString.ToString.Split("#")
|
|
|
|
If lic_string <> "" Then
|
|
LICENSE_COUNT = split(0)
|
|
Try
|
|
Dim cultureInfo As System.Globalization.CultureInfo
|
|
cultureInfo = New System.Globalization.CultureInfo(LANGUAGE_GERMAN)
|
|
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
|
|
|
|
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
|
|
End Sub
|
|
|
|
Public Shared Function license_is_Valid()
|
|
If LICENSE_EXPIRED Then
|
|
MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact Digital Data!", MsgBoxStyle.Exclamation)
|
|
Return False
|
|
Else : Return True
|
|
|
|
End If
|
|
End Function
|
|
End Class
|