|
how to avoid start activation during 30 trial days and after that using an unic code changing next ?
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim num As Integer
Dim num2 As UInt32
Dim num3 As UInt32
Try
If (MySettingsProperty.Settings.Culture.Length > 0) Then
Thread.CurrentThread.CurrentUICulture = New CultureInfo(MySettingsProperty.Settings.Culture)
End If
Catch exception1 As Exception
Dim ex As Exception = exception1
ProjectData.SetProjectError(ex)
Dim exception As Exception = ex
ProjectData.ClearProjectError
End Try
Me.Localize
Me.KSVE = New KSVE4Class
Me.KSVE.Initialize(-1281006)
Me.KSVE.FindActivation(num, num2, num3)
If ((num <> 0) And (num <> &H100)) Then
Me.RunActivationApplication
MyBase.Close
Else
Me.voice = New SpeechSynthesizer
Me.ComboBox1.Items.Clear
Dim voice As InstalledVoice
For Each voice In Me.voice.GetInstalledVoices
Me.ComboBox1.Items.Add(voice.VoiceInfo.Name)
Next
If (Me.ComboBox1.Items.Count > 0) Then
Me.ComboBox1.SelectedIndex = 0
End If
End If
End Sub
__________________
Decode and Conquer
|