Ошибка cannot establish connection with the update server

• 
• VBForums
• Visual Basic
• Visual Basic .NET
• My Updater is giving some problem…

1. May 30th, 2015, 12:45 PM

   
   

   #1

   

   Thread Starter

   
   Hyperactive Member
   

   

   ---

   My Updater is giving some problem…
   

   Hello,

   I have made an external updater for my software. But when it downloads the latest update some problem occurs. The updater doesn’t finish the download. It sometimes provide the download finished msg in 58% or sometimes in 34% without downloading the full update only for bigger updates. Maybe there is something wrong with the calculation I am doing to show the progressbar.

   My Updater Code:

   Code:

   Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Update_BGW.DoWork
           Try
               Dim theResponse As WebResponse
               Dim theRequest As WebRequest
               Try
                   theRequest = WebRequest.Create(Me.txtFileName.ToString)
                   theResponse = theRequest.GetResponse
               Catch ex As Exception
                   MessageBox.Show("Error occurred while downloading updates. Possibe causes:" & ControlChars.CrLf & "1) File doesn't exist." & ControlChars.CrLf & "2) Update server not respoding." & ControlChars.CrLf & "3) Cannot connect to the update server." & ControlChars.CrLf & "4) Problem with your internet connection." & ControlChars.CrLf & "5) Remote server error.", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                   Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
                   Me.Invoke(cancelDelegate, True)
                   Exit Sub
               End Try
               Dim length As Long = theResponse.ContentLength
               Dim safedelegate As New ChangeTextsSafe(AddressOf ChangeTexts)
               Me.Invoke(safedelegate, length, 0, 0, 0)
               Dim writeStream As New IO.FileStream(Me.whereToSave, IO.FileMode.Create)
               Dim nRead As Integer
               Dim speedtimer As New Stopwatch
               Dim currentspeed As Double = -1
               Dim readings As Integer = 0
               Do
                   If Update_BGW.CancellationPending Then
                       Exit Do
                   End If
                   speedtimer.Start()
                   Dim readBytes(4095) As Byte
                   Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096)
                   nRead += bytesread
                   Dim percent As Short = CShort(((nRead / length) * 100))
                   Me.Invoke(safedelegate, length, nRead, percent, currentspeed)
                   If bytesread = 0 Then Exit Do
                   writeStream.Write(readBytes, 0, bytesread)
                   speedtimer.Stop()
                   readings += 1
                   If readings >= 5 Then
                       currentspeed = (4096 * 5 * 1000 / (speedtimer.ElapsedMilliseconds + 1))
                       speedtimer.Reset()
                       readings = 0
                   End If
               Loop
               theResponse.GetResponseStream.Close()
               writeStream.Close()
               If Me.Update_BGW.CancellationPending Then
                   IO.File.Delete(Me.whereToSave)
                   Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
                   Me.Invoke(cancelDelegate, True) : Exit Sub
               End If
               Dim completeDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
               Me.Invoke(completeDelegate, False)
           Catch ex As Exception
               MsgBox("ERROR #18: Downloading Updates Failed!!! Please report the error number to the developer.", MsgBoxStyle.Critical, "ERROR")
           End Try
       End Sub

   I also obsfucated my software with latest ConfuserEx. Something might also went wrong with my obsfucation protection level. But before obsfucation the software provides the same type or problem.

   Please help me out

   Thanks in advance….

   ---

2. May 30th, 2015, 02:18 PM

   
   

   #2

   

   Thread Starter

   
   Hyperactive Member
   

   

   ---

   Re: My Updater is giving some problem…
   

   ---

3. May 30th, 2015, 09:06 PM

   
   

   #3

   

   
   Frenzied Member
   

   

   ---

   Re: My Updater is giving some problem…
   

   Where and how are you updating the progress bar?

   ---

4. May 31st, 2015, 11:00 AM

   
   

   #4

   

   Thread Starter

   
   Hyperactive Member
   

   

   ---

   Re: My Updater is giving some problem…
   

   My Full Updater Code:

   Code:

   Imports System
   Imports System.IO
   Imports System.Net
   Public Class updater
       Dim whereToSave As String = My.Application.Info.DirectoryPath & "CoD4X 1.8 Patch.exe"
       Dim txtFileName As String = "http://cod4.ugiclan.com/patches/CoD4X%201.8%20Patch.exe"
       Dim txtVersion As String = "http://cod4x.ugiclan.com/client/version.txt"
       Dim FileName As String
       Delegate Sub ChangeTextsSafe(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
       Delegate Sub DownloadCompleteSafe(ByVal cancelled As Boolean)
       Private Sub updater_Load(sender As Object, e As EventArgs) Handles Me.Load
           Try
               Label8.Text = ""
               Label9.Text = ""
               btnDownload.Enabled = False
               btnDownload.Visible = False
               Me.Refresh()
               Label1.Text = Application.ProductVersion
               CheckForUpdates()
           Catch ex As Exception
               MsgBox("ERROR #11: Retrieving Updates Information Failed!!! Please report the error number to the developer.", MsgBoxStyle.Critical, "ERROR")
           End Try
       End Sub
       Public Sub CheckForUpdates()
           Try
               Dim request As System.Net.WebRequest = System.Net.WebRequest.Create(txtVersion)
               Dim response As System.Net.WebResponse = request.GetResponse()
               Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
               Dim newestversion As String = sr.ReadToEnd()
               Dim currentversion As String = Application.ProductVersion
               If newestversion.Contains(currentversion) Then
                   Label8.Text = "         Up To Date!!!     "
                   Label9.Text = "   You have the latest CoD4X Client files!     "
                   btnDownload.Enabled = False
                   btnDownload.Visible = False
               End If
               If newestversion.ToString > Application.ProductVersion Then
                   Label8.Text = "A new update is available!!!"
                   Label9.Text = "Would you like to download and install it now?"
                   btnDownload.Enabled = True
                   btnDownload.Visible = True
                   Label7.Text = newestversion.ToString
               ElseIf newestversion.ToString < Application.ProductVersion Then
                   MsgBox("Cannot establish connection with the update server.")
               End If
           Catch ex As Exception
               MsgBox("ERROR #12: Checking For Latest Updates Failed!!! Please report the error number to the developer.", MsgBoxStyle.Critical, "ERROR")
           End Try
       End Sub
       Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
           Try
               If My.Computer.FileSystem.DirectoryExists(My.Application.Info.DirectoryPath & "/" & "updates") Then
                   System.IO.Directory.Delete(My.Application.Info.DirectoryPath & "/" & "updates", True)
               End If
               FileName = Me.txtFileName.ToString.Split("/"c)(Me.txtFileName.ToString.Split("/"c).Length - 1)
               Me.btnDownload.Enabled = False
               Me.btnCancel.Enabled = True
               Me.Update_BGW.RunWorkerAsync()
           Catch ex As Exception
               MsgBox("ERROR #15: Cannot Download Updates!!! Please report the error number to the developer.", MsgBoxStyle.Critical, "ERROR")
           End Try
       End Sub
       Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Update_BGW.DoWork
           Try
               Dim theResponse As WebResponse
               Dim theRequest As WebRequest
               Try
                   theRequest = WebRequest.Create(Me.txtFileName.ToString)
                   theResponse = theRequest.GetResponse
               Catch ex As Exception
                   MessageBox.Show("Error occurred while downloading updates. Possibe causes:" & ControlChars.CrLf & "1) File doesn't exist." & ControlChars.CrLf & "2) Update server not respoding." & ControlChars.CrLf & "3) Cannot connect to the update server." & ControlChars.CrLf & "4) Problem with your internet connection." & ControlChars.CrLf & "5) Remote server error.", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                   Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
                   Me.Invoke(cancelDelegate, True)
                   Exit Sub
               End Try
               Dim length As Long = theResponse.ContentLength
               Dim safedelegate As New ChangeTextsSafe(AddressOf ChangeTexts)
               Me.Invoke(safedelegate, length, 0, 0, 0)
               Dim writeStream As New IO.FileStream(Me.whereToSave, IO.FileMode.Create)
               Dim nRead As Integer
               Dim speedtimer As New Stopwatch
               Dim currentspeed As Double = -1
               Dim readings As Integer = 0
               Do
                   If Update_BGW.CancellationPending Then
                       Exit Do
                   End If
                   speedtimer.Start()
                   Dim readBytes(4095) As Byte
                   Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096)
                   nRead += bytesread
                   Dim percent As Short = CShort(((nRead / length) * 100))
                   Me.Invoke(safedelegate, length, nRead, percent, currentspeed)
                   If bytesread = 0 Then Exit Do
                   writeStream.Write(readBytes, 0, bytesread)
                   speedtimer.Stop()
                   readings += 1
                   If readings >= 5 Then
                       currentspeed = (4096 * 5 * 1000 / (speedtimer.ElapsedMilliseconds + 1))
                       speedtimer.Reset()
                       readings = 0
                   End If
               Loop
               theResponse.GetResponseStream.Close()
               writeStream.Close()
               If Me.Update_BGW.CancellationPending Then
                   IO.File.Delete(Me.whereToSave)
                   Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
                   Me.Invoke(cancelDelegate, True) : Exit Sub
               End If
               Dim completeDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
               Me.Invoke(completeDelegate, False)
           Catch ex As Exception
               MsgBox("ERROR #18: Downloading Updates Failed!!! Please report the error number to the developer.", MsgBoxStyle.Critical, "ERROR")
           End Try
       End Sub
       Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
           Try
               Me.Update_BGW.CancelAsync()
           Catch ex As Exception
               MsgBox("ERROR #16: Cannot Cancel The Download!!! Please report the error number to the developer.", MsgBoxStyle.Critical, "ERROR")
           End Try
       End Sub
       Public Sub ChangeTexts(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
           Try
               If length < 1022976 Then
                   Me.Label3.Text = "File Size: " & Math.Round((length / 1024), 2) & " KB"
                   Me.Label4.Text = "Downloaded " & Math.Round((position / 1024), 2) & " KB of " & Math.Round((length / 1024), 2) & " KB (" & Me.ProgressBar1.Value & "%)"
               ElseIf length > 1022976 Then
                   Me.Label3.Text = "File Size: " & Math.Round((length / 1048576), 2) & " MB"
                   Me.Label4.Text = "Downloaded " & Math.Round((position / 1048576), 2) & " MB of " & Math.Round((length / 1048576), 2) & " MB (" & Me.ProgressBar1.Value & "%)"
               End If
               If speed = -1 Then
                   Me.Label2.Text = "Speed: Calculating..."
               Else
                   If speed < 1022976 Then
                       Me.Label2.Text = "Speed: " & Math.Round((speed / 1024), 2) & " KB/s"
                   ElseIf speed > 1022976 Then
                       Me.Label2.Text = "Speed: " & Math.Round((speed / 1048576), 2) & " MB/s"
                   End If
               End If
               Me.ProgressBar1.Value = percent
           Catch ex As Exception
               MsgBox("ERROR #14: Updating Application Values Failed!!! Please report the error number to the developer.", MsgBoxStyle.Critical, "ERROR")
           End Try
       End Sub
       Public Sub DownloadComplete(ByVal cancelled As Boolean)
           Try
               Me.btnDownload.Enabled = True
               Me.btnCancel.Enabled = False
               If cancelled Then
                   Me.Label4.Text = "Cancelled!!!"
                   MessageBox.Show("Download Aborted!!!", "Aborted", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Else
                   Me.Label4.Text = "Successfully Downloaded!!!"
                   MessageBox.Show("Successfully Downloaded!!!", "Finished", MessageBoxButtons.OK, MessageBoxIcon.Information)
               End If
               Me.ProgressBar1.Value = 0
               Me.Label3.Text = "File Size: "
               Me.Label2.Text = "Download Speed: "
               Me.Label4.Text = ""
           Catch ex As Exception
               MsgBox("ERROR #13: Checking For Latest Updates Failed!!! Please report the error number to the developer.", MsgBoxStyle.Critical, "ERROR")
           End Try
       End Sub
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
           about.Show()
       End Sub
       Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
           Try
               Process.Start("https://github.com/CoD4X/CoD4X18_client/blob/master/changelog.txt")
           Catch ex As Exception
               MsgBox("ERROR #17: Browser Problem!!! Please report the error number to the developer.", MsgBoxStyle.Critical, "ERROR")
           End Try
       End Sub
       Private Sub updater_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
           Update_BGW.CancelAsync()
           Application.Exit()
       End Sub
   End Class

   Please help me out guys…

   ---

5. May 31st, 2015, 12:15 PM

   
   

   #5

   Re: My Updater is giving some problem…
   

   I’ve only quickly glanced at your code, and although there are several issues you will need to sort out (not least of which is not being able to close the Form), there is nothing there that should cause the problem you are reporting.

   Indeed, having run your code, it downloads the patch .exe as expected.

   Could you be having problems with your internet connection, such that you are losing connection to the server?

   ---

6. May 31st, 2015, 03:04 PM

   
   

   #6

   

   Thread Starter

   
   Hyperactive Member
   

   

   ---

   Re: My Updater is giving some problem…
   

   I’ve check the code in different pc after you said. But the same problem is occurring at my end. I think this might be an issue with the speed and time. My internet and almost all the internet connections in our country is around 1mbps of speed. Downlading the file using slow speed might giving the problem. If I try to download a local hfs file from my home server a 3.45GB file downloads very nicely with this downloader at a speed of 6MB/s (48mbps). So I think the issue is occurring on some speed and time stuff. But I was unable to figure it out. Please try to help me out. And also please tell me other issues you have been seeing in this code along with the solution if you can.

   Thanks in advance…

   ---

7. Jun 1st, 2015, 05:57 AM

   
   

   #7

   Re: My Updater is giving some problem…
   

   What you are saying seems to fit in with what I have observed. When I tested, I was using a 20Mbit/s connection, and it succeeded.

   I modified your code slightly to introduce a small delay after each read so as to throttle the download speed to under 1Mbit/s, and I now see the same results as you are reporting. After about 15 to 25 minutes the read operation returns 0 bytes and the download stops without completing.

   I checked by using Free Download Manager to download the file. I set FDM to use 1 connection and throttle the download rate to below 1Mbit/s. It succeeded, but the Log showed that it lost connection to your server several times.

   Originally Posted by Log

   22:12:25 31/05/2015 [Section 1] — Started
   22:12:25 31/05/2015 [Section 1] — Downloading
   22:12:29 31/05/2015 Preparing files on the disk… This may take several minutes
   22:28:27 31/05/2015 [Section 1] — Connection with the server was lost
   22:28:27 31/05/2015 [Section 1] — Connecting…
   22:28:28 31/05/2015 [Section 1] — Connection succeeded
   22:28:28 31/05/2015 [Section 1] — Downloading
   22:44:08 31/05/2015 [Section 1] — Connection with the server was lost
   22:44:08 31/05/2015 [Section 1] — Connecting…
   22:44:09 31/05/2015 [Section 1] — Connection succeeded
   22:44:09 31/05/2015 [Section 1] — Downloading
   23:02:20 31/05/2015 [Section 1] — Connection with the server was lost
   23:02:20 31/05/2015 [Section 1] — Connecting…
   23:02:23 31/05/2015 [Section 1] — Connection succeeded
   23:02:23 31/05/2015 [Section 1] — Downloading
   23:04:36 31/05/2015 [Section 1] — Done
   23:04:36 31/05/2015 Download complete

   I have no idea what is causing your server to behave this way. Nor do I know the best solution. It looks like you may need to provide support for resuming the download in the event of the connection being lost.

   Before you ask… no, I don’t know the code to do that . If memory serves it’s something to do with downloading in chunks, using the Range command. I know it can be done in .NET as I played with this several years ago. Google will help you get started.

   ---

8. Jun 1st, 2015, 06:12 AM

   
   

   #8

   

   Thread Starter

   
   Hyperactive Member
   

   

   ---

   Re: My Updater is giving some problem…
   

   I got your point. But a basic downloader should always try to reconnect to the server if the connection is lost. Why this downloader is not serving the purpose I dont understand. Are you recommending me to download the file with ftp in chunks and update the progressbar? That will solve the problem? And can you suggest me why the server is get lost several times? What might be the problem with my server? I use a vps server and have CentOS Web Panel Installed on my server where I hosted the cod4.ugiclan.com website. this website is a simple apache directory containing all my files which makes it easier for other to download those files using direct link…

   ---

9. Jun 1st, 2015, 06:24 AM

   
   

   #9

   Re: My Updater is giving some problem…
   

   Your downloader isn’t resuming because the HttpWebRequest doesn’t resume by default. You have to provide the code to do it.

   I’m not saying you should use FTP, I’m saying you should research how to use HttpWebRequest to resume the download. Type something like .net httpwebrequest resume into Google and you’ll get loads of hits.

   I have absolutely no idea how servers work, so can’t help you with understanding why you are having this problem. Sorry.

   ---

10. Jun 10th, 2015, 04:30 PM

    
    

    #10

    Re: My Updater is giving some problem…
    

    Are cod patches allowed? I think help should be suspended until admin respond.

    ---

11. Jun 10th, 2015, 05:07 PM

    
    

    #11

    Re: My Updater is giving some problem…
    

    Yes, this goes against Activision’s(parent company) Term of Use. Thread closed.

    ---

• 
• VBForums
• Visual Basic
• Visual Basic .NET
• My Updater is giving some problem…

Posting Permissions