Looking for Iguana v.5? Learn More or see the Documentation.
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
|