20241210備份

.vs/SYS-UPDATE/v17/DocumentLayout.json

@@ -6,9 +6,6 @@
       "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\sys-update\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "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}"
     },
-    {
-      "AbsoluteMoniker": "D:0:0:{00000000-0000-0000-0000-000000000000}|\u003CSolution\u003E|SYS-UPDATE||{04B8AB82-A572-4FEF-95CE-5222444B6B64}|"
-    },
     {
       "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\SYS-UPDATE\\sys-update\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|solutionrelative:sys-update\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
@@ -17,6 +14,9 @@
       "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\SYS-UPDATE\\sys-update\\sys-update.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
       "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"
     },
+    {
+      "AbsoluteMoniker": "D:0:0:{00000000-0000-0000-0000-000000000000}|\u003CSolution\u003E|SYS-UPDATE||{04B8AB82-A572-4FEF-95CE-5222444B6B64}|"
+    },
     {
       "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\SYS-UPDATE\\sys-update\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "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}"
@@ -37,7 +37,7 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 1,
+              "DocumentIndex": 3,
               "Title": "SYS-UPDATE",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vbproj",
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vbproj",
@@ -48,7 +48,7 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 2,
+              "DocumentIndex": 1,
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\SYS-UPDATE\\SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeDocumentMoniker": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
@@ -78,20 +78,20 @@
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAoAAAAmAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAsAAAALAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2023-12-30T02:00:28.473Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 3,
+              "DocumentIndex": 2,
               "Title": "SYS-UPDATE.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2023-12-30T02:00:28.589Z"
             }
           ]

SYS-UPDATE/SYS-UPDATE.Designer.vb

@@ -22,11 +22,13 @@ Partial Class SYS_UPDATE
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SYS_UPDATE))
         Me.伺服器區域_cb = New System.Windows.Forms.ComboBox()
         Me.FDT_dgv = New System.Windows.Forms.DataGridView()
         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.計算分流 = New System.Windows.Forms.Timer(Me.components)
         CType(Me.FDT_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -62,6 +64,9 @@ Partial Class SYS_UPDATE
         Me.ProgressBar1.Size = New System.Drawing.Size(296, 23)
         Me.ProgressBar1.TabIndex = 636
         '
+        '計算分流
+        '
+        '
         'SYS_UPDATE
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -87,4 +92,5 @@ Partial Class SYS_UPDATE
     Friend WithEvents 伺服器區域_cb As ComboBox
     Friend WithEvents FDT_dgv As DataGridView
     Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents 計算分流 As Timer
 End Class

SYS-UPDATE/SYS-UPDATE.resx

@@ -117,6 +117,9 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="計算分流.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</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

@@ -4,12 +4,119 @@ Public Class SYS_UPDATE
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim pProcess1() As Process = System.Diagnostics.Process.GetProcessesByName("HSKIN-MIS-SYS.exe")
         For Each p As Process In pProcess1 : p.Kill() : Next
-        Dim Strs As String = Application.StartupPath : 資料數 = 6
+        Dim Strs As String = Application.StartupPath : 資料數 = 104
         Target = "https://gcm-smart.com/ERP/HSKIN/"
     End Sub
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        計算分流.Enabled = True
+    End Sub
+    Private Sub 計算分流_Tick(sender As Object, e As EventArgs) Handles 計算分流.Tick
+        計算分流.Enabled = False
         MyModule1.進度條() : Delay(30000)
-        MyModule1.進度條() : Dim Str As String = Application.StartupPath
+        MyModule1.進度條() : Dim Str As String = Application.StartupPath : Dim FS As String
+        '---------------------------------使用網頁插件------------------------------------------------------------------------
+        MyModule1.進度條() : FS = "CefSharp.BrowserSubprocess.Core.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.BrowserSubprocess.Core.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.BrowserSubprocess.exe" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.BrowserSubprocess.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.Core.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.Core.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.Core.Runtime.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.Core.Runtime.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.Core.Runtime.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.Core.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.WinForms.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.WinForms.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.WinForms.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "CefSharp.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "chrome_100_percent.pak" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "chrome_200_percent.pak" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "chrome_elf.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "d3dcompiler_47.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "icudtl.dat" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "libcef.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "libEGL.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "libGLESv2.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "resources.pak" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "snapshot_blob.bin" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "v8_context_snapshot.bin" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "vk_swiftshader.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "vk_swiftshader_icd.json" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "vulkan-1.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "DotNetBarcode.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : If Dir(Str + "\locales", vbDirectory) <> "" Then : Else : MkDir(Str + "\locales") : End If
+        MyModule1.進度條() : FS = "af.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "am.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ar.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "bg.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "bn.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ca.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "cs.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "da.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "de.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "el.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "en-GB.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "en-US.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "es.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "es-419.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "et.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "fa.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "fi.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "fil.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "fr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "gu.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "he.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "hi.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "hr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "hu.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "id.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "it.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ja.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "kn.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ko.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "lt.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "lv.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ml.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "mr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ms.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "nb.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "nl.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "pl.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "pt-BR.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "pt-PT.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ro.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ru.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "sk.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "sl.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "sr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "sv.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "sw.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ta.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "te.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "th.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "tr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "uk.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "ur.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "vi.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "zh-CN.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        MyModule1.進度條() : FS = "zh-TW.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If
+        '---------------------------------使用Telerik插件------------------------------------------------------------------------
+        MyModule1.進度條() : FS = "Telerik.WinControls.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.WinControls.PdfViewer.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.WinControls.PdfViewer.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.WinControls.UI.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.WinControls.UI.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.WinControls.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.Windows.Documents.Core.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.Windows.Documents.Core.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.Windows.Documents.Fixed.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.Windows.Documents.Fixed.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.Windows.Zip.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "Telerik.Windows.Zip.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        MyModule1.進度條() : FS = "TelerikCommon.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        '---------------------------------主程式下載------------------------------------------------------------------------
         MyModule1.進度條() : If File.Exists(Str + "\HSKIN-MIS-SYS.exe") Then : File.Delete(Str + "\HSKIN-MIS-SYS.exe") : End If
         MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "HSKIN-MIS-SYS.exe", Str + "\HSKIN-MIS-SYS.exe")
         MyModule1.進度條() : Shell(Str + "\HSKIN-MIS-SYS.exe", vbNormalFocus)
@@ -22,4 +129,6 @@ Public Class SYS_UPDATE
             Application.DoEvents()
         End While
     End Sub
+
+
 End Class

SYS-UPDATE/bin/Debug/LIVE.txt

@@ -1 +0,0 @@
-A