Here is the function:
Sub CheckLimeTrial(ByVal bShow As Boolean) TurboActivate.VersionGUID =
Dim gr As New IsGenuineResult
Try ' Check if we're activated, and every 90 days verify it with the ' activation servers. In this example we won't show an error if ' the activation was done offline. (see the 3rd parameter of ' the IsGenuine() function) gr = TurboActivate.IsGenuine(14, 7, True, True) '14,3 from families '90,14 If gr = IsGenuineResult.InternetError Then Dim sMsg As String = ... MessageBox.Show(sMsg) ElseIf gr = IsGenuineResult.NotGenuine Then Try If TurboActivate.IsActivated Then gr = TurboActivate.IsGenuine If gr <> IsGenuineResult.Genuine Then MessageBox.Show(...) End End If End If Catch End Try End If IsLimeActivated = (gr = IsGenuineResult.Genuine _ OrElse gr = IsGenuineResult.GenuineFeaturesChanged _ OrElse gr = IsGenuineResult.InternetError) Catch ex As TurboActivateException MessageBox.Show("Failed to check if activated: " + ex.Message) End Try
If Not IsLimeActivated Then TurboActivate.UseTrial(TurboActivate.TA_Flags.TA_USER) If bShow Then Dim f As New frmTrial f.ShowDialog() End If End If End Sub
I've watched it happen - you run the product, it says unactivated, you activate it, close it down and start it again and it says unactivated again. I couldn't see any cleaning utilities running and I can't see that anything has the opportunity to clean junk files.
What is the benefit of TA_SYSTEM over TA_USER?