kmpdfkit_demo/Demo/Examples/Samples/LicenseKey.vb

Imports ComPDFKit.NativeMethod
Imports System
Imports System.Xml

Public NotInheritable Class SDKLicenseHelper
    Public Shared key As String = String.Empty
    Public Shared secret As String = String.Empty

    Public Shared Function LicenseVerify() As Boolean
        Dim sdkLicensePath As String = "license_key_windows.xml"
        Dim xmlDocument As New XmlDocument()
        xmlDocument.Load(sdkLicensePath)

        Dim keyNode As XmlNode = xmlDocument.SelectSingleNode("/license/key")
        Dim secretNode As XmlNode = xmlDocument.SelectSingleNode("/license/secret")

        If keyNode IsNot Nothing AndAlso secretNode IsNot Nothing Then
            key = keyNode.InnerText
            secret = secretNode.InnerText
        Else
            Console.WriteLine("Key or secret element not found in the XML.")
            Return False
        End If

        Dim result As Boolean = CPDFSDKVerifier.LoadNativeLibrary()
        If Not result Then
            Return False
        End If

        Dim verifyResult As LicenseErrorCode = CPDFSDKVerifier.LicenseVerify(key, secret)
        If verifyResult <> LicenseErrorCode.LICENSE_ERR_SUCCESS Then
            Return False
        End If

        Return result
    End Function
End Class