Check Version

[Danerd100]

Okay, I have developed a version checker to make sure the version of your program is up-to-date

First, you must have a config file with preferably this code

Code: Select all

<CURRENTVERSION>x.x.x.x</CURRENTVERSION>

save it as c:\Config.ini

then, you must have a website (or just one page) with just the version number an example is mine: http://danerd.freehostia.com/Version%20Number.ini

you then insert this code:

Code: Select all

Dim UptodateVersion as string = Application.LoadURLAsString("yoursite.com/Version%20Number.ini")
  dim ConfigFile As String = file.readtext(c:\Config.ini")
  dim CurVerS as integer = instr(1, ConfigFile, "<CURRENTVERSION>") + 16
  dim CurVerE as integer = instr(1, configFile, "</CURRENTVERSION>")
  dim CurVer as string = mid(ConfigFile, CurVerS, CurVerE - CurVerS)
if CurVer <> UpToDateVersion then
msgbox ("Version " & uptodateversion & " is now available, please download it.")
end if

[berndnoetscher]

Thanks for sharing your code.

[Danerd100]

If anyone knows of a better way of doing this (I might be taking a long way around or something) let me know