68 lines
2.6 KiB
VB.net
68 lines
2.6 KiB
VB.net
Imports DLLLicenseManager
|
|
Public Class ClassLicence
|
|
|
|
Private Shared _lizenzManager As ClassLicenseManager
|
|
Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
|
|
Try
|
|
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
|
|
Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
|
|
|
|
Dim lic As String = ClassDatabase.Execute_Scalar(sql, False)
|
|
If lic = "" Then
|
|
LICENSE_COUNT = 0
|
|
LICENSE_DATE = "1900-01-01"
|
|
LICENSE_DOSSIER_COUNT = 0
|
|
Exit Sub
|
|
End If
|
|
Dim licString = _lizenzManager.DecodeLicenseKey(lic)
|
|
Dim split() = licString.ToString.Split("#")
|
|
|
|
If lic <> "" Then
|
|
LICENSE_COUNT = split(0)
|
|
Else
|
|
LICENSE_COUNT = 0
|
|
End If
|
|
LICENSE_DATE = CDate(split(1))
|
|
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
|
|
End If
|
|
|
|
''Die Anzahl der Userlizenzen
|
|
'LICENSE_COUNT = split(1)
|
|
|
|
Try
|
|
LICENSE_DOSSIER_COUNT = split(2)
|
|
Catch ex As Exception
|
|
ClassLogger.Add(">> Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message, False)
|
|
LICENSE_DOSSIER_COUNT = 0
|
|
End Try
|
|
Try
|
|
LICENSE_SAP_Connect = CBool(split(3))
|
|
Catch ex As Exception
|
|
ClassLogger.Add(">> Could not read License for LICENSE_SAP_Connect: " & ex.Message, False)
|
|
LICENSE_SAP_Connect = False
|
|
End Try
|
|
Try
|
|
LICENSE_SITE_PROXY = CBool(split(4))
|
|
Catch ex As Exception
|
|
ClassLogger.Add(">> Could not read License for LICENSE_SITE_Proxy: " & ex.Message, False)
|
|
LICENSE_SITE_PROXY = False
|
|
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
|