How to use WUPDATE

[NewsArchive]

Where can I find info on WUPDATE so that I can add a procedure to check a
website and automatically compare versions, much as Friedrich does?
~~~~~~~~~~~~~~~
Sim Sherer

[NewsArchive]

Hi Sim,

>Where can I find info on WUPDATE so that I can add a procedure to check a
>website and automatically compare versions, much as Friedrich does?

I don't think that has made it to the help... This is what I use:

CheckForUpdates ROUTINE
Data
Rc Long
Ec Long
Code

Run('wupdate.exe /C /S',1)
RC = RunCode()
If RC = 1
If Message('There are new updates to the Broker Intellect II program available for download. ' &|
'If you want to update the program, the program will shut down automatically and ' &|
'run the web update wizard.' &|
'||Do you want to update the program now?',|
'Updates Available - download now?',|
'~RO-Mx1_house.ico',|
Button:Yes+Button:No)=Button:Yes
Run('wupdate.exe')
Halt()
End
Else
Message('No updates to download','No new updates','~RO-Mx1_house.ico')
End


Best regards,

Arnór Baldvinsson
Icetips Creative, Inc.
San Antonio, Texas, USA
www.icetips.com


Subscribe to information from Icetips.com:
http://www.icetips.com/subscribe.php

[NewsArchive]

I wrote a small SB exe to check the site and write to the reg the available
version
It is attached
As SB knows in reg all settings for your site version file it is easy to
then download that file and compare it

You have to change the reg keys and sites infos of course

runs silently in one second or so if not less

Then in code I use this

RUN('cgfcheck.exe',1)

LOC:VersionLocal =
GETREG(REG_LOCAL_MACHINE,'SOFTWARE\Lindersoft\WebU pdate\Apps\{{500CCC05-81A0-11D9-390C-009F3F177E87}','LOCAL_VERSION')
LOC:VersionSite = GETREG(REG_CURRENT_USER,'SOFTWARE\CGF\Suite
Comptable','Version en Ligne')

IF LOC:VersionLocal = LOC:VersionSite
GLO:MessageCGFButton = 0
GLO:MessageCGFIcon = 'QUESTION' ! INFO - QUESTION et par defaut STOP
GLO:MessageCGFButOKIcon = '' ! 1= cacher
GLO:MessageCGFButOKTip = 'Oui'
GLO:MessageCGFButKOIcon = '' ! 1= cacher
GLO:MessageCGFButKOTip = 'Non'
GLO:MessageCGFL1Text = 'Mise à Jour du Logiciel'
GLO:MessageCGFL2Text = ''
GLO:MessageCGFL3Text = 'Voulez-vous forcer la réinstallation du logiciel
?'
GLO:MessageCGFL4Text = '(Cliquez sur Oui)'
GLO:MessageCGFL5Text = ''
GLO:MessageCGFL6Text = ''
GLO:MessageCGFEntry = 0 ! 1 = afficher
GLO:MessageCGFEntryText = ''
GLO:MessageCGFEntryValue = ''
GLO:MessageCGFL1Pos = 'CENTER'
GLO:MessageCGFL2Pos = ''
GLO:MessageCGFL3Pos = 'CENTER'
GLO:MessageCGFL4Pos = 'CENTER'
GLO:MessageCGFL5Pos = 'CENTER'
GLO:MessageCGFL6Pos = 'CENTER'
GLO:MessageCGFL1Style = '700' ! 700 = gras | 400 = normal | 4496 =
italique
GLO:MessageCGFL2Style = ''
GLO:MessageCGFL3Style = ''
GLO:MessageCGFL4Style = ''
GLO:MessageCGFL5Style = ''
GLO:MessageCGFL6Style = ''
GLO:MessageCGFL1Color = '16711680' ! 255 = Rouge | 65535 = jaune |
16711680 = bleu | 8388608 = bleu foncé | 32768 = vert
GLO:MessageCGFL2Color = '8388608'
GLO:MessageCGFL3Color = '8388608'
GLO:MessageCGFL4Color = '8388608'
GLO:MessageCGFL5Color = '8388608'
GLO:MessageCGFL6Color = '8388608'

MessageCGF

IF GLO:MessageCGFButton = 1
PUTREG(REG_LOCAL_MACHINE,'SOFTWARE\Lindersoft\WebU pdate\Apps\{{500CCC05-81A0-11D9-390C-009F3F177E87}','LOCAL_VERSION','5.0.0.0')

RUN('wupdate.exe')
END
ELSE

RUN('wupdate.exe')
END

That is a home made message box filled in to enable a forced update if the
user wants to do so ....
--
Merci - Thank you

JP

[NewsArchive]

Phew!
I'm somewhat scared to play with registry entris directly.
How would I know which code to change for my app?
I know no French at all.

Sim

[NewsArchive]

no french needed ...
500CCC05-81A0-11D9-390C-009F3F177E87 is the GUID of my app declared in setup
builder
replace with yours
then I put in my sb installer a write to registry the installation path and
version is also written from my app so I just retreive it
loc:versionlocal(e) in english
and loc:versionsite is no need to translate ....

same in the sb code ....

JP

--
Merci - Thank you

JP