Ошибка 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