AutoUpdate Help

[jackyyll]

Hi, im working on an autoupdater for my program... And when i run it, nothing happens Heres my code:

Program Itself(MAMBoT.exe):

Local $verini = 'http://acguild.ampedhost.com/bot/ver/ver.ini'
Local $ping = ping ('www.google.com', 250)

Select
Case $ping = 0
$msg1 = MsgBox(1, "Error", "No internet connection detected. Close program now?")
If $msg1 = 1 Then
Exit
EndIf
Case $ping = 1
InetGet($verini, "\Data\ver.ini", 1)
If IniRead(@ScriptDir & '\Data\ver.ini','Version','FileVer','Not Found') > IniRead(@ScriptDir & '\Data\version.ini','Version','FileVer','Not Found') Then
SplashOff()
SplashTextOn("MAMBoT", "A newer version has been found and is updating!  Please wait, the program will now restart...")
Sleep(2500)
SplashOff()
Run ('update.exe', @ScriptDir)
Exit
Else
FileDelete(@ScriptDir & '\Data\temp.ini')
EndIf
EndSelect

Updater(update.exe):

ProcessClose("MAMBoT.exe")

$newestver = IniRead(@ScriptDir '\Data\ver.ini','Version','FileVer','Not Found')
$website = 'http://acguild.ampedhost.com/bot/' & $newestver & '/MAMBoT.exe'
If FileExists(@ScriptDir & '\MAMBoT.exe') Then
FileDelete(@ScriptDir & '\MAMBoT.exe')
Else
Sleep(10)
INetGet($website, "MAMBoT.exe", 1)
IniWrite(@ScriptDir & '\Data\version.ini','Version','FileVer', $newestver)
FileDelete(@ScriptDir & '\Data\ver.ini')
Sleep(10)
SplashTextOn("MAMBoT Updater", "Successfully updated to the latest version."
Sleep(5000)
Run ('update.exe', @ScriptDir)
Exit

Do you guys see any problems? Thanks for the help in advance

Edited March 2, 2006 by jackyyll

[pecloe]

a quick look

$newestver = IniRead(@ScriptDir '\Data\ver.ini','Version','FileVer','Not Found')

should be

$newestver = IniRead(@ScriptDir & '\Data\ver.ini','Version','FileVer','Not Found')

edit: i don't see any endif are you using scite?

Edited March 3, 2006 by pecloe

[jackyyll]

Changed my code to this and still no cigar:

Main Program(MAMBoT.exe)

Local $verini = 'http://acguild.ampedhost.com/bot/ver/ver.ini'
Local $ping = ping ('www.google.com', 250)

If $ping = 0 Then
$msg1 = MsgBox(1, "Error", "No internet connection detected. Close program now?")
If $msg1 = 1 Then
Exit
EndIf
EndIf
If $ping = 1 Then
InetGet($verini, "\Data\ver.ini", 1)
If IniRead(@ScriptDir & '\Data\ver.ini','Version','FileVer','Not Found') > IniRead(@ScriptDir & '\Data\version.ini','Version','FileVer','Not Found') Then
SplashOff()
SplashTextOn("MAMBoT", "A newer version has been found and is updating!  Please wait, the program will now restart...")
Sleep(2500)
SplashOff()
Run ('update.exe', @ScriptDir)
Exit
Else
FileDelete(@ScriptDir & '\Data\ver.ini')
EndIf
EndIf

Updater(update.exe):

ProcessClose("MAMBoT.exe")

$newestver = IniRead(@ScriptDir & '\Data\ver.ini','Version','FileVer','Not Found')
$website = 'http://acguild.ampedhost.com/bot/' & $newestver & '/MAMBoT.exe'
If FileExists(@ScriptDir & '\MAMBoT.exe') Then
FileDelete(@ScriptDir & '\MAMBoT.exe')
Else
Sleep(10)
INetGet($website, "MAMBoT.exe", 1)
IniWrite(@ScriptDir & '\Data\version.ini','Version','FileVer', $newestver)
FileDelete(@ScriptDir & '\Data\ver.ini')
Sleep(10)
SplashTextOn("MAMBoT Updater", "Successfully updated to the latest version."
Sleep(5000)
Run ('MAMBoT.exe', @ScriptDir)
EndIf
Exit

Can someone please help me out?

[NegativeNrG]

whats in the .ini file?

[The Kandie Man]

Ok, try this:

Local $verini = 'http://acguild.ampedhost.com/bot/ver/ver.ini'
Local $ping = ping ('www.google.com', 250)
If $ping = 0 Then
    $msg1 = MsgBox(1, "Error", "No internet connection detected. Close program now?")
    If $msg1 = 1 Then
        Exit
    EndIf
EndIf
ConsoleWrite("Ping: " & $ping)
If $ping > 0 Then
    InetGet($verini, @ScriptDir & "\Data\ver.ini", 1)
    If IniRead(@ScriptDir & '\Data\ver.ini','Version','FileVer','Not Found') > IniRead(@ScriptDir & '\Data\version.ini','Version','FileVer','Not Found') Then
        SplashOff()
        SplashTextOn("MAMBoT", "A newer version has been found and is updating!  Please wait, the program will now restart...")
        Sleep(2500)
        SplashOff()
        Run ('update.exe', @ScriptDir)
        Exit
    Else
        FileDelete(@ScriptDir & '\Data\ver.ini')
    EndIf
EndIf

[jackyyll]

Nevermind Kandie Mans way worked.. thanks man hehe

Edited March 3, 2006 by jackyyll