• Visual Basic
• C#

Protected Overridable Function CanDeactivate ( _
	context As ServerRequestContext, _
	limit As ActivationLimit, _
	phase As DeactivationPhase, _
	ByRef suggestedProfile As ActivationProfile _
) As Boolean

protected virtual bool CanDeactivate(
	ServerRequestContext context,
	ActivationLimit limit,
	DeactivationPhase phase,
	ref ActivationProfile suggestedProfile
)

<%@ WebService Language="VB"  Class="MyLicenseServer" %>
Imports System
Imports System.IO
Imports System.Collections
Imports DeployLX.Licensing.v5
Imports DeployLX.Licensing.Management.v5

<System.Web.Services.WebService(Namespace:="http://www.xheo.com/licensing/v3_0")> _
Public Class MyLicenseServer
    Inherits DeployLX.Licensing.Management.v5.LicenseServer

...

    Protected Overrides Function CanDeactivate(ByVal context As ServerRequestContext, ByVal limit As ActivationLimit, ByVal phase As DeactivationPhase, ByRef suggestedProfile As ActivationProfile) As Boolean
        If FileContains("ActivatedSerials.dat", context.SerialNumber) Then
            Return True
        End If
        Return False
    End Function

    Protected Overrides Sub RecordDeactivation(ByVal context As ServerRequestContext, ByVal limit As ActivationLimit, ByVal profile As ActivationProfile)
        AddToFile("DeactivatedSerials.dat", context.SerialNumber)
    End Sub

...

    Private Shared Sub AddToFile(ByVal path As String, ByVal serialNumber As String)
        If FileContains(path, serialNumber) Then
            Return
        End If

        Using writer As New StreamWriter(path, True)
            writer.WriteLine(serialNumber)
        End Using
    End Sub

    Private Shared Function FileContains(ByVal path As String, ByVal serialNumber As String) As Boolean
        Using reader As New StreamReader(path)

            Dim line As String = reader.ReadLine()
            If line.Contains(serialNumber) Then
                Return True
            End If
        End Using

        Return False
    End Function
End Class

<%@ WebService Language="C#"  Class="MyLicenseServer" %>
using System;
using System.IO;
using System.Collections;
using DeployLX.Licensing.v5;
using DeployLX.Licensing.Management.v5;

[System.Web.Services.WebService( Namespace="http://www.xheo.com/licensing/v3_0" ) ]
public class MyLicenseServer : DeployLX.Licensing.Management.v5.LicenseServer
{

...


    protected override bool CanDeactivate( ServerRequestContext context, ActivationLimit limit, DeactivationPhase phase, ref ActivationProfile suggestedProfile )
    {
        if( FileContains( "ActivatedSerials.dat", context.SerialNumber ) )
            return true;
        return false;
    }

    protected override void RecordDeactivation( ServerRequestContext context, ActivationLimit limit, ActivationProfile profile )
    {
        AddToFile( "DeactivatedSerials.dat", context.SerialNumber );
    }

...

    private static void AddToFile( string path, string serialNumber )
    {
        if( FileContains( path, serialNumber ) )
            return;

        using( StreamWriter writer = new StreamWriter( path, true ) )
            writer.WriteLine( serialNumber );
    }

    private static bool FileContains( string path, string serialNumber )
    {
        using( StreamReader reader = new StreamReader( path ) )
        {

            string line = reader.ReadLine();
            if( line.Contains( serialNumber ) )
                return true;
        }

        return false;
    }
}