iNTERFACEWARE™ Inc.
Previous iNTERFACEWARE Products Manual > Chameleon > Deploying Chameleon Applications > Registering Automatically Through a Registration API > License Object Usage Example For Visual Basic 6.0 Next

License Object Usage Example For Visual Basic 6.0

To use VB6:

  • Click Project > Components.
  • Check the CHMlicenseControl checkbox as shown below.

VB Components Menu

  • Add a CHMlicense object to your project (e.g. CHMlicense1).

VB Form

  • Use the following code (or something similar) to use the object:
Private Sub Command1_Click()
On Error GoTo HandleError 'Set up error handler.
    Dim MachineId As String
    Dim RegistrationCode As String
    
    If CHMlicense1.isLicensed Then
       MsgBox "Machine Is Licensed"
    Else
       MsgBox "Machine Is NOT Licensed"
    End If
    
    MachineId = CHMlicense1.MachineId
    MsgBox "Machine ID is  " + MachineId

    'Set a proxy if required.
    'CHMlicense1.Proxy = "webproxy.acme.com".

    'Fetch the registration code.
    RegistrationCode = CHMlicense1.FetchRegistrationCode(MachineId, "your.name@yourcompany.com", "password01", "My Development Code")
    
    MsgBox "Registration Code: " + RegistrationCode
    
    Exit Sub 'Quit so error handler doesn't get run.
HandleError:
   MsgBox Err.Description, vbCritical, "Machine Registration Error"
End Sub

VB 6.0 Example

Previous iNTERFACEWARE Products Manual > Chameleon > Deploying Chameleon Applications > Registering Automatically Through a Registration API > License Object Usage Example For Visual Basic 6.0 Next