How to Download File using HTTP - VB.net

-
How to Download File using HTTP - VB.net

Private Sub DownloadFile()
  Dim strURL As String = IO.Path.Combine(txtUpdateURL.Text, UpdateZipFileName).Replace("\", "/")
                strDownloadFilePath = IO.Path.Combine(txtUpdateDownloadPath.Text, UpdateZipFileName)
                If File.Exists(strDownloadFilePath) = True Then
                    File.Delete(strDownloadFilePath)  ' ZIp File                
                    System.Threading.Thread.Sleep(100)
                End If
                ServicePointManager.ServerCertificateValidationCallback = AddressOf AcceptAllCertifications
                ServicePointManager.SecurityProtocol = CType(768, SecurityProtocolType) Or CType(3072, SecurityProtocolType)
                Dim client As New System.Net.WebClient
                client.UseDefaultCredentials = False
                Dim creds As New CredentialCache()
                creds.Add(New Uri(strURL), "Basic", New NetworkCredential("arc-10055", "Pass@12345", "www.arc-india.com"))
                'client.Credentials = creds
                client.Headers.Add(HttpRequestHeader.UserAgent, "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;")
                AddHandler client.DownloadProgressChanged, AddressOf DownloadProgressCallback4
                AddHandler client.DownloadFileCompleted, AddressOf DownloadDataCompleted
                client.DownloadFileAsync(New Uri(strURL), strDownloadFilePath)
End Sub


Public Function AcceptAllCertifications(ByVal sender As Object, ByVal certification As System.Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain, ByVal sslPolicyErrors As System.Net.Security.SslPolicyErrors) As Boolean
        Return True
    End Function



 Private Sub DownloadProgressCallback4(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        ' Displays the operation identifier, and the transfer progress.
        'Console.WriteLine("{0}    downloaded {1} of {2} bytes. {3} % complete...", CStr(e.UserState), e.BytesReceived, e.TotalBytesToReceive, e.ProgressPercentage)
        lblProgressBarStatus.Text = "Downloading " & e.ProgressPercentage.ToString & " % complete..."
        ProgressBar1.Value = e.ProgressPercentage
    End Sub
    Private Sub DownloadDataCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
        Try
            If IO.File.Exists(strDownloadFilePath) = True Then
                Console.WriteLine("Completed")
                Application.DoEvents()
                System.Threading.Thread.Sleep(100)
            End If
        Catch ex As Exception
          MessageBox.Show(ex.Message, "Download Completed Failed " & ex.Message, MessageBoxButtons.OK, MessageBoxIcon.Error)
          
        End Try
    End Sub

Comments

Post a Comment

Popular posts from this blog

Shared / Static Class in vb.net/C#

-
Image
Shared / Static Class in vb.net/C# VB.net     : Shared C#            : Static You can’t create object of Shared Class Below Image show Properties and Method are not visible for Shared/Static Class Public Class Form1     Private Sub Button1_Click(sender As Object , e As EventArgs ) Handles Button1.Click         'Module is VB.net are Shared Type Class.         'Shared Class Example is ARC.Tools.GRIDManager         'When Class s Defined as Shared There no need to create object of Class.         'If you just want to create a class that you can't inherit, in C# you can use         ' Sealed, and in VB.Net use NotInheritable.         'The VB.Net equivalent of s...
Read more

Xamarin Forms : PopUp Page with RG.Plugins.Popup

-
Image
How to Show PopUp Page In Xamarin Forms Step 1 First, we need to add the Third Page Plugin to achieve the same. [ Rg.Plugins.Popup ] Go to Manage Nuget Packages - > Search for Rg.Plugins.Popup Once the plugin is installed in the Project We need to configure same in Android and IOS Projects In Android   - Go to MainActivity.cs Code:     Rg.Plugins.Popup. Popup .Init( this , savedInstanceState); In IOS –   Go to   - AppDelegate.cs Code : Rg.Plugins.Popup. Popup .Init(); Now Back to Main Project (PCL) Step – 1 :   Add Page in Project Once Added Page Change the Tag of Page Default Page has Content page as Tag which needs to be replaced with PopUpPage Class  :  Default Page:- Class < ContentPage  xmlns ="http://xamarin.com/schemas/2014/forms" Change To < pages : PopupPage  xmlns ="http://xamarin.com/schemas/2014/forms" This is how it should Lo...
Read more

Text was truncated or one or more characters had no match in the target code page.". (SQL Server Import and Export Wizard)

-
Image
  Error While importing Excel Data using SQL Server Import Wizard   - Executing (Error) Messages Error 0xc020901c: Data Flow Task 1: There was an error with Source - Worksheet$.Outputs[Excel Source Output].Columns[Address] on Source - Worksheet$.Outputs[Excel Source Output]. The column status returned was: "Text was truncated or one or more characters had no match in the target code page.".  (SQL Server Import and Export Wizard)   Error 0xc020902a: Data Flow Task 1: The "Source - Worksheet$.Outputs[Excel Source Output].Columns[Address]" failed because truncation occurred, and the truncation row disposition on "Source - Worksheet$.Outputs[Excel Source Output].Columns[Address]" specifies failure on truncation. A truncation error occurred on the specified object of the specified component.  (SQL Server Import and Export Wizard)   - Executing (Error) Messages Error 0xc020901c: Data Flow Task 1: There was an error with Source - Worksheet$.Outputs[Excel Source O...
Read more