Auto Update Problem

[Dean 0]

Hey Leute ;-)

 

Ich habe in meinem WebBrowser das AutoUpdate von Gecko genutzt.

Ich habe das Problem, dass das AutoUpdate Tool keine Verbindung zu meinem FTP herstellen kann..

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   	Dim changelog As String
   	Dim response As String

   	If Button1.Text = "Auf Updates überprüfen" Then
       	Button1.Enabled = False
       	Status.Text = "Status: Es wird nach Updates gesucht..."
       	ProgressBar1.Show()
       	Try
           	Dim client2 As New Net.WebClient
           	Try
               	response = client2.DownloadString("http://deanrelease.bplaced.net/update/version.txt")
               	changelog = client2.DownloadString("http://deanrelease.bplaced.net/update/changelog.txt")
               	z1 = Split(response, "|")(0)
               	z2 = Split(response, "|")(1)
               	Label3.Text = "Neuste Version: " & z1
               	Dim lblt As Integer = Form1.Version
               	If lblt < z1 Then
                   	ProgressBar1.Hide()
                   	Status.Text = "Status: Update verfügbar!"
                   	Label4.Show()
                   	Label4.Text = "Es ist ein neues Update verfügbar! (Version " & z1 & ")"
                   	Button1.Text = "Update herunterladen"
                   	Button1.Enabled = True
                   	RichTextBox1.Text = changelog
                   	Me.Size = New Size(545, 598)
                   	Me.Location = New Point(Me.Location.X, Me.Location.Y - 100)
               	Else
                   	ProgressBar1.Hide()
                   	Status.Text = "Status: Kein Update verfügbar."
                   	Label4.Show()
                   	Label4.Text = "Es ist kein Update verfügbar, sie haben die neuste Version."
                   	Button1.Text = "Fertigstellen"
                   	Button1.Enabled = True
                   	PictureBox2.Show()
               	End If
           	Catch
               	MsgBox("Es ist ein Fehler aufgetreten, bitte versuchen sie es Später erneut.", MsgBoxStyle.Exclamation, "Fehler")
               	Button1.Enabled = True
               	Status.Text = "Status: Es konnte keine Verbindung zum Server aufgebaut werden"
               	ProgressBar1.Hide()
           	End Try
       	Catch
       	End Try
   	ElseIf Button1.Text = "Fertigstellen" Then
       	Me.Close()
   	ElseIf Button1.Text = "Update herunterladen" Then
       	Form1.SaveFileDialog1.Filter = "WETT Browser Setup (*.exe)|*.exe"
       	Form1.SaveFileDialog1.FileName = "WETT Browser Setup"
       	If Form1.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           	ProgressBar1.Style = ProgressBarStyle.Blocks
           	ProgressBar1.Show()
           	Label4.Hide()
           	Status.Text = "Status: Lade Update herunter..."
           	Form1.Timer1.Start()
           	Panel1.Visible = True
           	Fortschritt.Show()
           	Fortschritt.Text = "Restzeit wird berechnet..."
           	Button1.Text = "Abbrechen"
           	client.DownloadFileAsync(New Uri(z2), Form1.SaveFileDialog1.FileName)
       	End If
   	ElseIf Button1.Text = "Abbrechen" Then
       	Try
           	Fertig = False
           	client.CancelAsync()
           	Form1.client.CancelAsync()
           	Panel1.Visible = False
           	Form1.Updatefortschritt.Visible = False
           	Form1.Timer1.Stop()
           	MsgBox("Der Updatevorgang wurde abgebrochen!", MsgBoxStyle.Exclamation, "Update Abbruch")
           	Me.Close()
       	Catch
       	End Try
   	End If
End Sub

 

Was mache/habe ich falsch gemacht?

Edited March 11, 2011 by Dean™ aka Teamviewer™

[xdraken 0]

versuch ein neuen ftp zumachen

[Dean 0]

Er ist ganz neu, vor 50 Minuten ca. erstellt