20230204備份

SYS-UPDATE/SYS-UPDATE.Designer.vb

         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.OK = New System.Windows.Forms.Timer(Me.components)
+        Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
+        Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
         CType(Me.FDT_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         Me.Label1.TabIndex = 636
         Me.Label1.Text = "更新過程中如果出現 (沒有回應) 提示文字屬於正常" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "情況，請不要關閉程式，耐心等待更新完成!"
         '
+        'OK
+        '
+        Me.OK.Interval = 600
+        '
+        'Timer2
+        '
+        Me.Timer2.Interval = 1000
+        '
+        'Timer3
+        '
+        '
         'SYS_UPDATE
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
     Friend WithEvents ProgressBar1 As ProgressBar
     Friend WithEvents Timer1 As Timer
     Friend WithEvents Label1 As Label
+    Friend WithEvents OK As Timer
+    Friend WithEvents Timer2 As Timer
+    Friend WithEvents Timer3 As Timer
 End Class

SYS-UPDATE/SYS-UPDATE.resx

   <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="OK.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1505, 20</value>
+  </metadata>
+  <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>111, 15</value>
+  </metadata>
+  <metadata name="Timer3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>206, 14</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

SYS-UPDATE/SYS-UPDATE.vb

     ReadOnly ds2 As New DataSet
     Dim 號1, 號2, 號3, 號4, 號5, fileReader As String
     Dim Auto_B, Verify_B As Boolean
+    Dim timeNow1, timeNow2 As Integer
+    Dim Str As String = Application.StartupPath
+    Private Sub OK_Tick(sender As Object, e As EventArgs) Handles OK.Tick
+        Dim 已開啟 As Boolean = False
+        Dim Strs As String = Application.StartupPath
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\GA-ERP-SYS.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("GA-ERP-SYS").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                OK.Enabled = False : MyModule1.進度條() : Shell(Strs + "\GA-ERP-SYS.exe", vbNormalFocus) : Me.Close()
+            End If
+        ElseIf File.Exists(Strs & "\GA-ERP-SYS.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("GA-ERP-SYS").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                OK.Enabled = False : MyModule1.進度條() : Shell(Strs + "\GA-ERP-SYS.exe", vbNormalFocus) : Me.Close()
+            End If
+        End If
+    End Sub
     Private Sub Set_清單1()
         FDT_dgv.DataSource = Nothing : ds2.Clear()
         FDT_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        FDT_dgv.ColumnHeadersHeight = 25
-        FDT_dgv.AllowUserToAddRows = False
+        FDT_dgv.ColumnHeadersHeight = 25 : FDT_dgv.AllowUserToAddRows = False
         SQL_FTP資料夾路徑分配()
         da.Fill(ds2) : FDT_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        資料數 = 20
+        資料數 = 20 : timeNow1 = 3
+    End Sub
+    Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
         MyModule1.進度條() : 登入人IP = "106.1.48.106,4567"
         MyModule1.進度條() : SQL_連線字串_ERP()
         MyModule1.進度條() : 伺服器區域_cb.Text = "雲端"
-        MyModule1.進度條() :: g_conn_type = "雲端"
+        MyModule1.進度條() : g_conn_type = "雲端"
         '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
         MyModule1.進度條() : SQL_FTP伺服器登入位置()
         MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
             If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
             If FDT_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FDT_dgv("資料夾名稱", i).Value.ToString : End If
         Next
-    End Sub
-    Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+
         MyModule1.進度條() : Dim Strs As String = Application.StartupPath
         If File.Exists(Strs + "\C.txt") Then
             fileReader = My.Computer.FileSystem.ReadAllText(Strs + "\C.txt")
             號1 = dr("小更新1") : 號2 = dr("小更新2") : 號3 = dr("小更新3") : 號4 = dr("小更新4") : 號5 = dr("小更新5") : Auto_B = dr("Auto") : Verify_B = dr("Verify")
         End If : conn.Close()
         MyModule1.進度條() : Delay(30000)
+        Timer2.Enabled = True
+    End Sub
+    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
+        timeNow2 += 1
+        If timeNow2 > timeNow1 Then
+            Timer2.Enabled = False : Timer1.Enabled = True
+        End If
+    End Sub
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Timer1.Enabled = False
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
         If (fileReader = 號1 Or fileReader = 號2 Or fileReader = 號3 Or fileReader = 號4 Or fileReader = 號5) And fileReader <> "" Then
             '------------------------------------------系統主體---------------------------------------------------------------------------------
-            MyModule1.進度條() : MyModule1.進度條() : If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If
-            MyModule1.進度條() : MyModule1.進度條() : Me.Text = "SYS-UPDATE........GA-ERP-SYS.exe"
-            MyModule1.進度條() : MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
+            MyModule1.進度條() : Me.Text = "SYS-UPDATE........GA-ERP-SYS.exe"
+            MyModule1.進度條() : Timer3.Enabled = True
         Else
             '------------------------------------------系統主體---------------------------------------------------------------------------------
-            MyModule1.進度條() : If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If : Me.Text = "SYS-UPDATE........GA-ERP-SYS.exe"
-            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
+            Me.Text = "SYS-UPDATE........GA-ERP-SYS.exe"
+            MyModule1.進度條() : Timer3.Enabled = True
             If Verify_B = True Then
                 MyModule1.進度條() : If File.Exists(Str + "\Verify.exe") Then : File.Delete(Str + "\Verify.exe") : End If : Me.Text = "SYS-UPDATE........Verify.exe"
                 MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Verify.exe", Str + "\Verify.exe")
                 MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Auto.exe", Str + "\Auto.exe")
             End If
         End If
-        MyModule1.進度條() : Shell(Str + "\GA-ERP-SYS.exe", vbNormalFocus)
-        Me.Close()
+    End Sub
+    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
+        Dim 已開啟 As Boolean = False
+        Dim Strs As String = Application.StartupPath
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\GA-ERP-SYS.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("GA-ERP-SYS").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                Timer3.Enabled = False
+                If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
+                OK.Enabled = True
+            End If
+        ElseIf File.Exists(Strs & "\GA-ERP-SYS.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("GA-ERP-SYS").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                Timer3.Enabled = False
+                If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
+                OK.Enabled = True
+            End If
+        End If
     End Sub
     Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
         Dim time As DateTime = DateTime.Now