Uses wodAppUpdate ActiveX component

Compress file using UpdSqueze:
'UpdSqueze is part of wodAppUpdate ActiveX component. You can find UpdSqueze.exe inside component folder.
'This application is used to compress your files so wodAppUpdate downloads are faster,
'and it will create [File] section for the file which you can almost paste to configuration script directly-just change URL line so it contains full path to the file.
UpdSqueze c:\Windows\Notepad.exe c:\Notepad.exe.gz
'Here is [File] section created automatically by UpdSqueze. You can place it inside your configuration file:
[File]
Name=Notepad.exe
Size=136579
Version=6.1.7600.16385.90713
Date=20090714015636
MD5=f2c7bb8acc97f92e987a2d4087d021b1
Compressed=1 'when Compressed is set to 1 wodAppUpdate will decompress file on the fly during download 
URL=Notepad.exe.gz
Code:
Dim WithEvents wodAppUpdate1 As wodAppUpdateCom
Private Sub Form_Load()
    Set wodAppUpdate1 = New wodAppUpdateCom

    'Using Check Method we will open our configuration file and check for update.
    wodAppUpdate1.Check "http://www.some_website.com/update.txt"
End Sub

'CheckDone Event fires when component has finished checking for new updates.
Private Sub wodAppUpdate1_CheckDone(ByVal NewFiles As Long, ByVal ErrorCode As Long, ByVal ErrorText As String)
    If ErrorCode = 0 Then
        If NewFiles Then
            If MsgBox("New files found. Download?", vbYesNo + vbQuestion, "New files found!") = vbYes Then
                'If new file (files) is found we can download it using Download Method.
                wodAppUpdate1.Download
            End If
        Else
            MsgBox "No new versions found. Your application is up-to-date."
        End If
    Else
        MsgBox "There was an error checking for updates: " & ErrorText
    End If
End Sub

'DownloadDone Event fires when component finishes downloading all files.
Private Sub wodAppUpdate1_DownloadDone(ByVal ErrorCode As Long, ByVal ErrorText As String)
    If ErrorCode = 0 Then
        If MsgBox("Download successful. Replace now?", vbYesNo + vbQuestion, "Replace files..") = vbYes Then
            'Finally when new file (files) is downloaded we can update it using Update Method.
            wodAppUpdate1.Update
        End If
    Else
        MsgBox "There was an error downloading: " & ErrorText
    End If
End Sub

Uses wodAppUpdate ActiveX component

Compress file using UpdSqueze:
'UpdSqueze is part of wodAppUpdate ActiveX component. You can find UpdSqueze.exe inside component folder.
'This application is used to compress your files so wodAppUpdate downloads are faster,
'and it will create [File] section for the file which you can almost paste to configuration script directly-just change URL line so it contains full path to the file.
UpdSqueze c:\Windows\Notepad.exe c:\Notepad.exe.gz
'Here is [File] section created automatically by UpdSqueze. You can place it inside your configuration file:
[File]
Name=Notepad.exe
Size=136579
Version=6.1.7600.16385.90713
Date=20090714015636
MD5=f2c7bb8acc97f92e987a2d4087d021b1
Compressed=1 'when Compressed is set to 1 wodAppUpdate will decompress file on the fly during download 
URL=Notepad.exe.gz
Code:
Dim WithEvents wodAppUpdate1 As WODAPPUPDATECOMLib.wodAppUpdateCom
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    wodAppUpdate1 = New WODAPPUPDATECOMLib.wodAppUpdateCom

    'Using Check Method we will open our configuration file and check for update.
    wodAppUpdate1.Check("http://www.some_website.com/update.txt")
End Sub

'CheckDone Event fires when component has finished checking for new updates.
Private Sub wodAppUpdate1_CheckDone(ByVal NewFiles As Integer, ByVal ErrorCode As Integer, ByVal ErrorText As String) Handles wodAppUpdate1.CheckDone
    If ErrorCode = 0 Then
        If NewFiles Then
            If MsgBox("New files found. Download?", vbYesNo + vbQuestion, "New files found!") = vbYes Then
                'If new file (files) is found we can download it using Download Method.
                wodAppUpdate1.Download()
            End If
        Else
            MsgBox("No new versions found. Your application is up-to-date.")
        End If
    Else
        MsgBox("There was an error checking for updates: " & ErrorText)
    End If
End Sub

'DownloadDone Event fires when component finishes downloading all files.
Private Sub wodAppUpdate1_DownloadDone(ByVal ErrorCode As Integer, ByVal ErrorText As String) Handles wodAppUpdate1.DownloadDone
    If ErrorCode = 0 Then
        If MsgBox("Download successful. Replace now?", vbYesNo + vbQuestion, "Replace files..") = vbYes Then
            'Finally when new file (files) is downloaded we can update it using Update Method.
            wodAppUpdate1.Update()
        End If
    Else
        MsgBox("There was an error downloading: " & ErrorText)
    End If
End Sub

Uses wodAppUpdate ActiveX component

Compress file using UpdSqueze:
'UpdSqueze is part of wodAppUpdate ActiveX component. You can find UpdSqueze.exe inside component folder.
'This application is used to compress your files so wodAppUpdate downloads are faster,
'and it will create [File] section for the file which you can almost paste to configuration script directly-just change URL line so it contains full path to the file.
UpdSqueze c:\Windows\Notepad.exe c:\Notepad.exe.gz
'Here is [File] section created automatically by UpdSqueze. You can place it inside your configuration file:
[File]
Name=Notepad.exe
Size=136579
Version=6.1.7600.16385.90713
Date=20090714015636
MD5=f2c7bb8acc97f92e987a2d4087d021b1
Compressed=1 'when Compressed is set to 1 wodAppUpdate will decompress file on the fly during download 
URL=Notepad.exe.gz
Code:
WODAPPUPDATECOMLib.wodAppUpdateCom wodAppUpdate1;
private void Form1_Load(object sender, EventArgs e)
{
    wodAppUpdate1 = new WODAPPUPDATECOMLib.wodAppUpdateCom();
    wodAppUpdate1.CheckDone += new WODAPPUPDATECOMLib._IwodAppUpdateComEvents_CheckDoneEventHandler(wodAppUpdate1_CheckDone);
    wodAppUpdate1.DownloadDone += new WODAPPUPDATECOMLib._IwodAppUpdateComEvents_DownloadDoneEventHandler(wodAppUpdate1_DownloadDone);

    //Using Check Method we will open our configuration file and check for update.
    wodAppUpdate1.Check("http://www.some_website.com/update.txt", null);
}

//CheckDone Event fires when component has finished checking for new updates.
void wodAppUpdate1_CheckDone(int NewFiles, int ErrorCode, string ErrorText)
{
    if (ErrorCode == 0)
    {
        if (NewFiles > 0)
        {
            DialogResult result = MessageBox.Show("New files found. Download?", "New files found!", MessageBoxButtons.YesNo, MessageBoxIcon.Question);

            if (result == DialogResult.Yes)
            {
                //If new file (files) is found we can download it using Download Method.
                wodAppUpdate1.Download();
            }
        }
        else
        {
            MessageBox.Show("No new versions found. Your application is up-to-date.");
        }
    }
    else
    {
        MessageBox.Show("There was an error checking for updates: " + ErrorText);
    }
}

//DownloadDone Event fires when component finishes downloading all files.
void wodAppUpdate1_DownloadDone(int ErrorCode, string ErrorText)
{
    if (ErrorCode == 0)
    {
        DialogResult resultUpd = MessageBox.Show("Download successful. Replace now?", "Replace files..", MessageBoxButtons.YesNo, MessageBoxIcon.Question);

        if (resultUpd == DialogResult.Yes)
        {
            //Finally when new file (files) is downloaded we can update it using Update Method.
            wodAppUpdate1.Update();
        }
    }
    else
    {
        MessageBox.Show("There was an error downloading: " + ErrorText);
    }
}