WoW64 Plugin implementation

[AndrewX]

Hi Forum, I need to include this code, based on AMS Expiration Example, in Startup Page.
How I can use this correctly on both architectures 32\64bit?
Thanks a lot!

-- Check if the OS is 64 bit
b64Bit = System.Is64BitOS();

if b64Bit then

else

end

------32Bit------

-- Initialize variables
days_left = 365;
date_installed = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", true);
time_limit = 365; --the length of the trial period, in days

-- Convert string value to number
date_installed = String.ToNumber(date_installed);

-- Was date_installed 0 (non-existent)?
if date_installed == 0 then
-- Value was nonexistent, create it
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", System.GetDate(DATE_FMT_JULIAN), REG_SZ);
else
-- Update days_left
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end

-- Are there days left?
if days_left < 1 then
-- There are not any days left, alert user and exit.
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
end

------64Bit------

-- Initialize variables
days_left = 365;
date_installed = Wow64.RegistryGetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", true, Wow64.KEY64);
time_limit = 365; --the length of the trial period, in days

-- Convert string value to number
date_installed = String.ToNumber(date_installed);

-- Was date_installed 0 (non-existent)?
if date_installed == 0 then
-- Value was nonexistent, create it
Wow64.RegistrySetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", System.GetDate(DATE_FMT_JULIAN), REG_SZ, Wow64.KEY64);
else
-- Update days_left
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end

-- Are there days left?
if days_left < 1 then
-- There are not any days left, alert user and exit.
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
end

[herrin]

https://forums.indigorose.com/forum/old-versions/archive/autoplay-media-studio-6-0/15100-how-can-i-build-a-program-to-30-day-a-trial-version-or-a-demo?t=15061&highlight=Expiration+date&_=1557764304256

[AndrewX]

Thanks herrin but I don't want Application.SaveValue. I prefer Registry.SetValue.
On 64Bit systems I have problem with WoW6432Node so I use dedicated plugin.
I would to use my code but I don't know the way to determine the appropriate cod for appropriate architecture.

Unfortunately Application.SaveValue saves data into Indigo Rose Master Key, the reason I prefer Registry.SetValue.

Thanks in advance for a MakeUp of my simple code.

[BioHazard]

You already have workable code for each of the respective architectures. And System.Is64BitOS() returns boolean. So what's the problem?

ie.

If (System.Is64BitOS()) then
     -- your x64 code
else
     -- your x86 code
end

What exactly don't you understand?

[AndrewX]

Excuse me Bio, I'm confused, too many if, than, end ...
So is the following code correct?

-- Check if the OS is 64 bit
b64Bit = System.Is64BitOS();
if b64Bit then

------64Bit------

-- Initialize variables
days_left = 365;
date_installed = Wow64.RegistryGetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", true, Wow64.KEY64);
time_limit = 365; --the length of the trial period, in days

-- Convert string value to number
date_installed = String.ToNumber(date_installed);

-- Was date_installed 0 (non-existent)?
if date_installed == 0 then
-- Value was nonexistent, create it
Wow64.RegistrySetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", System.GetDate(DATE_FMT_JULIAN), REG_SZ, Wow64.KEY64);
else
-- Update days_left
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end

-- Are there days left?
if days_left < 1 then
-- There are not any days left, alert user and exit.
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
end

else

------32Bit------

-- Initialize variables
days_left = 365;
date_installed = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", true);
time_limit = 365; --the length of the trial period, in days

-- Convert string value to number
date_installed = String.ToNumber(date_installed);

-- Was date_installed 0 (non-existent)?
if date_installed == 0 then
-- Value was nonexistent, create it
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", System.GetDate(DATE_FMT_JULIAN), REG_SZ);
else
-- Update days_left
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end

-- Are there days left?
if days_left < 1 then
-- There are not any days left, alert user and exit.
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
end
end

[herrin]

hi @BioHazard
I honestly don't understand what the problem is.
the example of TJ_Tigger (based on the Bruce code) not only does not write anything in HKEY_CURRENT_USER\Software\Indigo Rose\ACData
but it is also cryptated (base64) therefore more secure than the one proposed by him

regards

[AndrewX]

hi @BioHazard
I honestly don't understand what the problem is.

The problem is that TJ_Tigger example doesn't consider Wow6432Node.
So, cause of my poor skills, I asked for a simple code to include.
Has you can see, I already blow my mind with a bunch of code lines.

Anyway the code I previously posted doesn't work on 64bit.
The error seem a wrong "end" on 64bit zone.

This works instead

-- Check if the OS is 64 bit
b64Bit = System.Is64BitOS();
if b64Bit then

------64Bit------

-- Initialize variables
days_left = 365;
date_installed = Wow64.RegistryGetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", true, Wow64.KEY64);
time_limit = 365; --the length of the trial period, in days

-- Convert string value to number
date_installed = String.ToNumber(date_installed);

-- Was date_installed 0 (non-existent)?
if date_installed == 0 then
-- Value was nonexistent, create it
Wow64.RegistrySetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", System.GetDate(DATE_FMT_JULIAN), REG_SZ, Wow64.KEY64);
else
-- Update days_left
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end

-- Are there days left?
if days_left < 1 then
-- There are not any days left, alert user and exit.
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
end

else

------32Bit------

-- Initialize variables
days_left = 365;
date_installed = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", true);
time_limit = 365; --the length of the trial period, in days

-- Convert string value to number
date_installed = String.ToNumber(date_installed);

-- Was date_installed 0 (non-existent)?
if date_installed == 0 then
-- Value was nonexistent, create it
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", System.GetDate(DATE_FMT_JULIAN), REG_SZ);
else
-- Update days_left
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end

-- Are there days left?
if days_left < 1 then
-- There are not any days left, alert user and exit.
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
end
end
end

Do you confirm?
Thanks

[herrin]

are u sure?

[charliechaps]

I can confirm TJ's does work on Win X64, but must be run as Admin to write to Reg and SysWOW64 folder

[AndrewX]

herrin you are right, (indirectly TJ_Tigger too).
charliechaps, thanks for testing, Admin seems the problem.
So I can use only the 32bit code on both architectures.
If anyone has some "simple" suggestion, I'm here.
I'm a teacher, not a programmer, I make simple software for disabled in my school.
Thanks for all.

[BioHazard]

I honestly don't understand what the problem is...

Mmm yes, agreed. At any rate, code samples left behind by TJ are usually first rate. And yes, there's sufficient logic in that particular example to adapt it to his personal requirements. The source of confusion though is because he doesn't quite yet understand how to recognize where control structures begin and end. Some patience is required for the newbies until they fully get their head around the basics, I guess. But Herrin is correct, AndrewX. Mastering basic control structures first, will make it easier for you to bend code samples to your specific needs.

But let's move on ...

I'm confused, too many if, than, end ...

It helps if you start formatting your code correctly. Makes it easier to visualize a control structure to know where to position the 'end' statements. Is an 'optical' thing as much as a mental thing. So tab your code after initiating if/then statements, loops, etc. General rule-of-thumb is "tab do, after blue" ('end' statements are an exception). If doing it right, your final 'end' statement will always realign to the left margin.

So is the following code correct?

Depends on what you mean by 'correct'. If you mean, 'Does it do what I want, without returning errors?', then yes it's correct. But if you mean, 'Does it do the above AND avoid needless repetition to minimize overhead?', then the answer is, no. So you tell me. Does it meet this criteria? And have you run tests on both architectures? Did you experiment & tweak when encountering 'unexpected' results? What did you discover and learn about how to order 'end' statements, AndrewX?

If anyone has some "simple" suggestion...

Here's what I'd do with it. And is just one approach ...

The function System.Is64BitOS() returns a boolean result. No need to store in a variable.
Identify pointless repetition - axe what's not required.
Assign variables as 'local' whenever practicable. They usurp less overhead.
Format the code for efficacy in placement of 'end' statements.

ie.

local days_left = 365;
local time_limit = 365;

if (System.Is64BitOS()) then    -->> INITIATE MAIN CONTROL STRUCTURE

    -- execute the x64 code here
    local date_installed = String.ToNumber(Wow64.RegistryGetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", true, Wow64.KEY64));
    if date_installed == 0 then
        Wow64.RegistrySetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", System.GetDate(DATE_FMT_JULIAN), REG_SZ, Wow64.KEY64);
    else
        days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
    end

else    -->> OTHERWISE    
    
    -- execute the x86 code here
    local date_installed = String.ToNumber(Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", true));
    if date_installed == 0 then
        Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\My Application", "MyValue", System.GetDate(DATE_FMT_JULIAN), REG_SZ);
    else
        days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
    end
            
end    -->> CLOSE MAIN CONTROL STRUCURE

if days_left < 1 then
    Dialog.Message("Trial Period Over", "This software has expired");
    Application.Exit();
end

This seems to work for me ...

x64 Test:


x86 Test:


Personally, I'd refine a things bit further by wrapping the common core as a function to be placed in Globals. And then call as required. (Example attached).

[AndrewX]

Excuse me Bio, but your example doesn't work for me.
I tried it, without any modification and with Admin Privileges.
Obviously Wow64 plugin enabled and included.
Tested on fresh copys of Win7 64 and Win10 64.
No Registry Keys written.
Excuse me again for time wasting.

[BioHazard]

Indeed. An oversight on my part. Just add the following line to the function in Globals (between Lines 4 & 5):

Wow64.RegistryCreateKey(HKEY_LOCAL_MACHINE, "Software\\My Application", Wow64.KEY64);

Sorry about that. Will function as expected now. (Modded demo is attached).

Nb.
Tested under Win7(x64) and WinXP(x86).
Works perfectly.
(Not yet tested under Win10).

[AndrewX]

And yes, finally it works.
Tested on Win10 x64 Win7 x64 and Win7 x86.
Only a question:
Why Wow64 plugin write in Software and not in Wow64Node\Software?

Finally, a PM for you.

Really appreciated!

[herrin]

alternative code for the final purpose, to determine the end of the use of the application
nothing will be written

[ATTACH]n303344[/ATTACH]