diff --git a/Form1.vb b/Form1.vb index 2390728..755f2a0 100644 --- a/Form1.vb +++ b/Form1.vb @@ -714,13 +714,16 @@ Public Class Form1 ' Preveri verzijo programa iz Gitea - MultiBox Dim infoVerzija As String = My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "." + My.Application.Info.Version.Build.ToString + "." + My.Application.Info.Version.Revision.ToString Dim gitVerzija As String = "" - Dim verReader As StreamReader = New StreamReader("https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/version.txt") + My.Computer.Network.DownloadFile("https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/version.txt", "version.txt") + Dim verReader As StreamReader = New StreamReader("version.txt") ' Branje datoteke Do Until verReader.EndOfStream ' Preberi vrstico z verzijo na git gitVerzija = verReader.ReadLine() Loop + verReader.Dispose() + verReader.Close() If gitVerzija = infoVerzija Then Dim Msg, Style, Title, Response @@ -732,7 +735,7 @@ Public Class Form1 ' Display message. Response = MsgBox(Msg, Style, Title) Else - Dim Msg, Style, Title, Response, MyString + Dim Msg, Style, Title, Response Msg = "Trenutna verzija: " + infoVerzija + vbCrLf + "Nova verzija: " + gitVerzija + vbCrLf + vbCrLf + "Odprem stran za prenos?" ' Define message. Title = "Preverjanje posodobitev" ' Define title. @@ -746,8 +749,7 @@ Public Class Form1 End If End If - - + My.Computer.FileSystem.DeleteFile("version.txt") End Sub End Class diff --git a/bin/Release/TPS1100 Convert.application b/bin/Release/TPS1100 Convert.application index ac82dfb..9555abf 100644 --- a/bin/Release/TPS1100 Convert.application +++ b/bin/Release/TPS1100 Convert.application @@ -16,7 +16,7 @@ - fL9IZbgLltrDNiVT3j6xsCFFzLeOHuEhLd4qrrvX5NE= + n+zx1gEh0CuKB5fumxQKwCN1rHbYEhvMHZOs2Wg4As0= diff --git a/bin/Release/TPS1100 Convert.exe b/bin/Release/TPS1100 Convert.exe index ac2be86..b02245b 100644 Binary files a/bin/Release/TPS1100 Convert.exe and b/bin/Release/TPS1100 Convert.exe differ diff --git a/bin/Release/TPS1100 Convert.exe.manifest b/bin/Release/TPS1100 Convert.exe.manifest index 536928b..33eaed3 100644 --- a/bin/Release/TPS1100 Convert.exe.manifest +++ b/bin/Release/TPS1100 Convert.exe.manifest @@ -50,7 +50,7 @@ - 2EdOprQDPWWzBpfUnVZGDGbK2kcMlkpfYfX+780uX2k= + 1tN/T1WgMLolPBdRxHnOOyo2gIhDebLBTe942nU6PpE= @@ -132,7 +132,7 @@ - mNmAlgFrhbUzVYOqihJIyFyJwHrZr0+dXBsUtIvCb9g= + 3WlZiOvKSdDuWOkD/fPjw3wjwx8twF6o655cVvG294Y= diff --git a/bin/Release/app.publish/TPS1100 Convert.exe b/bin/Release/app.publish/TPS1100 Convert.exe index ac2be86..b02245b 100644 Binary files a/bin/Release/app.publish/TPS1100 Convert.exe and b/bin/Release/app.publish/TPS1100 Convert.exe differ diff --git a/version.txt b/version.txt index b9cdc6a..37bf6bb 100644 --- a/version.txt +++ b/version.txt @@ -1 +1 @@ -2.7.0.3 \ No newline at end of file +2.7.0.4 \ No newline at end of file