LEEHSIEHJUI 10 meses atrás
pai
commit
4750144aa0

BIN
.vs/SYS-UPDATE/FileContentIndex/315539a4-2cd0-4335-a974-d74f7e293c75.vsidx Ver arquivo


BIN
.vs/SYS-UPDATE/FileContentIndex/ca00d387-67ea-4cf7-9ddf-a2c67e91f1ef.vsidx Ver arquivo


+ 0
- 0
.vs/SYS-UPDATE/FileContentIndex/read.lock Ver arquivo


BIN
.vs/SYS-UPDATE/v17/.suo Ver arquivo


+ 72
- 0
.vs/SYS-UPDATE/v17/DocumentLayout.json Ver arquivo

@@ -0,0 +1,72 @@
1
+{
2
+  "Version": 1,
3
+  "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\SYS-UPDATE\\",
4
+  "Documents": [
5
+    {
6
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\ga\u5E33\u52D9\u901A\u7528erp\\sys-update\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
+      "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
8
+    },
9
+    {
10
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\SYS-UPDATE\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
11
+      "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
12
+    },
13
+    {
14
+      "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\SYS-UPDATE\\sys-update\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
15
+      "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
16
+    }
17
+  ],
18
+  "DocumentGroupContainers": [
19
+    {
20
+      "Orientation": 0,
21
+      "VerticalTabListWidth": 256,
22
+      "DocumentGroups": [
23
+        {
24
+          "DockedWidth": 200,
25
+          "SelectedChildIndex": 2,
26
+          "Children": [
27
+            {
28
+              "$type": "Bookmark",
29
+              "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
30
+            },
31
+            {
32
+              "$type": "Document",
33
+              "DocumentIndex": 2,
34
+              "Title": "SQL_Module.vb",
35
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\SYS-UPDATE\\SYS-UPDATE\\SQL_Module.vb",
36
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SQL_Module.vb",
37
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\SYS-UPDATE\\SYS-UPDATE\\SQL_Module.vb",
38
+              "RelativeToolTip": "SYS-UPDATE\\SQL_Module.vb",
39
+              "ViewState": "AQIAAAYAAAAAAAAAAAAowBgAAABXAAAA",
40
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
41
+              "WhenOpened": "2022-09-23T08:20:26.012Z"
42
+            },
43
+            {
44
+              "$type": "Document",
45
+              "DocumentIndex": 0,
46
+              "Title": "SYS-UPDATE.vb",
47
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
48
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
49
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
50
+              "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
51
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAACAAAAAIAAAA",
52
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
53
+              "WhenOpened": "2022-09-06T05:43:35.618Z",
54
+              "EditorCaption": ""
55
+            },
56
+            {
57
+              "$type": "Document",
58
+              "DocumentIndex": 1,
59
+              "Title": "SYS-UPDATE.vb [\u8A2D\u8A08]",
60
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
61
+              "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
62
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
63
+              "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
64
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
65
+              "WhenOpened": "2022-06-14T06:59:19.428Z"
66
+            }
67
+          ]
68
+        }
69
+      ]
70
+    }
71
+  ]
72
+}

+ 130
- 261
SYS-UPDATE/SYS-UPDATE.vb Ver arquivo

@@ -5,6 +5,7 @@ Public Class SYS_UPDATE
5 5
     Dim Auto_B, Verify_B As Boolean
6 6
     Dim timeNow1, timeNow2 As Integer
7 7
     Dim Str As String = Application.StartupPath
8
+    Dim 標 As String = "SYS-UPDATE........"
8 9
     Private Sub OK_Tick(sender As Object, e As EventArgs) Handles OK.Tick
9 10
         Dim 已開啟 As Boolean = False
10 11
         Dim Strs As String = Application.StartupPath
@@ -12,9 +13,7 @@ Public Class SYS_UPDATE
12 13
             Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
13 14
             ' 判斷是否有符合的Process
14 15
             For Each process As Process In pro
15
-                If ("GA-ERP-SYS").Equals(process.ProcessName) Then
16
-                    已開啟 = True
17
-                End If
16
+                If ("GA-ERP-SYS").Equals(process.ProcessName) Then : 已開啟 = True : End If
18 17
             Next
19 18
             If 已開啟 = False Then
20 19
                 OK.Enabled = False : MyModule1.進度條() : Shell(Strs + "\GA-ERP-SYS.exe", vbNormalFocus) : Me.Close()
@@ -23,53 +22,32 @@ Public Class SYS_UPDATE
23 22
             Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
24 23
             ' 判斷是否有符合的Process
25 24
             For Each process As Process In pro
26
-                If ("GA-ERP-SYS").Equals(process.ProcessName) Then
27
-                    已開啟 = True
28
-                End If
25
+                If ("GA-ERP-SYS").Equals(process.ProcessName) Then : 已開啟 = True : End If
29 26
             Next
30 27
             If 已開啟 = False Then
31 28
                 OK.Enabled = False : MyModule1.進度條() : Shell(Strs + "\GA-ERP-SYS.exe", vbNormalFocus) : Me.Close()
32 29
             End If
33 30
         End If
34 31
     End Sub
35
-    Private Sub Set_清單1()
36
-        FDT_dgv.DataSource = Nothing : ds2.Clear()
37
-        FDT_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
38
-        FDT_dgv.ColumnHeadersHeight = 25 : FDT_dgv.AllowUserToAddRows = False
39
-        SQL_FTP資料夾路徑分配()
40
-        da.Fill(ds2) : FDT_dgv.DataSource = ds2.Tables(0) : conn.Close()
41
-    End Sub
42 32
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
43 33
         資料數 = 131 : timeNow1 = 3
44 34
     End Sub
45 35
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
46
-        '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
47
-        MyModule1.進度條() : 登入人IP = "mssql-147629-0.cloudclusters.net,12711"
48
-        MyModule1.進度條() : SQL_連線字串_ERP()
49
-        MyModule1.進度條() : 伺服器區域_cb.Text = "雲端"
50
-        MyModule1.進度條() : g_conn_type = "雲端"
51
-        '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
52
-        MyModule1.進度條() : SQL_FTP伺服器登入位置()
53
-        MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
54
-        MyModule1.進度條() : Set_清單1()
55
-        MyModule1.進度條() : Dim HH As String = ""
56
-        For i As Integer = 0 To FDT_dgv.Rows.Count - 1
57
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
58
-            If FDT_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FDT_dgv("資料夾名稱", i).Value.ToString : End If
59
-        Next
60
-
61
-        MyModule1.進度條() : Dim Strs As String = Application.StartupPath
62
-        If File.Exists(Strs + "\C.txt") Then
63
-            fileReader = My.Computer.FileSystem.ReadAllText(Strs + "\C.txt")
64
-            fileReader = Strings.Left(fileReader, 10)
65
-        End If
66
-        MyModule1.進度條() : SQL_系統版本號驗證()
67
-        If dr.Read() Then
68
-            號1 = dr("小更新1") : 號2 = dr("小更新2") : 號3 = dr("小更新3") : 號4 = dr("小更新4") : 號5 = dr("小更新5") : Auto_B = dr("Auto") : Verify_B = dr("Verify")
69
-        End If : conn.Close()
70
-        MyModule1.進度條() ': Delay(30000)
36
+        Target = "https://gcm-smart.com/ERP/GA-ERP/"
71 37
         Timer1.Enabled = True
72 38
     End Sub
39
+    Private Sub 更新路徑01()
40
+        Me.Text = 標 & FS3 : My.Computer.Network.DownloadFile(Target & FS3, Str & "\" & FS3)
41
+    End Sub
42
+    Private Sub 更新路徑02()
43
+        Me.Text = 標 & FS3 : My.Computer.Network.DownloadFile(Target & "DawnCache/" & FS3, Str & "\DawnCache\" & FS3)
44
+    End Sub
45
+    Private Sub 更新路徑03()
46
+        Me.Text = 標 & FS3 : My.Computer.Network.DownloadFile(Target & "GPUCache/" & FS3, Str & "\GPUCache\" & FS3)
47
+    End Sub
48
+    Private Sub 更新路徑04()
49
+        Me.Text = 標 & FS3 : My.Computer.Network.DownloadFile(Target & "locales/" & FS3, Str & "\locales\" & FS3)
50
+    End Sub
73 51
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
74 52
         Timer1.Enabled = False
75 53
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
@@ -79,231 +57,122 @@ Public Class SYS_UPDATE
79 57
         Else
80 58
             '------------------------------------------系統主體---------------------------------------------------------------------------------
81 59
             MyModule1.進度條() : Me.Text = "SYS-UPDATE........GA-ERP-SYS.exe"
82
-            If Verify_B = True Then
83
-                MyModule1.進度條() : If File.Exists(Str + "\Verify.exe") Then : File.Delete(Str + "\Verify.exe") : End If : Me.Text = "SYS-UPDATE........Verify.exe"
84
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Verify.exe", Str + "\Verify.exe")
85
-            End If
86
-            If Auto_B = True Then
87
-                MyModule1.進度條() : If File.Exists(Str + "\Auto.exe") Then : File.Delete(Str + "\Auto.exe") : End If : Me.Text = "SYS-UPDATE........Auto.exe"
88
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Auto.exe", Str + "\Auto.exe")
89
-            End If
60
+            If Verify_B = True Then : FS3 = "Verify.exe" : MyModule1.進度條() : If File.Exists(Str + "\Verify.exe") Then : File.Delete(Str + "\Verify.exe") : End If : 更新路徑01() : End If
61
+            If Auto_B = True Then : FS3 = "Auto.exe" : MyModule1.進度條() : If File.Exists(Str + "\Auto.exe") Then : File.Delete(Str + "\Auto.exe") : End If : 更新路徑01() : End If
90 62
         End If
91
-        FS3 = "CefSharp.BrowserSubprocess.Core.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
92
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
93
-        FS3 = "CefSharp.BrowserSubprocess.Core.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
94
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
95
-        FS3 = "CefSharp.BrowserSubprocess.exe" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
96
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
97
-        FS3 = "CefSharp.BrowserSubprocess.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
98
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
99
-        FS3 = "CefSharp.Core.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
100
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
101
-        FS3 = "CefSharp.Core.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
102
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
103
-        FS3 = "CefSharp.Core.Runtime.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
104
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
105
-        FS3 = "CefSharp.Core.Runtime.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
106
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
107
-        FS3 = "CefSharp.Core.Runtime.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
108
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
109
-        FS3 = "CefSharp.Core.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
110
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
111
-        FS3 = "CefSharp.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
112
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
113
-        FS3 = "CefSharp.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
114
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
115
-        FS3 = "CefSharp.WinForms.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
116
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
117
-        FS3 = "CefSharp.WinForms.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
118
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
119
-        FS3 = "CefSharp.WinForms.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
120
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
121
-        FS3 = "CefSharp.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
122
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
123
-        FS3 = "chrome_100_percent.pak" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
124
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
125
-        FS3 = "chrome_200_percent.pak" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
126
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
127
-        FS3 = "chrome_elf.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
128
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
129
-        FS3 = "d3dcompiler_47.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
130
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
131
-        FS3 = "debug.log" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
132
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
133
-        FS3 = "DocumentFormat.OpenXml.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
134
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
135
-        FS3 = "DocumentFormat.OpenXml.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
136
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
137
-        FS3 = "GA-ERP-SYS.exe.config" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
138
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
139
-        FS3 = "GA-ERP-SYS.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
140
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
141
-        FS3 = "GA-ERP-SYS.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
142
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
143
-        FS3 = "icudtl.dat" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
144
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
145
-        FS3 = "Interop.VSTOEE100.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
146
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
147
-        FS3 = "itextsharp.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
148
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
149
-        FS3 = "libcef.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
150
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
151
-        FS3 = "libEGL.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
152
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
153
-        FS3 = "libGLESv2.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
154
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
155
-        FS3 = "LICENSE.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
156
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
157
-        FS3 = "README.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
158
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
159
-        FS3 = "resources.pak" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
160
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
161
-        FS3 = "snapshot_blob.bin" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
162
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
163
-        FS3 = "v8_context_snapshot.bin" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
164
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
165
-        FS3 = "vk_swiftshader.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
166
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
167
-        FS3 = "vk_swiftshader_icd.json" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
168
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
169
-        FS3 = "vulkan-1.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
170
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
171
-
63
+        FS3 = "CefSharp.BrowserSubprocess.Core.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
64
+        FS3 = "CefSharp.BrowserSubprocess.Core.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
65
+        FS3 = "CefSharp.BrowserSubprocess.exe" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
66
+        FS3 = "CefSharp.BrowserSubprocess.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
67
+        FS3 = "CefSharp.Core.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
68
+        FS3 = "CefSharp.Core.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
69
+        FS3 = "CefSharp.Core.Runtime.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
70
+        FS3 = "CefSharp.Core.Runtime.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
71
+        FS3 = "CefSharp.Core.Runtime.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
72
+        FS3 = "CefSharp.Core.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
73
+        FS3 = "CefSharp.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
74
+        FS3 = "CefSharp.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
75
+        FS3 = "CefSharp.WinForms.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
76
+        FS3 = "CefSharp.WinForms.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
77
+        FS3 = "CefSharp.WinForms.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
78
+        FS3 = "CefSharp.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
79
+        FS3 = "chrome_100_percent.pak" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
80
+        FS3 = "chrome_200_percent.pak" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
81
+        FS3 = "chrome_elf.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
82
+        FS3 = "d3dcompiler_47.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
83
+        FS3 = "debug.log" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
84
+        FS3 = "DocumentFormat.OpenXml.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
85
+        FS3 = "DocumentFormat.OpenXml.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
86
+        FS3 = "GA-ERP-SYS.exe.config" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
87
+        FS3 = "GA-ERP-SYS.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
88
+        FS3 = "GA-ERP-SYS.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
89
+        FS3 = "icudtl.dat" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
90
+        FS3 = "Interop.VSTOEE100.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
91
+        FS3 = "itextsharp.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
92
+        FS3 = "libcef.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
93
+        FS3 = "libEGL.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
94
+        FS3 = "libGLESv2.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
95
+        FS3 = "LICENSE.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
96
+        FS3 = "Microsoft.IO.RecyclableMemoryStream.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
97
+        FS3 = "Microsoft.IO.RecyclableMemoryStream.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
98
+        FS3 = "README.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
99
+        FS3 = "resources.pak" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
100
+        FS3 = "snapshot_blob.bin" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
101
+        FS3 = "v8_context_snapshot.bin" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
102
+        FS3 = "vk_swiftshader.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
103
+        FS3 = "vk_swiftshader_icd.json" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
104
+        FS3 = "vulkan-1.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else : 更新路徑01() : End If
105
+        '---------------------------------------------------------------------------------------------------------------------------------------------------
172 106
         MyModule1.進度條() : If Dir(Str + "\DawnCache", vbDirectory) <> "" Then : Else : MkDir(Str + "\DawnCache") : End If
173
-        FS3 = "data_0" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else
174
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/DawnCache/" & FS3, Str & "\DawnCache\" & FS3) : End If
175
-        FS3 = "data_1" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else
176
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/DawnCache/" & FS3, Str & "\DawnCache\" & FS3) : End If
177
-        FS3 = "data_2" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else
178
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/DawnCache/" & FS3, Str & "\DawnCache\" & FS3) : End If
179
-        FS3 = "data_3" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else
180
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/DawnCache/" & FS3, Str & "\DawnCache\" & FS3) : End If
181
-        FS3 = "index" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else
182
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/DawnCache/" & FS3, Str & "\DawnCache\" & FS3) : End If
183
-
107
+        FS3 = "data_0" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else : 更新路徑02() : End If
108
+        FS3 = "data_1" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else : 更新路徑02() : End If
109
+        FS3 = "data_2" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else : 更新路徑02() : End If
110
+        FS3 = "data_3" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else : 更新路徑02() : End If
111
+        FS3 = "index" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS3) Then : Else : 更新路徑02() : End If
112
+        '---------------------------------------------------------------------------------------------------------------------------------------------------
184 113
         MyModule1.進度條() : If Dir(Str + "\GPUCache", vbDirectory) <> "" Then : Else : MkDir(Str + "\GPUCache") : End If
185
-        FS3 = "data_0" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else
186
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/GPUCache/" & FS3, Str & "\GPUCache\" & FS3) : End If
187
-        FS3 = "data_1" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else
188
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/GPUCache/" & FS3, Str & "\GPUCache\" & FS3) : End If
189
-        FS3 = "data_2" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else
190
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/GPUCache/" & FS3, Str & "\GPUCache\" & FS3) : End If
191
-        FS3 = "data_3" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else
192
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/GPUCache/" & FS3, Str & "\GPUCache\" & FS3) : End If
193
-        FS3 = "index" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else
194
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/GPUCache/" & FS3, Str & "\GPUCache\" & FS3) : End If
195
-
114
+        FS3 = "data_0" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else : 更新路徑03() : End If
115
+        FS3 = "data_1" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else : 更新路徑03() : End If
116
+        FS3 = "data_2" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else : 更新路徑03() : End If
117
+        FS3 = "data_3" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else : 更新路徑03() : End If
118
+        FS3 = "index" : MyModule1.進度條() : If File.Exists(Str & "\GPUCache\" & FS3) Then : Else : 更新路徑03() : End If
119
+        '---------------------------------------------------------------------------------------------------------------------------------------------------
196 120
         MyModule1.進度條() : If Dir(Str + "\locales", vbDirectory) <> "" Then : Else : MkDir(Str + "\locales") : End If
197
-        FS3 = "af.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
198
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
199
-        FS3 = "am.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
200
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
201
-        FS3 = "ar.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
202
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
203
-        FS3 = "bg.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
204
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
205
-        FS3 = "bn.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
206
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
207
-        FS3 = "ca.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
208
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
209
-        FS3 = "cs.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
210
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
211
-        FS3 = "da.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
212
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
213
-        FS3 = "de.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
214
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
215
-        FS3 = "el.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
216
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
217
-        FS3 = "en-GB.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
218
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
219
-        FS3 = "en-US.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
220
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
221
-        FS3 = "es-419.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
222
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
223
-        FS3 = "es.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
224
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
225
-        FS3 = "et.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
226
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
227
-        FS3 = "fa.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
228
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
229
-        FS3 = "fi.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
230
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
231
-        FS3 = "fil.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
232
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
233
-        FS3 = "fr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
234
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
235
-        FS3 = "gu.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
236
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
237
-        FS3 = "he.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
238
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
239
-        FS3 = "hi.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
240
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
241
-        FS3 = "hr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
242
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
243
-        FS3 = "hu.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
244
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
245
-        FS3 = "id.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
246
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
247
-        FS3 = "it.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
248
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
249
-        FS3 = "ja.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
250
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
251
-        FS3 = "kn.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
252
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
253
-        FS3 = "ko.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
254
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
255
-        FS3 = "lt.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
256
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
257
-        FS3 = "lv.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
258
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
259
-        FS3 = "ml.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
260
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
261
-        FS3 = "mr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
262
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
263
-        FS3 = "ms.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
264
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
265
-        FS3 = "nb.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
266
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
267
-        FS3 = "nl.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
268
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
269
-        FS3 = "pl.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
270
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
271
-        FS3 = "pt-BR.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
272
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
273
-        FS3 = "pt-PT.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
274
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
275
-        FS3 = "ro.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
276
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
277
-        FS3 = "ru.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
278
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
279
-        FS3 = "sk.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
280
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
281
-        FS3 = "sl.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
282
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
283
-        FS3 = "sr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
284
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
285
-        FS3 = "sv.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
286
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
287
-        FS3 = "sw.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
288
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
289
-        FS3 = "ta.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
290
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
291
-        FS3 = "te.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
292
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
293
-        FS3 = "th.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
294
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
295
-        FS3 = "tr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
296
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
297
-        FS3 = "uk.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
298
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
299
-        FS3 = "ur.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
300
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
301
-        FS3 = "vi.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
302
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
303
-        FS3 = "zh-CN.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
304
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
305
-        FS3 = "zh-TW.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else
306
-            Me.Text = "SYS-UPDATE........" & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/locales/" & FS3, Str & "\locales\" & FS3) : End If
121
+        FS3 = "af.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
122
+        FS3 = "am.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
123
+        FS3 = "ar.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
124
+        FS3 = "bg.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
125
+        FS3 = "bn.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
126
+        FS3 = "ca.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
127
+        FS3 = "cs.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
128
+        FS3 = "da.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
129
+        FS3 = "de.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
130
+        FS3 = "el.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
131
+        FS3 = "en-GB.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
132
+        FS3 = "en-US.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
133
+        FS3 = "es-419.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
134
+        FS3 = "es.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
135
+        FS3 = "et.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
136
+        FS3 = "fa.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
137
+        FS3 = "fi.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
138
+        FS3 = "fil.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
139
+        FS3 = "fr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
140
+        FS3 = "gu.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
141
+        FS3 = "he.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
142
+        FS3 = "hi.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
143
+        FS3 = "hr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
144
+        FS3 = "hu.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
145
+        FS3 = "id.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
146
+        FS3 = "it.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
147
+        FS3 = "ja.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
148
+        FS3 = "kn.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
149
+        FS3 = "ko.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
150
+        FS3 = "lt.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
151
+        FS3 = "lv.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
152
+        FS3 = "ml.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
153
+        FS3 = "mr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
154
+        FS3 = "ms.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
155
+        FS3 = "nb.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
156
+        FS3 = "nl.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
157
+        FS3 = "pl.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
158
+        FS3 = "pt-BR.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
159
+        FS3 = "pt-PT.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
160
+        FS3 = "ro.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
161
+        FS3 = "ru.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
162
+        FS3 = "sk.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
163
+        FS3 = "sl.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
164
+        FS3 = "sr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
165
+        FS3 = "sv.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
166
+        FS3 = "sw.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
167
+        FS3 = "ta.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
168
+        FS3 = "te.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
169
+        FS3 = "th.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
170
+        FS3 = "tr.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
171
+        FS3 = "uk.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
172
+        FS3 = "ur.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
173
+        FS3 = "vi.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
174
+        FS3 = "zh-CN.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
175
+        FS3 = "zh-TW.pak" : MyModule1.進度條() : If File.Exists(Str & "\locales\" & FS3) Then : Else : 更新路徑04() : End If
307 176
         Timer3.Enabled = True
308 177
     End Sub
309 178
     Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
@@ -320,7 +189,7 @@ Public Class SYS_UPDATE
320 189
             If 已開啟 = False Then
321 190
                 Timer3.Enabled = False
322 191
                 If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If
323
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
192
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
324 193
                 OK.Enabled = True
325 194
             End If
326 195
         ElseIf File.Exists(Strs & "\GA-ERP-SYS.exe") Then
@@ -334,7 +203,7 @@ Public Class SYS_UPDATE
334 203
             If 已開啟 = False Then
335 204
                 Timer3.Enabled = False
336 205
                 If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If
337
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
206
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
338 207
                 OK.Enabled = True
339 208
             End If
340 209
         End If

BIN
SYS-UPDATE/bin/Debug/SYS-UPDATE.exe Ver arquivo


BIN
SYS-UPDATE/bin/Debug/SYS-UPDATE.pdb Ver arquivo


BIN
SYS-UPDATE/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Ver arquivo


BIN
SYS-UPDATE/obj/Debug/SYS-UPDATE.exe Ver arquivo


BIN
SYS-UPDATE/obj/Debug/SYS-UPDATE.pdb Ver arquivo


BIN
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.AssemblyReference.cache Ver arquivo


+ 1
- 1
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.CoreCompileInputs.cache Ver arquivo

@@ -1 +1 @@
1
-f7bf0ccb484b8b6b002ac292c9038830c025f75f
1
+4a3c3154b1467f0d2844e57a605b84fe7f59c3e6ff78c93fc28db23391792bb1

+ 0
- 1
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.FileListAbsolute.txt Ver arquivo

@@ -34,4 +34,3 @@ D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.exe
34 34
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.xml
35 35
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.pdb
36 36
 D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.AssemblyReference.cache
37
-D:\工巧明\GA帳務通用ERP\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.SuggestedBindingRedirects.cache

+ 0
- 0
SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.SuggestedBindingRedirects.cache Ver arquivo


Carregando…
Cancelar
Salvar