Uses wodAppUpdate ActiveX component

Dim WithEvents wodAppUpdate1 As wodAppUpdateCom
Private Sub Form_Load()
    Set wodAppUpdate1 = New wodAppUpdateCom

    'Set Proxy hostname and Proxy type you want to use.
    wodAppUpdate1.ProxyHostname = "your_proxy_hostname"
    wodAppUpdate1.ProxyType = ProxyWEBStandard
    
    'ProxyLogin and ProxyPassword are only needed if your Proxy needs authentication.
    wodAppUpdate1.ProxyLogin = "your_proxy_login"
    wodAppUpdate1.ProxyPassword = "your_proxy_password"
    wodAppUpdate1.ProxyPort = 8080 'Proxy server port

    '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

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

    'Set Proxy hostname and Proxy type you want to use.
    wodAppUpdate1.ProxyHostname = "your_proxy_hostname"
    wodAppUpdate1.ProxyType = WODAPPUPDATECOMLib.ProxyTypes.ProxyWEBStandard

    'ProxyLogin and ProxyPassword are only needed if your Proxy needs authentication.
    wodAppUpdate1.ProxyLogin = "your_proxy_login"
    wodAppUpdate1.ProxyPassword = "your_proxy_password"
    wodAppUpdate1.ProxyPort = 8080 'Proxy server port
	
    '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

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);

    //Set Proxy hostname and Proxy type you want to use.
    wodAppUpdate1.ProxyHostname = "your_proxy_hostname";
    wodAppUpdate1.ProxyType= WODAPPUPDATECOMLib.ProxyTypes.ProxyWEBStandard; 

    //ProxyLogin and ProxyPassword are only needed if your Proxy needs authentication.
    wodAppUpdate1.ProxyLogin = "your_proxy_login";
    wodAppUpdate1.ProxyPassword = "your_proxy_password";
    wodAppUpdate1.ProxyPort = 8080; //Proxy server port

    //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);
    }
}