20220722備份

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

@@ -29,7 +29,7 @@ Public Class HX_PGS_UPDATE
         End If
     End Sub
     Private Sub HX_PGS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        IP比對() : 資料數 = 16
+        IP比對() : 資料數 = 18
         MyModule1.進度條() : If Strings.Left(伺服器區域_cb.Text, 2) = "印尼" Or Strings.Left(伺服器區域_cb.Text, 2) = "公司" Then : SQL_連線字串_正式() : Else : SQL_連線字串_測試() : End If
         MyModule1.進度條() : SQL_FTP伺服器登入位置()
         MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : FTP物理位置 = dr("FTP物理位置") : End If : conn.Close()
@@ -44,14 +44,20 @@ Public Class HX_PGS_UPDATE
     Private Sub HX_PGS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         MyModule1.進度條() : Delay(30000)
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
-        MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-Message.exe") Then : File.Delete(Str + "\HX-PGS-Message.exe") : End If
         MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.exe") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.exe") : End If
         MyModule1.進度條() : If File.Exists(Str + "\HX01.docx") Then : File.Delete(Str + "\HX01.docx") : End If
         MyModule1.進度條() : If File.Exists(Str + "\PGS01.docx") Then : File.Delete(Str + "\PGS01.docx") : End If
         MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.exe", Str + "\HX-PGS-ERP-SYS.exe")
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-Message.exe", Str + "\HX-PGS-Message.exe")
         MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX01.docx", Str + "\HX01.docx")
         MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "PGS01.docx", Str + "\PGS01.docx")
+        MyModule1.進度條()
+        If File.Exists(Str + "\HX-PGS-Message.exe") Then : Else
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-Message.exe", Str + "\HX-PGS-Message.exe")
+        End If
+        MyModule1.進度條()
+        If File.Exists(Str + "\Tran.exe") Then : Else
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Tran.exe", Str + "\Tran.exe")
+        End If
         MyModule1.進度條() : Shell(Str + "\HX-PGS-ERP-SYS.exe", vbNormalFocus)
         Me.Close()
     End Sub