Sign in to follow this  
Followers 0
SleepyXtreme

Updating my software

1 post in this topic

#1 ·  Posted (edited)

Ok so i want my program to be updateable so i threw in a function that updates but i don't know why it doesn't work.

CODE
FileDelete(@TempDir & "/Version.ini")

InetGet("http://www.andrewshangout.com/aast/Version.ini", @TempDir & "/Version.ini", 1, 1)

While @InetGetActive

TrayTip("AAST", "Checking for Update", 10, 16)

Sleep(250)

Wend

TrayTip("","",0)

$version = IniRead(@TempDir & "/Version.ini", "AAST", "Version", "")

$version2 = "1.7.3.189"

if $version <> $version Then

MsgBox(0,"Andrew's Anti Snooping Tool Version 1.7.3.189", "Your software will now be updated to the latest version. ")

InetGet("http://www.andrewshangout.com/aast/AASTInstall.exe", @TempDir & "/AASTInstall.exe", 1, 1)

While @InetGetActive

TrayTip("AAST", "Downloading Update: Bytes = " & @InetGetBytesRead, 10, 16)

Sleep(250)

Wend

TrayTip("","",0)

TrayTip("AAST","Downloading Update: Complete",10,16)

Sleep(2000)

Run(@TempDir & "/AASTInstall.exe")

Exit

Else

MsgBox(0,"Andrew's Anti Snooping Tool Version 1.7.3.189", "Your AAST software is up to date. ")

EndIf

update: wow i'm a fricken moron, found the problem (if $version <> $version Then) durrrr

Edited by SleepyXtreme

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0