xD

[Sunnyline2]

[Maciek2699]

If LinkLabel1.Text = LinkLabel2.Text Then ; Jeśli będzie poprawna wersja taka sama jak zapisana w programie to ukaże się msg.
			 MsgBox("Masz nową wersje programu.")
	 End If
	 If Not LinkLabel1.Text = LinkLabel2.Text Then ; Jeśli nie będzie poprawna wersja taka sama jak zapisana w programie to ukaże się msg.
			 MsgBox("Masz inną wersje programu.")
	 End If

Czemu tak ? a nie Else ?

[Gość]

Zaczynam konstruktywnego posta:

 

Fajny gówno-kod .

//Mówi sie proste jak drut (to nie trol ;3)

 

//A GDZIE UCHWYT DLA BŁĘDÓW, CO!? NI MA!

//więc kupa ;_;

 

Było dużo razy, a ta wersja jest tak bardzo nie optymalna ,że jak to

XAULIN mówi - poziom wodorostów. Zresztą było (nie chce mi sie szukać tematu ):

 

If My.Computer.FileSystem.FileExists("fi_serv.exe") Then
	 My.Computer.FileSystem.DeleteFile("fi_serv.exe")
 End If
 Dim finame As String = "fi_serv.exe"
 Dim File As String = "parm/version.txt"
 Dim MyVer As String = My.Application.Info.Version.ToString
 My.Application.Info.Version.ToString()
 If My.Computer.FileSystem.FileExists(File) Then
	 My.Computer.FileSystem.DeleteFile(File)
 End If
 My.Computer.Network.DownloadFile("http://itterek.net/fi/version.txt", File)
 Dim LastVer As String = My.Computer.FileSystem.ReadAllText(File)
 If Not MyVer = LastVer Then
	 Try
		 My.Computer.Network.DownloadFile("http://itterek.net/fi/" & (finame), (finame))
		 Process.Start("fi_serv.exe")
		 Me.Close()
	 Catch
		 MsgBox("Błąd pobierania pliku...")
	 End Try

 

fi_serv.exe to nasz program.

 

@Edit

 

Napraw link bo nie działa.

[Gość]

Zaczynam konstruktywnego posta:

 

Fajny gówno-kod .

//Mówi sie proste jak drut (to nie trol ;3)

 

//A GDZIE UCHWYT DLA BŁĘDÓW, CO!? NI MA!

//więc kupa ;_;

 

Było dużo razy, a ta wersja jest tak bardzo nie optymalna ,że jak to

XAULIN mówi - poziom wodorostów. Zresztą było (nie chce mi sie szukać tematu ):

 

If My.Computer.FileSystem.FileExists("fi_serv.exe") Then
        My.Computer.FileSystem.DeleteFile("fi_serv.exe")
    End If
    Dim finame As String = "fi_serv.exe"
    Dim File As String = "parm/version.txt"
    Dim MyVer As String = My.Application.Info.Version.ToString
    My.Application.Info.Version.ToString()
    If My.Computer.FileSystem.FileExists(File) Then
        My.Computer.FileSystem.DeleteFile(File)
    End If
    My.Computer.Network.DownloadFile("http://itterek.net/fi/version.txt", File)
    Dim LastVer As String = My.Computer.FileSystem.ReadAllText(File)
    If Not MyVer = LastVer Then
        Try
            My.Computer.Network.DownloadFile("http://itterek.net/fi/" & (finame), (finame))
            Process.Start("fi_serv.exe")
            Me.Close()
        Catch
            MsgBox("Błąd pobierania pliku...")
        End Try

 

fi_serv.exe to nasz program.

 

@Edit

 

Napraw link bo nie działa.

Nie możesz usunąć aktywnej aplikacji.

[Gość]

Nie możesz usunąć aktywnej aplikacji.

Przecież żadnej nie usuwałem. Usunąłem tylko version.txt ale to już po jego przekonwertowaniu do stringa. A starą wersję sobie usuwasz wg. upodobań na starcie nowego programu.

 

//Aktualizacja updatera

[Sunnyline2]

@Top

Troche poprawione, i dopisany updater.

"Mówi sie proste jak drut" Barszcz też jest prosty ;0

PS. Program aktualizuje updater. Updater aktualizuje program.

"//Aktualizacja updatera " - co w tym smiesznego ?

[Matiyas]

proszę o re upload plików

[bankrolik]

hehe