Updated: 17/7/2010 [16:18 - Saturday]
Fixed writing permissions.
--------
Ok finally i have finished my auto updater - it updates by your app passing arguments to the updater.exe in a Process.Start, it cannot be opened by clicking on it, it just says the program has stopped working. For the program to recognise there is a new update you need to upload a new version.ini file onto the same link as its previous one(again you can do this with Fileden just set option to Overwrite) with a higher version number than before then when the program downloads the version.ini it checks if that version is higher than the .INI file on your computer and if this is true then it initiates update. On the internet you need links for a version.ini file(SEE BELOW FOR HOW IT SHOULD BE SET OUT) and your download link(a .zip or .exe DIRECT LINK). i suggest FileDen as it allows direct links for .zip(hardly any sites let you download a .exe) and this is what you need for this to work. First you need to obtain the updater.exe by building the project i have attached at the bottom. Then put the updater.exe in the directory of wherever your application is. Also you need to put code into your project in the specified places and change a few links. Code for your project
Delete the #Region and #End Region parts and copy and paste the wherever the region says( Variables Go at the top not in a sub but inside the class )
VB.NET Code:
Imports System.Runtime.InteropServices
Imports System.Text
#Region " VARIABLES "
Dim downloadedINIpath As String = "http://www.example.com/version.ini"
Dim fullpath1 As String = IO.Path.Combine(FileIO.SpecialDirectories.CurrentUserApplicationData, "settings.ini") 'Path of local .INI file
Dim fullpath2 As String = IO.Path.Combine(FileIO.SpecialDirectories.CurrentUserApplicationData, "version.ini") 'Path of downloaded .INI file
Dim newUpdaterPath As String = IO.Path.Combine(FileIO.SpecialDirectories.CurrentUserApplicationData, "Updater.exe") 'Path of Updater.exe
Dim Version As String = My.Application.Info.Version.ToString 'DONT EDIT
#End Region
#Region " ON FORM CLOSING "
Dim fullpath3 As String = IO.Path.Combine(FileIO.SpecialDirectories.CurrentUserApplicationData, "version.ini") 'Updates Path of downloaded .INI file
Dim fileExists As Boolean = My.Computer.FileSystem.FileExists(fullpath3)
If fileExists = True Then
My.Computer.FileSystem.DeleteFile(fullpath3, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently) 'Clean up version.ini when app is shutdown
End If
#End Region
#Region " ON FORM LOAD "
If My.Computer.FileSystem.FileExists(fullpath1) = False Then
INIReadWrite.WriteINI(fullpath1, "settings", "version", Version) 'Write new local .INI file if it doesn't exist
Else
If INIReadWrite.ReadINI(fullpath1, "settings", "version") <> Version Then
If My.Computer.FileSystem.FileExists(IO.Path.Combine(FileIO.SpecialDirectories.CurrentUserApplicationData, "version.ini")) Then
My.Computer.FileSystem.DeleteFile(IO.Path.Combine(FileIO.SpecialDirectories.CurrentUserApplicationData, "version.ini"), FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently) 'If previous downloaded .INI file still exists then delete it
End If
My.Computer.Network.DownloadFile(downloadedINIpath, fullpath2) 'Download new .INI file
If INIReadWrite.ReadINI(fullpath2, "settings", "version") <> INIReadWrite.ReadINI(fullpath1, "settings", "version") Then 'Check the downloaded .INI file version against the local .INI files version
If MsgBox("A new update is available, do you want to update now?", MsgBoxStyle.YesNo, "New update") = MsgBoxResult.Yes Then 'If new update found, ask if they want to update now
Try
Dim a1 As String = """http://www.example.com/myapp(.zip/.exe)""" 'Address of new program to download(Change this to yours(can be either .zip or .exe file extensions))
Dim a2 As String = """" & Application.StartupPath & """" 'Download it to the applications folder
Dim a3 As String = """" & My.Application.Info.AssemblyName & """" 'Gives updater the applications name
Dim a4 As String = a1 & " " & a2 & " " & a3
Process.Start(newUpdaterPath, a4) 'Start the updater
Catch ex As Exception
Application.Exit() 'If cannot start for some reason, exit the program.
End Try
End If
Else
End If
#End Region
Class INIReadWrite
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Shared Function GetPrivateProfileString(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Shared Function WritePrivateProfileString(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Boolean
End Function
Public Shared Function ReadINI(ByVal File As String, ByVal Section As String, ByVal Key As String) As String
(Put whatever version you want here - if it is more than the one on your computer it will update)
To Get the Updater.exe you need to BUILD the project(Not Debug, only build because it wont run as i said earlier in this post.)
I have no problem with you using it in your project or whatever as long as you dont call it your own.
Please give me some feedback as well on this as it took me a long time to make. Thankyou
Last edited by Emcrank; Jul 17th, 2010 at 10:18 AM.
Remember to rate posts with the button on the left()
Big text at the end of the post is not required. Also, all codebank files are required to have the source code, and not compiled binaries, no matter if you include a virus scan or not.
erm because the program was the bit that took me a long time to make.
If you're wanting to share it with people but not post the source code here then you'll need to share it on another site. Compiled files are not allowed here on vbf in any of the forums.
Currently using VS 2015 Enterprise on Win10 Enterprise x64.
Because i know people will download it and call it there own and it took me a long time to make.
I can appreciate that but firstly I dont really think anyone will do that - secondly, look at the stuff that other people have put in the codebank... I'm sure a lot of it has taken much longer than however long it took you to make this. I know I personally have spent over 10 hours in total on just a single item that I've posted here and if you add up all of the threads I've posted in the codebank there is easily over 40 hours worth of my work - I'm not trying to show off or anything, I'm just using that as an example as obviously I dont know exactly how long other people have spent on items they have added.
I know I've seen quite a few threads recently in the VB.NET forum asking about how to make an auto updater program for their app, so I think if this solution of yours works well then it would help a lot of people out.
Oh and another benefit of putting the source code here is that people can give you advice on how it could be improved or alternative ways to do something, so you would benefit from it as well.
EDIT: Plus I noticed you just edited your thread about moving a borderless form (here) so that the code is now very nearly identical to the code I posted in this post that I gave you a link to in your thread, the only difference is that you have taken some of my comments out. Now I have no problem with that, but I think its a bit unfair to say that you wont share something because you dont want other people passing it off as their own when you have just done pretty much exactly that
Last edited by chris128; Jul 8th, 2010 at 02:46 PM.
The CodeBank is a place where we share our work with others. Whether or not it gets credit in other people's applications is a risk we take. If we wanted to, we could sell them instead on a different site, but we offer our stuff free and open source. My latest two submissions, I've spent several weeks on them (one of them, over a month and a half), and I put them out so that way others won't have to go through the same stuff I have. Credit is optional, and they're really SDK's for making their own content around it.
It's common courtesy to give credit where credit's due, but posting a compiled EXE in the codebank is (as been stated) against the rules, and someone can just decompile it and get the source code anyway (or very close to it).