activelock-users

[sarath b. n. <sar...@gm...>]

Public Class Form1
    Private ActiveLock As ActiveLock3.IActiveLock
    Private WithEvents ActiveLockEventSink As ActiveLock3.ActiveLockEventNotifier
    Public s As String



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (ActiveLock.TrialLength = 2) Then
            MessageBox.Show("hi hello")
        Else
            MessageBox.Show("expired")
        End If





    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Obtain an instance of ActiveLock object
        Dim myapp As ActiveLock3.Globals = New ActiveLock3.Globals
        Dim s1 As String
        s1 = ("dGVzdA0KMS4wDQpTaW5nbGUNCjMNCg0KTGltaXRlZCBBDQoyMDA5LzA3LzA5DQoyMDA5LzA4LzA4DQo1DQpBQUFBQjNOemFDMXljMkVBQUFDQURGaUtBZVR1S0VKbXNUVmlDQ3gxREdCQ295TXZKZ1YyTTZzT0QvRnZYOGpiUCtkWmFXd0hJMFRJMjdpT1dJbU1WeGdWN09Kb0R1N0YrQlVSVUJ1WUtyaFhWSmZpeGdiV2E4NXNKNi81L2ZwZXZDNW9BOXNTUWpvNkRaVjZYb3BQWTBxeGVnYVkwTTMzaVZBWEJSTVk5MVM3UUZ2ckNIUld0ZTA1akgyUkFSZwaLcksarath")
        ActiveLock = myapp.NewInstance()
        ActiveLock.SoftwareName = "test"
        ActiveLock.SoftwareVersion = "1.0"
        ActiveLock.SoftwarePassword = "sarath"
        ActiveLock.KeyStoreType = ActiveLock3.LicStoreType.alsFile
        ActiveLock.KeyStorePath = Application.StartupPath & "\test.lic"
        'ActiveLock.SoftwareName = "test"
        ActiveLock.SoftwareCode = "AAAAB3NzaC1yc2EAAAABJQAAAICk5DM2E+JrNFTyK+MuVsd0BxvnU8wtLETPjNk0pw5lhWPsv7W/IipEv5BgIuQ6jvQLlVY2V4POE+ozZFldFvO8syqVls9xD5zXPs40ntTViSkxdirxco+o6rsyjvpfhklbUagOA0R4PTodq1n7L6UFBaC0hhKApLVH2Hv4EP0YHw=="
        ' ActiveLock.SoftwareVersion = "1.0"
        'ActiveLock.SoftwarePassword = "sarath"
        ActiveLock.LockType = ActiveLock3.ALLockTypes.lockHD

        ActiveLock.AutoRegisterKeyPath = Application.StartupPath + "\test.all"

        'ActiveLock.Init(s1)
        'Dim s As String
        'ActiveLock.LicenseKeyType = ActiveLock3.ALLicenseKeyTypes.alsRSA
        'ActiveLock.TrialType = ActiveLock3.ALTrialTypes.trialRuns
        'ActiveLock.TrialLength = 1
        'ActiveLock.TrialWarning = ActiveLock3.ALTrialWarningTypes.trialWarningPersistent
        'ActiveLock.LockType = ActiveLock3.ALLockTypes.lockHDFirmware

        's = ActiveLock.InstallationCode("sarath")
        'Dim x As Form2 = New Form2
        'x.TextBox1.Text = Application.ExecutablePath + "\test.all"

        'x.TextBox2.Text = s.ToString()
        'x.ShowDialog()
        On Error GoTo ErrHandler
        ActiveLock.Acquire()
ErrHandler:
        's = ActiveLock.InstallationCode("sarath")
        'Dim x As Form2 = New Form2
        'x.TextBox1.Text = Application.ExecutablePath + "\test.all"

        'x.TextBox2.Text = s.ToString()
        'x.ShowDialog()


        MsgBox("ActiveLock Error: " & Err.Description)
    End Sub




End Class