version.txt update
This commit is contained in:
		
							
								
								
									
										10
									
								
								Form1.vb
									
									
									
									
									
								
							
							
						
						
									
										10
									
								
								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
 | 
			
		||||
 | 
			
		||||
@ -16,7 +16,7 @@
 | 
			
		||||
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
 | 
			
		||||
        </dsig:Transforms>
 | 
			
		||||
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
 | 
			
		||||
        <dsig:DigestValue>fL9IZbgLltrDNiVT3j6xsCFFzLeOHuEhLd4qrrvX5NE=</dsig:DigestValue>
 | 
			
		||||
        <dsig:DigestValue>n+zx1gEh0CuKB5fumxQKwCN1rHbYEhvMHZOs2Wg4As0=</dsig:DigestValue>
 | 
			
		||||
      </hash>
 | 
			
		||||
    </dependentAssembly>
 | 
			
		||||
  </dependency>
 | 
			
		||||
 | 
			
		||||
										
											Binary file not shown.
										
									
								
							@ -50,7 +50,7 @@
 | 
			
		||||
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
 | 
			
		||||
        </dsig:Transforms>
 | 
			
		||||
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
 | 
			
		||||
        <dsig:DigestValue>2EdOprQDPWWzBpfUnVZGDGbK2kcMlkpfYfX+780uX2k=</dsig:DigestValue>
 | 
			
		||||
        <dsig:DigestValue>1tN/T1WgMLolPBdRxHnOOyo2gIhDebLBTe942nU6PpE=</dsig:DigestValue>
 | 
			
		||||
      </hash>
 | 
			
		||||
    </dependentAssembly>
 | 
			
		||||
  </dependency>
 | 
			
		||||
@ -132,7 +132,7 @@
 | 
			
		||||
        <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
 | 
			
		||||
      </dsig:Transforms>
 | 
			
		||||
      <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
 | 
			
		||||
      <dsig:DigestValue>mNmAlgFrhbUzVYOqihJIyFyJwHrZr0+dXBsUtIvCb9g=</dsig:DigestValue>
 | 
			
		||||
      <dsig:DigestValue>3WlZiOvKSdDuWOkD/fPjw3wjwx8twF6o655cVvG294Y=</dsig:DigestValue>
 | 
			
		||||
    </hash>
 | 
			
		||||
  </file>
 | 
			
		||||
  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
 | 
			
		||||
 | 
			
		||||
										
											Binary file not shown.
										
									
								
							@ -1 +1 @@
 | 
			
		||||
2.7.0.3
 | 
			
		||||
2.7.0.4
 | 
			
		||||
		Reference in New Issue
	
	Block a user