.NET [TUT] Real Update System (auto-check, auto-install)

Code

Public Sub check_update()

  Dim webResponse3 As System.Net.HttpWebResponse = Nothing

  Dim webRequest3 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http:/www.example.com/the_file_where_is_saved_the_number_of_your_newest_version.html")

  Try

    webResponse3 = DirectCast(webRequest3.GetResponse(), System.Net.HttpWebResponse)

    Dim srResp As System.IO.StreamReader

    srResp = New System.IO.StreamReader(webResponse3.GetResponseStream())

    Dim last_version As String

    last_version = srResp.ReadToEnd

    If Not derniere_version = "number version, like 1.2.2" Then

    Me.Hide()

    update.Show()

    Me.Close()

    Else

    OtherForm.Show()

    End If

  Catch ex As Exception

    MsgBox("Erreur while verifying update...")

    OtherForm.Show()

  End Try



    End Sub

Code

Public last_version as string



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  check_version()

  If Not Dir("update.rar") = "" Then

    Kill("update.rar")

  End If



  If My.Computer.Network.IsAvailable Then

    Dim newfile As String = "update.rar"

    Try

    MsgBox("Download will start. If application freeze, don't worry, it's normal !")

    My.Computer.Network.DownloadFile("http://www.frag-n-roses.com/downloads/Release v" & last_version & ".rar", newfile)

    MsgBox("Download finished !" & vbCrLf & "Please wait while update system unzip updated program...")

    UnRAR(".\update.rar", ".\")

    Catch

    MsgBox("Error while downloading !")

    End Try

  Else

    MsgBox("You're NOT connected to internet ! Please check your connect...")

  End If

    End Sub



Public Sub check_version()

  Dim webResponse3 As System.Net.HttpWebResponse = Nothing

  Dim webRequest3 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http:/www.example.com/the_file_where_is_saved_the_number_of_your_newest_version.html")

  Try

    webResponse3 = DirectCast(webRequest3.GetResponse(), System.Net.HttpWebResponse)

    Dim srResp As System.IO.StreamReader

    srResp = New System.IO.StreamReader(webResponse3.GetResponseStream())

    last_version = srResp.ReadToEnd

  Catch ex As Exception



  End Try



    End Sub



Private Function UnRAR(ByVal FileName As String, ByVal ExtractDir As String) As Boolean

  Dim Success As Boolean = False

  Dim CodeDeSorti As Integer



  Try

    Dim proc As New Process()

    With proc

    With .StartInfo

    .UseShellExecute = False

#If DEBUG Then

    .FileName = "UnRAR.exe"

#Else

    .FileName = My.Application.Info.DirectoryPath & "UnRAR.exe"

#End If

    .Arguments = " x -ibck -inul -or -y " & " """ & FileName & """  """ & ExtractDir & """"

    .WorkingDirectory = ExtractDir

    .WindowStyle = ProcessWindowStyle.Hidden

    .CreateNoWindow = True

    End With

    .Start()

    .WaitForExit()

    CodeDeSorti = .ExitCode

    .Close()

    End With

    If CodeDeSorti < 2 Then

    Success = True

    End If

  Catch ex As Exception

    MsgBox("UpDate system can't install updated program... Please do it yourself !" & vbCrLf & vbCrLf & "Program will close when you'll press OK...)")

  End Try



  Return Success

    End Function