![]() |
|
#6
|
||||
|
||||
|
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 |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Import OS Fixing | MaRKuS-DJM | General Discussion | 31 | 07-16-2004 23:20 |
| Fixing an EXE to not call a DLL? | Barry | General Discussion | 11 | 06-03-2004 00:37 |