Register-file-after-update - WeOnlyDo Software example code



All

wodCrypt (12)
wodSSH (10)
wodSFTP (23)
wodSSHServer (1)
wodSSHTunnel (11)
wodSSHpackage
wodSFTPdll

wodSSH.NET (10)
wodSFTP.NET (24)
wodFtpDLX.NET (22)
wodWebServer.NET (10)

wodAppUpdate (13)
wodHttpDLX (8)
wodFtpDLX (22)
wodTelnetDLX
wodFTPServer (3)
wodWebServer (10)
wodVPN
wodXMPP (13)
All ** [Visual Basic] ** [C#] ** [VB.NET] **

Register file after update
VB code
Configuration file:
'Inside configuration file we can add line that will register file (dll in this example) after file is updated.
#Update file signatur

[File] Name=UpDemo.dll Size=53248 URL=/AppUpdate/test/UpDemo.dll Date=20061026192600 MD5=662bf45af0b60e2d83c7c8ebf35545fd Register=1 'when Register value is set to 1 file will be automatically register after update is preformed Version=1.0.0.2 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

VB.NET code
Configuration file:
'Inside configuration file we can add line that will register file (dll in this example) after file is updated.
#Update file signatur

[File] Name=UpDemo.dll Size=53248 URL=/AppUpdate/test/UpDemo.dll Date=20061026192600 MD5=662bf45af0b60e2d83c7c8ebf35545fd Register=1 'when Register value is set to 1 file will be automatically register after update is preformed Version=1.0.0.2 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

C# code
Configuration file:
'Inside configuration file we can add line that will register file (dll in this example) after file is updated.
#Update file signatur

[File] Name=UpDemo.dll Size=53248 URL=/AppUpdate/test/UpDemo.dll Date=20061026192600 MD5=662bf45af0b60e2d83c7c8ebf35545fd Register=1 'when Register value is set to 1 file will be automatically register after update is preformed Version=1.0.0.2 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); } }