WinLicense V 2.1.0

' ********************************************************************************** ' * WinLicence.vb ' * Proxy Functions for WinLicence protected assemblies. Written in .NET ' * ' * Author: Mike Wilson (http://blog.evolvedsoftwarestudios.com) ' * Evolved Software Studios Ltd (http://www.evolvedsoftwarestudios.com) ' * ' * Version: 0.1 ' * License: Freely distribute, but keep this comment header. ' * ' * Comments: You will need to modify the bespoke code below ' * in the region "Evolved Software Studios Licensing Code" ' * to your own needs. I have provided this as a demonstration only. ' * ' * Disclaimer: Use at your own risk. Think of this as a quick-start to using ' * WinLicence with VB.NET. Then improve the code and let me have the latest ' * version please :@) ' ********************************************************************************** Module WinLicence Private _bufferVarValue As New System.Text.StringBuilder(100) Public Declare Function GetEnvironmentVariable Lib "kernel32.dll" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As System.Text.StringBuilder, ByVal nSize As Integer) As Integer Public Declare Function WLLoadWinlicenseDll Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLGenTrialExtensionFileKey Lib "WinlicenseSDK.dll" (ByVal TrialHash As String, ByVal Level As Short, ByVal NumDays As Short, ByVal NumExec As Short, ByRef NewDate As Date, ByVal NumMinutes As Short, ByVal TimeRuntime As Short, ByVal BufferOut As String) As Short 'Public Declare Function WLGenTrialExtensionRegistryKey Lib "WinlicenseSDK.dll" (ByVal TrialHash As String, ByVal Level As Short, ByVal NumDays As Short, ByVal NumExec As Short, ByRef NewDate As Date, ByVal NumMinutes As Short, ByVal TimeRuntime As Short, ByVal pKeyName As String, ByVal pKeyValueName As String, ByVal BufferOut As String) As Short 'Public Declare Function WLGenPassword Lib "WinlicenseSDK.dll" (ByVal PasswordHash As String, ByVal UserName As String, ByVal BufferOut As String) As Short 'Public Declare Function WLGenLicenseTextKey Lib "WinlicenseSDK.dll" (ByVal LicenseHash As String, ByVal UserName As String, ByVal Organization As String, ByVal CustomData As String, ByVal MachineID As String, ByVal NumDays As Short, ByVal NumExec As Short, ByRef NewDate As Date, ByVal CountryId As Short, ByVal Runtime As Short, ByVal GlobalMinutes As Short, ByVal BufferOut As String) As Short 'Public Declare Function WLGenLicenseSmartKey Lib "WinlicenseSDK.dll" (ByVal LicenseHash As String, ByVal UserName As String, ByVal Organization As String, ByVal CustomData As String, ByVal MachineID As String, ByVal NumDays As Short, ByVal NumExec As Short, ByRef NewDate As Date, ByVal BufferOut As String) As Short 'Public Declare Function WLGenLicenseFileKey Lib "WinlicenseSDK.dll" (ByVal LicenseHash As String, ByVal UserName As String, ByVal Organization As String, ByVal CustomData As String, ByVal MachineID As String, ByVal NumDays As Short, ByVal NumExec As Short, ByRef NewDate As Date, ByVal CountryId As Short, ByVal Runtime As Short, ByVal GlobalMinutes As Short, ByVal BufferOut As String) As Short 'Public Declare Function WLGenLicenseRegistryKey Lib "WinlicenseSDK.dll" (ByVal LicenseHash As String, ByVal UserName As String, ByVal Organization As String, ByVal CustomData As String, ByVal MachineID As String, ByVal NumDays As Short, ByVal NumExec As Short, ByRef NewDate As Date, ByVal CountryId As Short, ByVal Runtime As Short, ByVal GlobalMinutes As Short, ByVal RegName As String, ByVal RegValueName As String, ByVal BufferOut As String) As Short 'Public Declare Function WLRegGetStatus Lib "WinlicenseSDK.dll" (ByVal ExtendedInfo As Short) As Short 'Public Declare Function WLTrialGetStatus Lib "WinlicenseSDK.dll" (ByVal ExtendedInfo As Short) As Short 'Public Declare Function WLTrialExtGetStatus Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLRegGetLicenseInfo Lib "WinlicenseSDK.dll" (ByVal UserName As String, ByVal Organization As String, ByVal CustomData As String) As Boolean 'Public Declare Function WLTrialTotalDays Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLTrialTotalExecutions Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLTrialDaysLeft Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLTrialExecutionsLeft Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLTrialExpirationDate Lib "WinlicenseSDK.dll" (ByRef ExpDate As Date) As Short 'Public Declare Function WLTrialGlobalTimeLeft Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLTrialRuntimeLeft Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLTrialLockedCountry Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLRegDaysLeft Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLRegExecutionsLeft Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLRegExpirationDate Lib "WinlicenseSDK.dll" (ByRef ExpDate As Date) As Short 'Public Declare Function WLRegTotalExecutions Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLRegTotalDays Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLHardwareGetID Lib "WinlicenseSDK.dll" (ByVal HardId As String) As Boolean 'Public Declare Function WLHardwareCheckID Lib "WinlicenseSDK.dll" (ByVal HardId As String) As Boolean 'Public Declare Function WLRegSmartKeyCheck Lib "WinlicenseSDK.dll" (ByVal UserName As String, ByVal Organization As String, ByVal CustomData As String, ByVal AsciiKey As String) As Boolean 'Public Declare Function WLRegNormalKeyCheck Lib "WinlicenseSDK.dll" (ByVal AsciiKey As String) As Boolean 'Public Declare Function WLRegNormalKeyInstallToFile Lib "WinlicenseSDK.dll" (ByVal AsciiKey As String) As Boolean 'Public Declare Function WLRegNormalKeyInstallToRegistry Lib "WinlicenseSDK.dll" (ByVal AsciiKey As String) As Boolean 'Public Declare Function WLRegSmartKeyInstallToFile Lib "WinlicenseSDK.dll" (ByVal UserName As String, ByVal Organization As String, ByVal CustomData As String, ByVal AsciiKey As String) As Boolean 'Public Declare Function WLRegSmartKeyInstallToRegistry Lib "WinlicenseSDK.dll" (ByVal UserName As String, ByVal Organization As String, ByVal CustomData As String, ByVal AsciiKey As String) As Boolean 'Public Declare Function WLTrialCustomCounterInc Lib "WinlicenseSDK.dll" (ByVal Value As Short, ByVal CounterID As Short) As Short 'Public Declare Function WLTrialCustomCounterDec Lib "WinlicenseSDK.dll" (ByVal Value As Short, ByVal CounterID As Short) As Short 'Public Declare Function WLTrialCustomCounter Lib "WinlicenseSDK.dll" (ByVal CounterID As Short) As Short 'Public Declare Function WLTrialCustomCounterSet Lib "WinlicenseSDK.dll" (ByVal Value As Short, ByVal CounterID As Short) As Short 'Public Declare Function WLRestartApplication Lib "WinlicenseSDK.dll" () As Boolean 'Public Declare Function WLRegLockedCountry Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLRegRuntimeLeft Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLRegGlobalTimeLeft Lib "WinlicenseSDK.dll" () As Short 'Public Declare Function WLRegDisableCurrentKey Lib "WinlicenseSDK.dll" (ByVal DisableFlags As Short) As Boolean 'Public Declare Function WLRegRemoveCurrentKey Lib "WinlicenseSDK.dll" () As Boolean 'Public Declare Function WLHardwareGetFormattedID Lib "WinlicenseSDK.dll" (ByVal NumCharBlock As Short, ByVal Uppercase As Short, ByVal Buffer As String) As Boolean 'Public Declare Function WLPasswordCheck Lib "WinlicenseSDK.dll" (ByVal UserName As String, ByVal Password As String) As Boolean 'Public Declare Function WLTrialExpireTrial Lib "WinlicenseSDK.dll" () As Boolean