Updater, If $Current = $Newest Then MsgBox()

[AzKay]

$CurrentVersion = IniRead("Setting.ini", "Version", "Current", "")

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", "http://h1.ripway.com/ROToolbox/CurrentVersion.txt")
$oHTTP.Send()
$NewestVersion = $oHTTP.Responsetext

If $CurrentVersion = $NewestVersion Then
    MsgBox(0, "Info", "Your have the latest version.")
Else
    If $CurrentVersion < $NewestVersion Then
        $Update = MsgBox(4, "Info", "Update Available. Update Now?")
        If $Update = 6 Then Update()
    EndIf
EndIf

Func Update()
    IniWrite("Setting.ini", "Version", "Current", $NewestVersion)
EndFunc

Here the ini

[Version]
Current=1

Heres my problem, It always says It needs to update, even if its the same "Version" as the newest.

The ini says 1, then NewestVersion.txt says 1, I checked in a msgbox, they are both 1, yet, it still says its less.

[MHz]

Try converting the strings stored in the variables with Int() before testing the condition.

[AzKay]

Works now, Thanks ^^

Edited December 21, 2006 by AzKay

[Xenobiologist]

Hi,

$CurrentVersion = IniRead("Setting.ini", "Version", "Current", "")

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open ("GET", "http://h1.ripway.com/ROToolbox/CurrentVersion.txt")
$oHTTP.Send ()
$NewestVersion = $oHTTP.Responsetext

Select
    Case Int($CurrentVersion) = Int($NewestVersion)
        MsgBox(0, "Info", "Your have the latest version.")
    Case Int($CurrentVersion) < Int($NewestVersion)
        If MsgBox(4, "Info", "Update Available. Update Now?") = 6 Then Update()
EndSelect

Func Update()
    IniWrite("Setting.ini", "Version", "Current", $NewestVersion)
EndFunc  ;==>Update

So long,

Mega