IsGenuineEx VB6 problem

I'm doing some testing by revoking/unrevoking the product key with my VB6 program.

This is the code I'm using:[ Dim gr As IsGenuineResult Dim isActive As Boolean TurboActivate.VersionGUID = "1fe6aad354c00bf621e531.78400814"

Call Activate gr = TurboActivate.IsGenuineEx(0, 0, True) If (gr = IsGenuineResult.Genuine Or gr = IsGenuineResult.GenuineFeaturesChanged Or gr = IsGenuineResult.InternetError) Then isActive = True Else isActive = False End If]

I have a problem where the status on my computer changes ONLY if I call Activate. If I comment that out, the genuine status will simply retain the value it had before.For example:Key is activated and unrevoked. I call this code and the program runs. I then revoke the key from the website and attempt to run program again. If I don't call Activate then the program still runs. Only if I call Activate then the program updates that the key was revoked.On the opposite, I call Activate and the program knows that the key revoked. I then reenable the product key on the website. Once again, only if I call Activate does the program now run. Without it, the program will not run even though it is reinstated on the website.

Correct me if I'm wrong but shouldn't IsGenuineEx not be dependent on the Activate call?I appreciate your help.Thanks.

gr = TurboActivate.IsGenuineEx(0, 0, True)

Don't use 0,0. Firstly, that's bad behavior for the customer (do you really want to force the customer to be connected tot the internet every single time your app runs?).

Secondly, it doesn't really contact the servers every time IsGenuineEx() is run (even if you use 0,0).

So use IsGenuineEx() with reasonable values and everything will work as expected. Namely, when it contacts the servers and you revoke the key then your app will be deactivated.

Correct me if I'm wrong but shouldn't IsGenuineEx not be dependent on the Activate call?

It's not.

Reply
Discard post