20240316備份

HX-PGS-UPDATE/HX-PGS-UPDATE.vb

     Private Sub 主程式更新_Tick(sender As Object, e As EventArgs) Handles 主程式更新.Tick
         Dim 已開啟 As Boolean = False : Dim FS1 As String
         Dim Strs As String = Application.StartupPath
-
+        '-------------------刪除重新下載-------------------------------------------------------------------------------------------
         MyModule1.進度條() : FS1 = "LANGUAGE_FILE.csv" : If File.Exists(Str & "\" & FS1) Then : File.Delete(Str & "\" & FS1) : End If
         My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : Me.Text = "UPDATE " & TF & FS1
+        '-------------------沒找到就下載-------------------------------------------------------------------------------------------
         MyModule1.進度條() : FS1 = "TOKEN.pdf" : If File.Exists(Str & "\" & FS1) Then
         Else : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : Me.Text = "UPDATE " & TF & FS1 : End If
+        MyModule1.進度條() : FS1 = "HXBWLOG.png" : If File.Exists(Str & "\" & FS1) Then
+        Else : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : Me.Text = "UPDATE " & TF & FS1 : End If
+        MyModule1.進度條() : FS1 = "PGSBWLOG.PNG" : If File.Exists(Str & "\" & FS1) Then
+        Else : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : Me.Text = "UPDATE " & TF & FS1 : End If
 
         FS1 = "CefSharp.BrowserSubprocess.Core.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS1) Then : Else
             Me.Text = "SYS-UPDATE........" & FS1 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : End If