Updater nie pobiera plików

[ZakuG]

siema, mam taki kod:

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Try
           Dim client As New Net.WebClient
           client.Credentials = New Net.NetworkCredential("LOGIN", "HASLO")
           TextBox1.Text = client.DownloadString("ftp://mm.pl/~er/version.txt")
           If TextBox1.Text = TextBox1.Text Then
           Else : TextBox1.Text = TextBox1.Text
           End If
       Catch ex As Exception
       End Try

       If TextBox1.Text = "0.1" Then
       Else
           MsgBox("Dostepna aktualizacja!", MsgBoxStyle.Information, "Aktualizacja")
           My.Computer.Network.DownloadFile("http://mm.pl/~er/program.exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\aktualizator.exe")

       End If

   End Sub

 

program wyświetla mi msg boxa o aktualizacji, ale w okienku nie pokazuje wersji i nie pobiera pliku, może mi ktoś wytłumaczyć dlaczego ?

 

pozdrawiam.

[Gość Pan Szymek]

siema, mam taki kod:

Public Class Form1
   Dim wer As String
   Dim aktWer As String = "5.5"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Try
		Dim client As New Net.WebClient
		client.Credentials = New Net.NetworkCredential("LOGIN", "HASLO")
           wer = client.DownloadString("ftp://mm.pl/~er/version.txt")

	Catch ex As Exception
        MsgBox(String.Format("Wystąpił błąd: {0}", ex.Message))
	End Try

       If Not wer = aktWer Then
		MsgBox("Dostepna aktualizacja!", MsgBoxStyle.Information, "Aktualizacja")
           My.Computer.Network.DownloadFile("http://mm.pl/~er/program.exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\aktualizator.exe")
	End If

End Sub

 

program wyświetla mi msg boxa o aktualizacji, ale w okienku nie pokazuje wersji i nie pobiera pliku, może mi ktoś wytłumaczyć dlaczego ?

 

pozdrawiam.

Jakie okienko? Plik powinno pobrać.

[ZakuG]

Miszczu, właśnie z Twojego poradnika na YouTubie korzystałem, ale nie pobiera.

 

cały solution załączam.

[Gość Pan Szymek]

Miszczu, właśnie z Twojego poradnika na YouTubie korzystałem, ale nie pobiera.

 

cały solution załączam.

Public Class Form1

Dim aktualnaWersja As String = "7.2.1"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If Not aktualnaWersja = New Net.WebClient().DownloadString("http://mm.pl/~er/version.txt") Then
Else
MsgBox("Dostepna aktualizacja!", MsgBoxStyle.Information, "Aktualizacja")
If Not IO.File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\aktualizator.exe") Then My.Computer.Network.DownloadFile("http://mm.pl/~er/program.exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\aktualizator.exe")
End If

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

[ZakuG]

no ok, teraz pobiera i zapisuje. ale nadal w textboxie nie wyświetla informacji o wersji...

[Gość Pan Szymek]

no ok, teraz pobiera i zapisuje. ale nadal w textboxie nie wyświetla informacji o wersji...

Public Class Form1

Dim aktualnaWersja As String = "7.2.1"
Dim wer As String = New Net.WebClient().DownloadString("http://mm.pl/~er/version.txt")

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not aktualnaWersja = wer Then
MsgBox("Dostepna aktualizacja!", MsgBoxStyle.Information, "Aktualizacja")
If Not IO.File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\aktualizator.exe") Then My.Computer.Network.DownloadFile("http://mm.pl/~er/program.exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\aktualizator.exe")
End If
TextBox1.Text = wer
End Sub

End Class

[ZakuG]

teraz wszystko ładnie działa, wyświetla itd. dzięki za pomoc.

jakbyś mógł mi jeszcze powiedzieć jak obkodować progress bar'a ?

[matuty]

Nowy Prywatny serwer Ogame

Adres:

hellher.cba.pl

Nowe swiaty : namek(speed 4x),Akson(speed 7x),hellsus(speed 2x)

bugi

przyjazna atmoswera

HellHer Najlepszy serwer jest to nowy,najlepszy prywatny serwer Ogame ja jest przegladarkowa jak Pemiona,Margonem,Ikariam, itp... na uniwers 1 jest speed gry 13,na uniwers 2 speed 7 Jedynego czego potrzebujesz to tylko przegladarka (Polecana jest FireFox) prywatny,serwer,ogame,ikariam,tanoth,szybki,speed,fajna grafika,dluga gra,fajne forum.