VBA Bridge API Reference

Public Function VBAPL_Execute(ID As Variant, ParamArray Args() As Variant) As Variant

' Call a function with no parameters
Dim result As Variant
result = VBAPL_Execute("Main|Initialize")

' Call a function with parameters
Dim total As Variant
total = VBAPL_Execute("Main|CalculatePrice", quantity, unitPrice, taxRate)

' Call a function without specifying the module
Dim msg As Variant
msg = VBAPL_Execute("GetWelcomeMessage", userName)

' Call a function with many parameters (no limit)
Dim report As Variant
report = VBAPL_Execute("Reports|Generate", title, startDate, endDate, format, outputPath, includeCharts)

Public Function VBAPL_IsLicenseValid() As Boolean

If Not VBAPL_IsLicenseValid() Then
    MsgBox "Your license is invalid or has expired.", vbExclamation
    VBAPL_ShowActivation
End If

Public Function VBAPL_HasStoredLicense() As Boolean

If VBAPL_HasStoredLicense() Then
    MsgBox "Licensed to: " & VBAPL_GetRegisteredName()
Else
    MsgBox "No license found. Please activate.", vbExclamation
End If

Public Function VBAPL_GetRegisteredName() As String

Dim licensee As String
licensee = VBAPL_GetRegisteredName()
If licensee <> "" Then
    StatusBar.Text = "Licensed to " & licensee
End If

Public Function VBAPL_GetHardwareID() As String

Dim hwid As String
hwid = VBAPL_GetHardwareID()
MsgBox "Your Hardware ID is: " & hwid & vbCrLf & _
       "Send this to your vendor to receive a license key.", vbInformation

Public Function VBAPL_ShowActivation(Optional ForceDisplay As Boolean = False) As Long

Dim result As Long
result = VBAPL_ShowActivation()

Select Case result
    Case 1
        MsgBox "Activation successful! Welcome.", vbInformation
    Case 0
        MsgBox "Activation cancelled.", vbExclamation
    Case -2
        ' Activation not configured — this project runs without a license
End Select

Public Function VBAPL_IsTrialMode() As Boolean

Public Function VBAPL_GetTrialLimitLeft() As Long

If VBAPL_IsTrialMode() Then
    Dim daysLeft As Long
    daysLeft = VBAPL_GetTrialLimitLeft()
    MsgBox "Trial mode: " & daysLeft & " days remaining.", vbInformation
End If

Public Function VBAPL_ShowTrialNag(Optional ForceDisplay As Boolean = False) As Long

If VBAPL_IsTrialMode() Then
    Dim nagResult As Long
    nagResult = VBAPL_ShowTrialNag()

    If nagResult = 1 Then
        ' User wants to activate
        VBAPL_ShowActivation
    End If
End If

Public Function VBAPL_ShowDeactivation() As Long

Dim result As Long
result = VBAPL_ShowDeactivation()
If result = 0 Then
    MsgBox "License deactivated. You can now activate on another computer.", vbInformation
End If

Public Function VBAPL_Deactivate(ByRef ResultCode As Long) As String

Dim resultCode As Long
Dim certificate As String
certificate = VBAPL_Deactivate(resultCode)

If resultCode = 0 Then
    ' Save or display the certificate
    MsgBox "Deactivation certificate:" & vbCrLf & certificate, vbInformation
End If

Public Function VBAPL_GetDeactivationStatus() As Long

Public Function VBAPL_ShowEULA(Optional ForceDisplay As Boolean = False) As Long

' Show EULA on first launch
Dim eulaResult As Long
eulaResult = VBAPL_ShowEULA()

If eulaResult = 0 Then
    MsgBox "You must accept the license agreement to use this application.", vbCritical
    ThisWorkbook.Close SaveChanges:=False
End If

Public Function VBAPL_IsEulaAccepted() As Boolean

Public Function VBAPL_GetEulaAcceptanceDate() As String

If VBAPL_IsEulaAccepted() Then
    Debug.Print "EULA accepted on: " & VBAPL_GetEulaAcceptanceDate()
End If

Public Function VBAPL_GetProperty(PropName As String, Optional DefaultValue As Variant = "") As Variant

Dim appTitle As String
appTitle = VBAPL_GetProperty("AppTitle", "My Application")

Dim version As String
version = VBAPL_GetProperty("AppVersion", "1.0.0.0")

MsgBox appTitle & " v" & version, vbInformation

Public Function VBAPL_ValidateOnline(Optional Silent As Boolean = True) As Long

Dim result As Long
result = VBAPL_ValidateOnline(False) ' Show errors to the user

Select Case result
    Case 1
        ' License is valid
    Case 0
        MsgBox "Your license has been revoked.", vbCritical
    Case -4
        MsgBox "Could not connect to validation server.", vbExclamation
End Select

Public Function VBAPL_IsValidationRequired() As Long

If VBAPL_IsValidationRequired() = 1 Then
    Dim result As Long
    result = VBAPL_ValidateOnline(False)
    If result <> 1 Then
        MsgBox "License validation failed.", vbCritical
    End If
End If

Public Function VBAPL_VerifyDLLSignature() As Long

Dim sigResult As Long
sigResult = VBAPL_VerifyDLLSignature()

If sigResult <> 0 Then
    MsgBox "WARNING: DLL signature verification failed (code " & sigResult & ")." & vbCrLf & _
           "The DLL may have been tampered with.", vbCritical
    ThisWorkbook.Close SaveChanges:=False
End If

Public Sub Workbook_Open()
    ' 1. Show EULA on first launch
    If VBAPL_ShowEULA() = 0 Then
        ThisWorkbook.Close SaveChanges:=False
        Exit Sub
    End If

    ' 2. Check license
    If Not VBAPL_IsLicenseValid() Then
        If VBAPL_IsTrialMode() Then
            ' Show trial nag screen
            Dim nagResult As Long
            nagResult = VBAPL_ShowTrialNag()
            If nagResult = 1 Then
                VBAPL_ShowActivation
            End If
        Else
            ' No trial — require activation
            If VBAPL_ShowActivation() <> 1 Then
                MsgBox "Activation required.", vbCritical
                ThisWorkbook.Close SaveChanges:=False
                Exit Sub
            End If
        End If
    End If

    ' 3. Run the main application logic
    VBAPL_Execute "Main|Initialize"
End Sub