Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) Unlocks the Chilkat MIME Class
Demonstrates how to unlock the Chilkat Mime functionality. The UnlockComponent method should be called once at the beginning of the program. Once unlocked, all subsequent objects are created in the unlocked state. There is no need to call UnlockComponent for every instance of a Chilkat object.
The object that called UnlockComponent may be discarded (deleted, deallocated, etc.). It does not need to remain in existence for subsequent objects to be already unlocked when created.
Also, the LastErrorText method can be examined to verify that a purchased unlock code was indeed recognized.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set mime = CreateObject("Chilkat_9_5_0.Mime") ' If a license is purchased, replace "Anything for 30-day trial" with the purchased unlock code. success = mime.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then outFile.WriteLine(mime.LastErrorText) outFile.WriteLine("unlock failed.") WScript.Quit End If ' If debugging, you can examine the LastErrorText even when a method is successful. ' This allows one to see what transpired within the method call, especially ' if the VerboseLogging property is turned on. ' In this case, a programmer can examine the LastErrorText to see if success ' was with a purchased (and recognized) unlock code, or if it was successful in trial mode. outFile.WriteLine(mime.LastErrorText) outFile.WriteLine("unlock successful.") outFile.Close
© 2000-2019 Chilkat Software, Inc. All Rights Reserved.