20230814備份

Calculator-SYS-UPDATE.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 17
+VisualStudioVersion = 17.5.33530.505
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Calculator-SYS-UPDATE", "Calculator-SYS-UPDATE\Calculator-SYS-UPDATE.vbproj", "{840DCAF0-BE0F-4DA4-B667-5734EDF42CA5}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{840DCAF0-BE0F-4DA4-B667-5734EDF42CA5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{840DCAF0-BE0F-4DA4-B667-5734EDF42CA5}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{840DCAF0-BE0F-4DA4-B667-5734EDF42CA5}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{840DCAF0-BE0F-4DA4-B667-5734EDF42CA5}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {88D5CDB3-0AA9-4B04-8A1C-272ECFE23E54}
+	EndGlobalSection
+EndGlobal

Calculator-SYS-UPDATE/App.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

Calculator-SYS-UPDATE/Calculator-SYS-UPDATE.Designer.vb

@@ -0,0 +1,91 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class C_SYS_UPDATE
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(C_SYS_UPDATE))
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.伺服器區域_cb = New System.Windows.Forms.ComboBox()
+        Me.ftp清單_dgv = New System.Windows.Forms.DataGridView()
+        CType(Me.ftp清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Timer1
+        '
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(1, 0)
+        Me.ProgressBar1.Maximum = 10000
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(296, 23)
+        Me.ProgressBar1.TabIndex = 638
+        '
+        '伺服器區域_cb
+        '
+        Me.伺服器區域_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.伺服器區域_cb.ForeColor = System.Drawing.Color.Blue
+        Me.伺服器區域_cb.FormattingEnabled = True
+        Me.伺服器區域_cb.Items.AddRange(New Object() {"印尼外網", "測試雲端", "公司雲端"})
+        Me.伺服器區域_cb.Location = New System.Drawing.Point(477, 8)
+        Me.伺服器區域_cb.Name = "伺服器區域_cb"
+        Me.伺服器區域_cb.Size = New System.Drawing.Size(102, 24)
+        Me.伺服器區域_cb.TabIndex = 640
+        '
+        'ftp清單_dgv
+        '
+        Me.ftp清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.ftp清單_dgv.Location = New System.Drawing.Point(354, 19)
+        Me.ftp清單_dgv.Name = "ftp清單_dgv"
+        Me.ftp清單_dgv.RowHeadersWidth = 5
+        Me.ftp清單_dgv.RowTemplate.Height = 24
+        Me.ftp清單_dgv.Size = New System.Drawing.Size(126, 72)
+        Me.ftp清單_dgv.TabIndex = 639
+        Me.ftp清單_dgv.Visible = False
+        '
+        'C_SYS_UPDATE
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(298, 25)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.伺服器區域_cb)
+        Me.Controls.Add(Me.ftp清單_dgv)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.Name = "C_SYS_UPDATE"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "SYS-UPDATE........"
+        CType(Me.ftp清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents 伺服器區域_cb As ComboBox
+    Friend WithEvents ftp清單_dgv As DataGridView
+End Class

Calculator-SYS-UPDATE/Calculator-SYS-UPDATE.resx

@@ -0,0 +1,290 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="Timer1.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>
+        AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAACQAABILAAASCwAAAAAAAAAA
+        AAAAAAAAAQEBAAEBAQAAAAAA////AAAAAAQEBAQOERERGRcXFyEXFxciFxcXIhcXFyIXFxciFxcXIhcX
+        FyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxciFxcXIhcX
+        FyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxchEhISGgQEBA4AAAAFAAAAAAgI
+        CAAHBwcACgoKAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAFQMDAzcODg5gFhYWfhgYGIsZGRmPGRkZjxkZ
+        GY8ZGRmPGRkZjxgYGI8YGBiPGBgYjxgYGI8YGBiPGBgYjxgYGI8ZGRmPGRkZjxgYGI8YGBiPGBgYjxgY
+        GI8YGBiPGBgYjxgYGI8YGBiPGRkZjxkZGY8ZGRmPGBgYjxkZGY8ZGRmPGBgYjxgYGI8YGBiLFhYWfg4O
+        DmADAwM4AAAAFQsLCwQAAAAACgoKAAMDAwAAAAAAAAAAAAAAAAcBAQEqDw8PbCAgIK4sLCzYMDAw6TIy
+        Mu8yMjLwMzMz8TMzM/EyMjLxMjIy8TIyMvEyMjLxMjIy8TIyMvEyMjLxMjIy8TMzMvEzMzPxMzMz8TIz
+        M/EyMzPxMjIz8TIyMvEyMjLxMjIy8TIyMvEyMjLxMjIy8TIyMvEyMjLxMjIy8TIyMvEyMjLxMjIy8TEx
+        MfAxMTHvMDAw6SsrK9ghISGwEBAQbQMDAyoAAAAHAAAAAAAAAAAAAAAAAAAABgQEBDAYGBiILCws2DQ0
+        NPg2Njb/ODg4/zk5Of85OTn/Ojo6/zo6Ov85OTn/OTk5/zk5Of85OTn/Ojo6/zo6Ov86Ojr/Ojo6/zo6
+        Ov86Ojr/Ojk5/zo5Of86OTj/Ojk4/zo4OP86ODj/Ojg4/zo5OP86OTn/OTo6/zk5Of86Ojr/Ojo6/zk5
+        Of85OTn/OTk5/zg4OP84ODj/ODg4/zc3N/80NDT4LS0t2RkZGYoFBQUxAAAABgAAAAAAAAACAgICJBsb
+        G4UxMTHjNjY2/jc3N/85OTn/Ojo6/zs7O/88PDz/PDw8/zw8PP88PDz/PDw8/zw8PP88PDz/PDw8/z08
+        PP89PT3/PT08/z08Ov89Ozr/PTw9/z1AQ/89Rkz/PEtU/zxOWv89T1z/PE5Z/zxKU/88QUT/PDw8/zw8
+        PP88PDz/PDw8/zs7O/87Ozv/Ozs7/zs7O/86Ojr/Ojo6/zg4OP83Nzf/NjY2/zAwMOMcHByHAwMDJAAA
+        AAIAAAAPFhYWXy8vL9Y3Nzf+Nzc3/zo6Ov88PDz/PT09/z4+Pv8+Pj7/Pj4+/z4+Pv8/Pz//Pz8//z8/
+        P/8/Pz//QEBA/0BAQP9APz3/QUBA/0BKUf9AW23/P2+N/z+AqP8/jb3/P5XL/z+a0/8/m9X/P5nT/z6R
+        w/8/YHP/QD8+/0A/QP8/Pz//Pz8//z4+Pv8+Pj7/Pj4+/z4+Pv8+Pj7/PT09/zw8PP86Ojr/Nzc3/zY2
+        Nv4vLy/XFxcXYQAAABAHBwctJycnoTc3N/k4ODj/Ojo6/z09Pf8+Pj7/Pz8//0BAQP9AQED/QEBA/0FB
+        Qf9BQUH/QUFB/0FBQv9CQkL/Q0FA/0NDRP9CVF7/QnKO/0KPvv9Co9//Qa/y/0G0+/9Ctv3/Qrb+/0K1
+        /f9Btf3/QrX9/0Cx8/9BcIv/QkFB/0JCQv9CQkL/QUFB/0FBQf9BQUH/QEBA/0BAQP9AQED/Pz8//z4+
+        Pv88PDz/Ojo6/zc3N/82Njb5KCgoowgICC4XFxdULy8vzTg4OP86Ojr/PT09/z8/P/9AQED/QEBA/0FB
+        Qf9BQUH/QkJC/0JCQv9CQkL/Q0ND/0NDQv9EQkL/Q1BY/0Nzkf9Dmc3/Q67v/0O2/P9Dtvz/RLDy/0Sn
+        4/9EnND/RJLB/0SLt/9EibT/RIu4/0OPu/9DZXj/RERD/0RERP9DRET/Q0ND/0NDQ/9CQkL/QkJC/0JC
+        Qv9BQUH/QEBA/z8/P/8+Pj7/PDw8/zk5Of83Nzf/MDAwzhgYGFYfHx90NDQ05Tg4OP87Ozv/Pj4+/0BA
+        QP9AQED/QUFB/0FBQf9CQkL/QkJC/0NDQ/9DQ0P/RENC/0RGR/9DYXT/Q5C//0Ou7v9Dt/z/RLT3/0Sm
+        3/9Fjrr/RnSR/0Zhcv9HVl7/R09U/0dMUP9HTE//R0xP/0ZOU/9GSk3/RUVF/0VFRf9FRUX/RERE/0RE
+        RP9DQ0P/Q0ND/0JCQv9BQUH/QUFB/0BAQP8/Pz//PT09/zo6Ov84ODj/NDQ05h8fH3YgICCCNTU17jg4
+        OP88PDz/Pj4+/z8/P/9AQED/QUFB/0JCQv9CQkL/Q0ND/0NDQ/9DQ0L/RElM/0Nxi/9Dotr/Q7X6/0S1
+        +f9Ept//RYWp/0djdP9IT1P/SEdH/0hFRP9JRUT/SURF/0hFRv9IRUb/SEVF/0dDRP9HRUX/RkdG/0ZG
+        Rv9GRkb/RUVF/0RERP9ERET/Q0ND/0JCQv9CQkL/QUFB/0BAQP8/Pz//Pj4+/zs7O/84ODj/NjY27yIi
+        IoQfHx+ENTU17zg4OP88PDz/Pz8//0BAQP9BQUH/QkJC/0NDQ/9DQ0P/Q0NE/0RDQv9ESk7/Q3iW/0Oq
+        5f9Et/v/RLHx/0WSvv9HZnn/SExP/0lGRf9KRkf/SUlK/0lTT/9IYVj/SG5g/0h3Zf9Iemf/R3Zl/0Zr
+        Xv9HVE//SEdH/0dHR/9HR0f/RkZG/0VFRf9ERET/RERE/0NDQ/9DQ0P/QkJC/0FBQf9AQED/Pj4+/zw8
+        PP84ODj/ODg48SgoKIogICCFNTU17zk5Of88PDz/Pz8//0BAQP9BQUH/QkJC/0NDQ/9ERET/REND/0RJ
+        S/9EeJX/Q6zn/0S3+/9Fren/RoKj/0hVXf9JR0j/SkdH/0pOTP9JY1r/SIVw/0ejg/9Gt4//RsCV/0bF
+        mP9Gxpj/RcSX/0W8kf9Hd2X/SUhI/0hISf9HR0f/RkZG/0ZGRv9FRUX/RERE/0RERP9ERET/Q0ND/0JC
+        Qv9BQUH/Pz8//zw8PP84ODj/ODg48SkpKYsgICCFNTU17zk5Of88PDz/Pj4+/0FBQf9CQkL/Q0JC/0ND
+        Q/9EREP/REZG/0Ruh/9EqeP/Rbf7/0Ws5/9Hepb/SU9S/0pIR/9KSkr/SV9X/0iNdf9ItpD/SMqd/0fQ
+        of9I0KH/SM+h/0jPof9Hz6D/Rs+g/0bKnP9IgGz/SklK/0pKSv9ISEj/R0dH/0dHR/9GRkb/RUVF/0RE
+        RP9ERET/Q0ND/0JCQv9BQUH/Pz8//z09Pf85OTn/OTk58SkpKYsfHx+FNTU17zk5Of88PDz/Pz8//0FB
+        Qf9CQkL/Q0ND/0RERP9EQ0L/RF9t/0Sf1f9Et/z/Ra7r/0d8mf9JTlD/SkhI/0pOTf9Kc2T/SKyK/0jM
+        n/9I0aP/SdCi/0nQo/9J0aT/SdGk/0jQov9Iz6H/R9Ch/0fMnv9Jgm7/S0pK/0pKSv9JSUn/SEhI/0hI
+        SP9HR0f/RkZG/0VFRf9FRUX/Q0ND/0JCQv9BQUH/QEBA/z09Pf85OTn/OTk58SkpKYsgICCFNTU17zk5
+        Of88PDz/Pz8//0FBQf9DQ0P/REVE/0VDQ/9FTVP/RIuz/0W19/9FtPT/R4et/0lQVP9LSEj/S05N/0p9
+        a/9IvJT/SNGj/0nQo/9J0KT/StKl/0rKoP9LuJT/S6WG/0uYff9Lk3r/Sph8/0mhgv9LdGX/TEtL/0tL
+        S/9JSUn/SUlJ/0hISP9HR0f/RkZG/0ZGRv9FRUX/RERE/0NDQ/9CQkL/QEBA/z09Pf85OTn/OTk58Skp
+        KYsgICCFNjY27zk5Of89PT3/Pz8//0FBQf9DQ0P/RURE/0VERP9Fa4L/RKzo/0W4+/9GnMz/SVtl/0tI
+        SP9MTEz/Snpp/0i+l/9J0aT/StCk/0rSpv9KzKL/TK2N/06Dcf9PZl7/UFhV/1BTUv9QUlH/UFNR/09X
+        VP9OVFH/TU1N/0xMTP9LS0v/SkpK/0lJSf9ISEj/R0dH/0dHR/9GRkb/RUVF/0RERP9DQ0P/QEBA/z09
+        Pf85OTn/ODg48SkpKYsgICCFNjY27zk5Of89PT3/Pz8//0JCQv9ERET/REND/0VOVP9EkL3/Rbf6/0Wv
+        7P9Ic4v/SkpJ/0xJSv9La2D/SbeS/0nSpf9K0aX/StOn/0vEnf9OkHn/UGBb/1FQUf9ST1D/UlBR/1BP
+        T/9PTk7/TkxM/01LTP9NTEz/Tk5O/05OTf9MTEz/S0tL/0pKSv9JSUn/SEhI/0dHR/9GRkb/RUVF/0RE
+        RP9DQ0P/QEBA/z09Pf85OTn/Nzc38SkpKYsgICCFNjY27zk5Of89PT3/QEBA/0NDQ/9ERET/REND/0Vl
+        ef9EquX/Rbn8/0aWwv9JVVz/S0hI/0tXU/9KoIP/SdCk/0rRpv9L06j/TMKd/0+Dcv9SVlP/U1FR/1NT
+        U/9RUVH/UFBQ/1dYV/9hYmH/Z2dn/2NkZP9ZWVn/Tk5O/0xMTP9NTU3/TExM/0tLS/9KSkr/SUlJ/0hI
+        SP9GRkb/RUVF/0RERP9DQ0P/QEBA/z09Pf85OTn/ODg48SkpKYsgICCFNjY27zk5Of89PT3/QUFB/0ND
+        Q/9FRET/RUdI/0SBpf9Ftff/RrLx/0h4kv9KSkr/TEpK/0p5af9JxZz/StKm/0vTqP9MyqP/UIt3/1JV
+        U/9TUlL/VFRU/1JSUv9fX1//iIiI/7Kysv/Kysr/0NDQ/83Nzf+9vb3/lZWV/2VlZf9PT0//TExM/0xM
+        TP9KSkr/SUlJ/0lJSf9HR0f/RkZG/0VFRf9DQ0P/QUFB/z09Pf85OTn/ODg48SkpKYsgICCFNjY27zo6
+        Ov89PT3/QUFB/0RERP9FQ0L/RVFY/0WYyf9Fuf3/R6XY/0lgbP9LSEf/TFVS/0qggv9J0qb/S9Gn/0zT
+        qf9Opor/Ul1Z/1NSUv9UVFT/VFRU/29vb/+3t7f/6enp//v7+//////////////////+/v7/8fHx/7W1
+        tf9gYGD/S0tL/01NTf9LS0v/SkpK/0lJSf9ISEj/RkZG/0VFRf9DQ0P/QUFB/z4+Pv85OTn/ODg48Skp
+        KYsgICCFNzc37zs7O/8/Pz//QkJC/0RFRf9GQ0L/Rl9t/0am3/9Huv3/SZS+/0tTWP9NSUj/TWhe/0u8
+        lv9L06j/TdOq/07Hov9Re27/VFJT/1ZWVv9UVFT/a2tr/8HBwf/5+fn//v7+///////8/Pz/9vb2//r6
+        +v/+/v7/7u7u/6CgoP9YWFj/Tk5O/05OTv9MTEz/S0tL/0pKSv9JSUn/SEhI/0dHR/9FRUX/QkJC/z8/
+        P/86Ojr/OTk58SoqKoshISGFODg47zw8PP9AQED/Q0ND/0ZGRv9IRUT/SG2D/0ev6/9JuPj/S4am/05P
+        UP9PTU3/Tn9u/03Lov9O06n/T9Wr/1Gyk/9VY17/WFZW/1hYWP9cXFz/o6Oj//X19f/+/v7//f39/+vr
+        6/+9vb3/pKSk/7S0tP/V1dX/o6Oj/1xcXP9RUVH/UVFR/1BQUP9PT0//TU1N/0xMTP9KSkr/SUlJ/0lJ
+        Sf9GRkb/RERE/0FBQf88PDz/Ojo68SsrK4whISGFOTk57z09Pf9BQUH/RERE/0hISP9KSEf/SXiT/0m0
+        8v9LtvP/TXyW/1BOTf9RUlH/UJB7/0/Rp/9R1Kr/UtSs/1Sdhv9YWlr/Wlpa/1lZWf9tbW3/0tLS//39
+        /f/+/v7/8fHx/6Kiov9kZGT/Wlpa/2BgYP91dXX/YWFh/1RUVP9UVFT/U1NT/1JSUv9RUVH/T09P/05O
+        Tv9MTEz/S0tL/0pKSv9ISEj/RUVF/0JCQv89PT3/PDw88iwsLIwiIiKFOjo67z8/P/9DQ0P/RkdG/0lJ
+        Sf9LS0r/S3+d/0u39v9MtO//T3eO/1JPTv9UVlX/UpqC/1LTqf9T1Kv/VNOr/1eRf/9bWlr/XV1d/1tb
+        W/+BgYH/6Ojo///////+/v7/1tbW/3Fxcf9aWlr/XV1d/1tbW/9YWFj/WFhY/1hYWP9WVlb/VlZW/1RU
+        VP9TU1P/UVFR/1BQUP9OTk7/TU1N/0xMTP9KSkr/R0dH/0RERP8+Pj7/PT098i0tLYwjIyOFOzs770BA
+        QP9FRUX/SEhI/0tLS/9NTEz/TIKh/0259/9Pte7/UXeO/1RQT/9WWVf/VJ6F/1TUq/9W1a3/VtOs/1mQ
+        f/9eXFz/YF9f/11dXf+JiYn/7u7u///////9/f3/y8vL/2xsbP9eXl7/X19f/19fX/9dXV3/XFxc/1pa
+        Wv9ZWVn/WFhY/1ZWVv9UVFT/U1NT/1JSUv9QUFD/Tk5O/01NTf9LS0v/SUlJ/0VFRf9AQED/Pz8/8i4u
+        Lo0kJCSFPT0970FBQf9GRkb/SkpK/01NTf9PTk3/ToGd/0659v9Qt/D/U3yS/1ZTUv9XWlj/VpyE/1XV
+        q/9X1a3/WNWu/1uXhP9gX1//YWFh/19fX/+BgYH/5ubm///////+/v7/3Nzc/3p6ev9eXl7/YWFh/19f
+        X/9dXV3/XV1d/1xcXP9bW1v/WVlZ/1dXV/9WVlb/VVVV/1NTU/9SUlL/UVFR/09PT/9NTU3/S0tL/0dH
+        R/9CQkL/QUFB8i8vL40lJSWFPz8/70NDQ/9ISEj/TExM/09PT/9RT07/UXyV/1G38v9SuvX/VYWe/1hX
+        Vv9ZWVn/WJN//1fTq/9Z1q7/Wtiw/12okP9iZmT/ZGNj/2NjY/9ycnL/zs7O//39/f/+/v7/9vb2/7a2
+        tv92dnb/Z2dn/3Fxcf+Kior/cXFx/11dXf9dXV3/XFxc/1paWv9ZWVn/V1dX/1ZWVv9VVVX/U1NT/1JS
+        Uv9QUFD/TU1N/0lJSf9DQ0P/QkJC8jAwMI0nJyeFQUFB70VFRf9KSkr/Tk9O/1JSUv9UUU//U3OG/1O0
+        6v9Uvvv/V5Kz/1pcXv9bWVn/W4N1/1rMp/9c16//Xdiy/1++oP9jdW//ZmRk/2dnZ/9oaGj/oaGh//Ly
+        8v///////f39//T09P/U1NT/v7+//8zMzP/l5eX/urq6/3Fxcf9fX1//Xl5e/11dXf9bW1v/Wlpa/1lZ
+        Wf9XV1f/VlZW/1VVVf9SUlL/T09P/0tLS/9FRUX/RERE8jIyMo0nJyeFQkJC70dHR/9MTEz/UFBQ/1RU
+        VP9VUlH/VWl0/1Ws3f9Wwf3/WKPL/1tmbP9dWVr/XnJr/1y+nf9d2bD/X9ix/2DRrf9kk4T/Z2Zm/2ho
+        aP9nZ2j/dXV1/7u7u//19fX//v7+///////+/v7/+/v7//39/f//////9vb2/7W1tf9sbGz/X19f/19f
+        X/9dXV3/XFxc/1paWv9ZWVn/V1dX/1ZWVv9UVFT/UFBQ/0xMTP9HR0f/RUVF8jIyMo0oKCiFRERE70lJ
+        Sf9OTk7/UlJS/1VWVv9XVlX/WF9k/1iex/9Ywfz/WrPk/113hf9gXFz/YWVj/1+ijP9f16//Ydiy/2LZ
+        s/9kvKD/aHp0/2poaf9ra2v/ampq/3p6ev+xsbH/4eHh//j4+P/+/v7//f39//39/f/7+/v/6urq/7Oz
+        s/9wcHD/YWFh/2FhYf9eXl7/XV1d/1xcXP9aWlr/WVlZ/1dXV/9WVlb/U1NT/05OTv9JSUn/R0dH8jQ0
+        NI0pKSmFRkZG70tLS/9QUFD/VFRU/1dYWP9aWVn/Wltb/1qKpP9bvvX/XL/3/1+Rq/9hY2T/Y2Bg/2OB
+        d/9hx6X/Ytmy/2TZs/9l1rL/Z6uW/2t1cv9ta2z/bW5t/2xsbP9ycnL/i4uL/6urq/+/v7//xsbG/8LC
+        wv+ysrL/kpKS/3BwcP9lZWX/ZGRk/2NjY/9hYWH/YGBg/15eXv9dXV3/W1tb/1paWv9YWFj/VlZW/1FR
+        Uf9LS0v/SUlJ8jU1NY0rKyuFSEhI701NTf9SUlL/VlZW/1lZWf9cXFv/XVta/110gP9dsuL/XsT9/2Ct
+        1/9jc3z/ZWJi/2Zraf9loo7/ZNWw/2bZs/9n2rX/aNSx/2qplf9tenb/b21u/3Bvb/9ub2//bW1t/29v
+        b/9zdHP/dXZ2/3Nzc/9tbW3/aGho/2dnZ/9oaGj/ZmZm/2VlZf9jY2P/YWFh/2BgYP9fX1//Xl5e/11d
+        Xf9bW1v/WFhY/1NTU/9NTU3/TExM8jc3N40sLCyFSkpK709PT/9UVFT/WFhY/1xcXP9eXl7/X15e/19k
+        aP9fmrr/YMP5/2LA9f9kk63/Zmhp/2hmZv9oeXP/Z7ic/2fZs/9p2rT/adu2/2rWs/9st5//b4yC/3B1
+        c/9xcHD/cW9v/3Fub/9vbW7/bmxs/21ra/9sa2z/bGxs/2tra/9qamr/aGho/2ZmZv9lZWX/Y2Nj/2Ji
+        Yv9hYWH/YGBg/19fX/9dXV3/WVlZ/1VVVf9PT0//TU1N8jg4OI0uLi6FTU1N71FRUf9WVlb/Wlpa/15e
+        Xv9gYGD/YWFh/2JhYP9ifIr/Yrbj/2PH/f9lt+L/aIGO/2ppaP9ra2v/a4V9/2nAo/9q2rX/a9u2/2zb
+        t/9s27f/bc2u/26wmv9wlor/cYZ//3F+ev9xe3j/cH15/2+Eff9uenb/bm1t/21tbf9tbGz/ampq/2ho
+        aP9mZmb/ZWVl/2RkZP9jY2P/YmJi/2FhYf9fX1//W1tb/1dXV/9RUVH/UFBQ8jk5OY0vLy+FT09P71RU
+        VP9YWFj/XV1d/2BgYP9jY2P/Y2Nk/2VkY/9laWv/ZZex/2bD9f9nx/n/aavP/2x5gf9ubGz/b29v/26J
+        gP9tvaL/bdm0/27ct/9u27f/b9y5/2/buP9v1LP/cMqs/3DBpv9vvqT/bsCl/23GqP9ul4n/cG9v/29v
+        cP9ubm7/bW1t/2tra/9paWn/aGho/2dnZ/9lZWX/ZGRk/2JiYv9gYGD/XV1d/1lZWf9TU1P/UlJS8js7
+        O40wMDCFUVFR71dXV/9cXFz/YGBg/2NjY/9lZWX/ZmZm/2dnZ/9nZmb/aHZ9/2mrz/9qyPv/a8b3/2ym
+        xP9veX//cXBv/3Jycv9yhH7/cK+Z/2/RsP9w27f/cdy4/3HbuP9x3Lj/cd24/3HcuP9w3Lj/b9y3/27Z
+        tP9wno//cnFx/3Fxcf9wcHD/b29v/21tbf9ra2v/ampq/2lpaf9oaGj/ZmZm/2VlZf9jY2P/YGBg/1xc
+        XP9WVlb/VFRU8jw8PI0yMjKFVFRU71paWv9fX1//Y2Nj/2ZmZv9nZ2f/aGho/2lpaf9qamr/a2tq/2yD
+        kP9stt3/bcr7/27G9f9wp8T/cn+F/3Rycv91c3T/dXt5/3SWiv9zuaH/c8+w/3PZtv9z3Lj/c924/3Pc
+        uP9y3Lj/cdy3/3DZtP9yno//dHNz/3Nzc/9ycnL/cXFx/29vb/9tbW3/bGxs/2tra/9qamr/aWlp/2ho
+        aP9mZmb/YmJi/15eXv9YWFj/V1dX8j4+Po00NDSFV1dX71xcXP9hYWH/ZWVl/2hoaP9qamr/ampq/2tr
+        a/9tbG3/bm1t/25vb/9ujJv/brvh/2/L+/9xyPf/crDQ/3SKlf92d3j/d3V0/3d2d/93f33/d5OJ/3ap
+        l/91uqL/dcSo/3TJq/90y6z/c8mr/3LApf90k4j/dXR0/3R0dP9zc3P/cnJy/3Fxcf9vb2//bm5u/21t
+        bf9sbGz/a2tr/2pqav9oaGj/ZWVl/2FhYf9bW1v/Wlpa8kBAQI01NTWEWFhY711dXf9jY2P/Z2dn/2pq
+        av9ra2v/bGxs/21tbf9vbm7/cG9v/3BwcP9xcnP/cY2c/3G53v9yy/r/c8v6/3S94v91nrL/d4OJ/3h4
+        eP95d3b/eXd3/3l6ef95gH3/eIWB/3iKhP93jIX/d4mD/3aDf/92enj/dXV1/3V1df90dHT/c3Nz/3Jy
+        cv9xcXH/b29v/25ubv9tbW3/bW1t/2xsbP9qamr/Z2dn/2NjY/9dXV3/W1tb8kJCQo03NzeAWlpa719f
+        X/9lZWX/aWlp/2xsbP9ubm7/b29v/3BwcP9wcHD/cXFx/3Jycv9zcnL/c3R0/3OKlf9zstL/dMn2/3XO
+        /P92yfT/d7fY/3iesf95iZH/en+B/3p6ev96eHj/e3d3/3p3d/96dnf/enZ2/3h1df93dnb/d3d3/3Z2
+        dv91dXX/dXV1/3R0dP9zc3P/cXFx/3BwcP9wcHD/b29v/25ubv9tbW3/aWlp/2VlZf9eXl7/XFxc8D8/
+        P4Y/Pz91YGBg62FhYf9mZmb/a2tr/25ubv9xcXH/cXFx/3Fxcf9ycnL/c3Nz/3R0dP90dXX/dXV1/3Z1
+        df92gYj/dqO6/3bB5/93zvv/d9D9/3jL9f95v+P/ea/K/3qfsv96lKH/e4yW/3uJj/97h43/eoiP/3mK
+        lP95gYX/eHh4/3h3d/93d3f/dnZ2/3V1df90dHT/c3Nz/3Jycv9ycnL/cXFx/3BwcP9vb2//a2tr/2Zm
+        Zv9gYGD/YGBg7EBAQHZGRkZVYmJi12NjY/9mZmb/bGxs/3BwcP9ycnL/dHR0/3Nzc/90dHT/dHR0/3V1
+        df92dnb/d3d3/3h3eP94d3f/eHt9/3mPm/95rMb/ecLo/3rN+f960f7/etH9/3nN+P96yPH/esPo/3q/
+        4v96vuD/eb/i/3jA4/95mKf/eXl4/3l5ef95eXn/eHh4/3d3d/92dnb/dXV1/3R0dP9zc3P/c3Nz/3Jy
+        cv9wcHD/bGxs/2ZmZv9jY2P/Y2Nj2UdHR1c3NzcnYWFhqWhoaP1lZWX/bGxs/3BwcP9zc3P/dHR0/3V1
+        df91dXX/dnZ2/3Z2dv93d3f/eHh4/3h4eP95enr/enl5/3p5eP97f4H/e4+a/3uluv97uNf/e8Xr/3rM
+        9v960Pv/etL9/3rS/v960v7/edP+/3nO9f95na7/enl5/3p6ev95eXr/eXl5/3h4eP93d3f/d3d3/3Z2
+        dv91dXX/dHR0/3Jycv9wcHD/bGxs/2RkZP5nZ2f9YmJirDs7OykAAAAIYmJiYXBwcONmZmb/aWlp/m5u
+        bv9xcXH/c3Nz/3V1df91dXX/dnZ2/3Z2dv92dnb/d3d3/3d3d/94eHj/eXl5/3l5ev96eXn/e3l4/3t8
+        ff97g4j/eo6Z/3qbq/96pbr/eqzF/3mwzP95ss//eLDM/3iqwf95jJX/eXh4/3l4eP94eHj/eHh4/3h4
+        eP93d3f/d3d3/3d3d/91dXX/dHR0/3Jycv9ubm7/aGho/mZmZv9vb2/lYmJiZAAAAAkAAAAAQUFBG3Bw
+        cI9zc3PyaGho/2lpaf5vb2//cnJy/3Nzc/90dHT/dHR0/3R0dP90dHT/dXV1/3V1df91dXX/dnZ2/3Z2
+        d/93d3f/eHh4/3h4d/94d3b/eHd2/3h3d/94eXn/eHt8/3h8fv93fH//d3t+/3d5e/93d3f/dnZ2/3Z2
+        dv91dXX/dXV1/3V1df91dXX/dXV1/3V1df90dHT/cnJy/29vb/9qamr+Z2dn/3JycvNvb2+SPz8/HAAA
+        AAD///8AAAAAAUxMTCZ2dnaVeXl5625ubv5qamr/a2tr/21tbf5ubm7+b29v/m9vb/5wcHD+cHBw/nBw
+        cP5vb2/+cHBw/nBwcP5wcHD+cXFx/nFxcv5ycnL+cnJy/nJycf5xcnH+cnFx/nFxcP5xcXD+cXBw/nFx
+        cP5xcXH+cHBw/nBvb/5vb2/+b29v/nBwcP5wcHD+cHBw/m9vb/5ubm7+a2tr/2pqav9ubm7+eXl57HZ2
+        dpdMTEwoAAAAAgAAAACFhYUAmJiYAAAAAAFRUVEeenp6b3p6er56enrqeHh49nV1dfdycnL3cnJy93Nz
+        c/dzc3P3c3Nz93Nzc/dzc3P3cnJy93Nzc/dzc3P3c3Nz93Nzc/dzc3P3c3Nz93R0dPd0dHT3dHR093Nz
+        c/dzc3P3c3Nz93R0dPdzdHT3c3Nz93JycvdycnL3c3Nz93Nzc/dzc3P3cnJy93Jycvd1dXX3eXl59np6
+        eut5eXnAeXl5cFBQUB8AAAABAAAAAAAAAAD19fUAnZ2dAP///wAAAAAALS0tC2trazRycnJxcHBwpG1t
+        bbNqamq2ampqtmtra7dra2u3a2trt2tra7dra2u3ampqt2pqardqamq3ampqt2pqardra2u3a2trt2tr
+        a7dra2u3a2trt2pqardqamq3a2trt2tra7dra2u3a2trt2pqardqamq3a2trt2tra7dra2u3ampqtmpq
+        arZtbW2zcXFxpHNzc3FsbGw1Li4uCwAAAAD///8AExMTAFlZWQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAA=
+</value>
+  </data>
+</root>

Calculator-SYS-UPDATE/Calculator-SYS-UPDATE.vb

@@ -0,0 +1,103 @@
+Imports System.IO
+Imports System.Net
+Imports System.Net.NetworkInformation
+Public Class C_SYS_UPDATE
+    ReadOnly ds2 As New DataSet
+    ReadOnly computerProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
+    ReadOnly IPEndPoint() As EndPoint = computerProperties.GetActiveTcpListeners()
+    Dim myIPEndPoint As IPEndPoint
+    Dim 內網線路, 開發線路, 刪除完成, OK1, OK2, OK3, OK4, OK5, OK6, OK7, OK8, OK9, OK10 As Boolean
+    Dim Str As String = Application.StartupPath
+    Dim TF As String
+    Private Sub Set_清單1()
+        ftp清單_dgv.DataSource = Nothing : ds2.Clear()
+        ftp清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        ftp清單_dgv.ColumnHeadersHeight = 25
+        ftp清單_dgv.AllowUserToAddRows = False
+        SQL_FTP資料夾路徑分配()
+        da.Fill(ds2) : ftp清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
+    End Sub
+    Private Sub IP比對()
+        '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
+        If SQL_連線狀態模組2.ConnectTest2("192.168.0.201,2433") = True Then
+            登入人IP = "192.168.0.201,2433"
+        Else
+            If SQL_連線狀態模組1.ConnectTest1("106.1.48.106,4567") = True Then
+                登入人IP = "106.1.48.106,4567"
+            Else
+                MsgBox("System error please contact the job administrator!!")
+            End If
+        End If
+    End Sub
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    End Sub
+    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        IP比對()
+        If 登入人IP = "192.168.0.201,2433" Then : Target = "ftp://192.168.0.201:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL-"
+        ElseIf 登入人IP = "103.231.201.230,2433" Then : Target = "ftp://103.231.201.230:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "231-SQL-"
+        ElseIf 登入人IP = "103.144.143.182,2433" Then : Target = "ftp://103.144.143.182:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "144-SQL-"
+        ElseIf 登入人IP = "106.1.48.106,4567" Then : Target = "ftp://106.1.48.106:2121/HXPGS/" : FTP物理位置 = "D:\FTP\HXPGS\" : TF = "106-SQL-"
+        End If : FTP帳號 = "" : FTP密碼 = "" : SQL_連線字串_正式()
+
+        Set_清單1()
+        Dim HH As String = ""
+        For i As Integer = 0 To ftp清單_dgv.Rows.Count - 1
+            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
+            If ftp清單_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = ftp清單_dgv("資料夾名稱", i).Value.ToString : End If
+        Next
+        Target1 = Target & AA(0) & "/"
+        Me.Text = "SYS-UPDATE..- " & TF
+    End Sub
+    Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        資料數 = 7
+        MyModule1.進度條() : Delay(30000)
+        MyModule1.進度條() : Dim Str As String = Application.StartupPath
+        Timer1.Enabled = True
+    End Sub
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Dim 已開啟 As Boolean = False
+        Dim Strs As String = Application.StartupPath
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Calculator-SYS.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("YD-ERP-SYS").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                Timer1.Enabled = False
+                MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
+                MyModule1.進度條() : If File.Exists(Str + "\Calculator-SYS.exe") Then : File.Delete(Str + "\Calculator-SYS.exe") : End If
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
+                MyModule1.進度條() : Shell(Str + "\Calculator-SYS.exe", vbNormalFocus)
+                Me.Close()
+            End If
+        ElseIf File.Exists(Strs & "\Calculator-SYS.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("YD-ERP-SYS").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                Timer1.Enabled = False
+                MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
+                MyModule1.進度條() : If File.Exists(Str + "\Calculator-SYS.exe") Then : File.Delete(Str + "\Calculator-SYS.exe") : End If
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
+                MyModule1.進度條() : Shell(Str + "\Calculator-SYS.exe", vbNormalFocus)
+                Me.Close()
+            End If
+        End If
+    End Sub
+    Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
+        Dim time As DateTime = DateTime.Now
+        Dim Span As Double = Interval * 1234
+        While ((DateTime.Now.Ticks - time.Ticks) < Span)
+            Application.DoEvents()
+        End While
+    End Sub
+End Class

Calculator-SYS-UPDATE/Calculator-SYS-UPDATE.vbproj

@@ -0,0 +1,134 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{840DCAF0-BE0F-4DA4-B667-5734EDF42CA5}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>Calculator_SYS_UPDATE.My.MyApplication</StartupObject>
+    <RootNamespace>Calculator_SYS_UPDATE</RootNamespace>
+    <AssemblyName>Calculator-SYS-UPDATE</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <Deterministic>true</Deterministic>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>Calculator-SYS-UPDATE.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>Calculator-SYS-UPDATE.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>ayo9y-pohlq-001.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Calculator-SYS-UPDATE.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Calculator-SYS-UPDATE.Designer.vb">
+      <DependentUpon>Calculator-SYS-UPDATE.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="SQL_Module.vb" />
+    <Compile Include="SQL_連線狀態模組1.vb" />
+    <Compile Include="SQL_連線狀態模組2.vb" />
+    <Compile Include="全域變數.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="Calculator-SYS-UPDATE.resx">
+      <DependentUpon>Calculator-SYS-UPDATE.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="ayo9y-pohlq-001.ico" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

Calculator-SYS-UPDATE/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
+'
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    '注意:這是自動產生的檔案，請勿直接修改它。若要進行變更，
+    ' 或者您在這個檔案發生建置錯誤，請到專案設計工具
+    ' (移至專案屬性或者在 [方案總管] 中按兩下 [My Project] 節點)，
+    ' 然後在 [應用程式] 索引標籤上進行變更。
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.Calculator_SYS_UPDATE.C_SYS_UPDATE
+        End Sub
+    End Class
+End Namespace

Calculator-SYS-UPDATE/My Project/Application.myapp

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <MySubMain>true</MySubMain>
+  <MainForm>C_SYS_UPDATE</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+  <HighDpiMpde>false</HighDpiMpde>
+</MyApplicationData>

Calculator-SYS-UPDATE/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' 組件的一般資訊是由下列的屬性集控制。
+' 變更這些屬性的值即可修改組件的相關
+' 資訊。
+
+' 檢閱組件屬性的值
+
+<Assembly: AssemblyTitle("Calculator-SYS-UPDATE")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("Calculator-SYS-UPDATE")>
+<Assembly: AssemblyCopyright("Copyright ©  2023")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
+<Assembly: Guid("2f3c7570-1e97-48e9-92cd-e03b85e13778")>
+
+' 組件的版本資訊由下列四個值所組成: 
+'
+'      主要版本
+'      次要版本
+'      組建編號
+'      修訂編號
+'
+' 您可以指定所有的值，也可以使用 '*' 將組建和修訂編號
+' 設為預設，如下所示:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

Calculator-SYS-UPDATE/My Project/Resources.Designer.vb

@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    Friend Module Resources
+
+        Private resourceMan As Global.System.Resources.ResourceManager
+
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Calculator_SYS_UPDATE.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set(ByVal value As Global.System.Globalization.CultureInfo)
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

Calculator-SYS-UPDATE/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Calculator-SYS-UPDATE/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        Private Shared addedHandlerLockObject As New Object
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+            If My.Application.SaveMySettingsOnExit Then
+                My.Settings.Save()
+            End If
+        End Sub
+#End If
+#End Region
+
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+
+#If _MyType = "WindowsForms" Then
+                   If Not addedHandler Then
+                        SyncLock addedHandlerLockObject
+                            If Not addedHandler Then
+                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                                addedHandler = True
+                            End If
+                        End SyncLock
+                    End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    Friend Module MySettingsProperty
+
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        Friend ReadOnly Property Settings() As Global.Calculator_SYS_UPDATE.My.MySettings
+            Get
+                Return Global.Calculator_SYS_UPDATE.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

Calculator-SYS-UPDATE/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

Calculator-SYS-UPDATE/SQL_Module.vb

@@ -0,0 +1,20 @@
+Imports System.Data.SqlClient
+Module SQL_Module
+    Public ConString As String : Public AccessConString As String : Public SQL1 As String : Public SQL2 As String : Public conn As New SqlConnection : Public cmd As New SqlCommand
+    Public dr As SqlDataReader : Public da As New SqlDataAdapter
+    Friend Sub ConnOpen()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+    End Sub
+    Friend Sub CmdSet_For_DGV()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
+    End Sub
+    Friend Sub CmdSet_For_dr()
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
+    End Sub
+    Friend Sub SQL_FTP資料夾路徑分配()
+        ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理 ORDER BY 指定" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_FTP伺服器登入位置()
+        ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, FTP物理位置 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & C_SYS_UPDATE.伺服器區域_cb.Text & "'" : CmdSet_For_dr()
+    End Sub
+End Module

Calculator-SYS-UPDATE/SQL_連線狀態模組1.vb

@@ -0,0 +1,68 @@
+Module SQL_連線狀態模組1
+#Region "——连接测试：避免等待时间过长——"
+    Dim bConnect As Boolean
+    Dim BgWorker1 As New System.ComponentModel.BackgroundWorker
+    Dim ServerIP As String
+    ''' <summary>
+    ''' 测试连接：True-连接成功，False-连接失败
+    ''' 参数[必选]：服务器IP
+    ''' 参数[可选]：等待超时时间（秒）,默认为1.2秒
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Function ConnectTest1(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 1.5) As Boolean
+        AddHandler BgWorker1.DoWork, AddressOf BgWorker1_DoWork
+        Dim g As Integer
+        Dim k As Integer
+        If BgWorker1.CancellationPending Then
+            BgWorker1.CancelAsync()
+            '取消BackgroundWorker執行中的工作
+        End If
+        Try
+            If varServerIP = "" Then
+                Exit Function
+            End If
+            ServerIP = varServerIP
+            If varTimeout <= 0 Then
+                varTimeout = 1.5
+            End If
+            k = Int(varTimeout * 10)
+            bConnect = False
+            BgWorker1.WorkerSupportsCancellation = True
+            BgWorker1.RunWorkerAsync()
+            For g = 1 To k '1.2s
+                Threading.Thread.Sleep(100)
+                If bConnect = True Then
+                    ConnectTest1 = True
+                    Exit Function
+                End If
+            Next
+            ConnectTest1 = False
+            BgWorker1.CancelAsync()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+#Disable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
+    End Function
+#Enable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
+    '--异步动作
+    Private Sub BgWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        Call ConnectMSSQLServer()
+    End Sub
+    '--连接数据库
+    Private Function ConnectMSSQLServer() As Boolean
+        Dim sqlConTest As Data.SqlClient.SqlConnection ' 连接   
+        sqlConTest = New Data.SqlClient.SqlConnection
+        sqlConTest.ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        Try
+            sqlConTest.Open()
+            sqlConTest.Close()
+        Catch ex As Exception
+        Finally
+            bConnect = True
+        End Try
+#Disable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
+    End Function
+#Enable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
+#End Region
+End Module

Calculator-SYS-UPDATE/SQL_連線狀態模組2.vb

@@ -0,0 +1,68 @@
+Module SQL_連線狀態模組2
+#Region "——连接测试：避免等待时间过长——"
+    Dim bConnect As Boolean
+    Dim BgWorker1 As New System.ComponentModel.BackgroundWorker
+    Dim ServerIP As String
+    ''' <summary>
+    ''' 测试连接：True-连接成功，False-连接失败
+    ''' 参数[必选]：服务器IP
+    ''' 参数[可选]：等待超时时间（秒）,默认为1.2秒
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Function ConnectTest2(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 1.5) As Boolean
+        AddHandler BgWorker1.DoWork, AddressOf BgWorker1_DoWork
+        Dim g As Integer
+        Dim k As Integer
+        If BgWorker1.CancellationPending Then
+            BgWorker1.CancelAsync()
+            '取消BackgroundWorker執行中的工作
+        End If
+        Try
+            If varServerIP = "" Then
+                Exit Function
+            End If
+            ServerIP = varServerIP
+            If varTimeout <= 0 Then
+                varTimeout = 1.5
+            End If
+            k = Int(varTimeout * 10)
+            bConnect = False
+            BgWorker1.WorkerSupportsCancellation = True
+            BgWorker1.RunWorkerAsync()
+            For g = 1 To k '1.2s
+                Threading.Thread.Sleep(100)
+                If bConnect = True Then
+                    ConnectTest2 = True
+                    Exit Function
+                End If
+            Next
+            ConnectTest2 = False
+            BgWorker1.CancelAsync()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+#Disable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
+    End Function
+#Enable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
+    '--异步动作
+    Private Sub BgWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        Call ConnectMSSQLServer()
+    End Sub
+    '--连接数据库
+    Private Function ConnectMSSQLServer() As Boolean
+        Dim sqlConTest As Data.SqlClient.SqlConnection ' 连接   
+        sqlConTest = New Data.SqlClient.SqlConnection
+        sqlConTest.ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        Try
+            sqlConTest.Open()
+            sqlConTest.Close()
+        Catch ex As Exception
+        Finally
+            bConnect = True
+        End Try
+#Disable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
+    End Function
+#Enable Warning BC42353 ' 函式在所有程式碼路徑上皆不會傳回值
+#End Region
+End Module

Calculator-SYS-UPDATE/bin/Debug/Calculator-SYS-UPDATE.exe.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

Calculator-SYS-UPDATE/bin/Debug/Calculator-SYS-UPDATE.xml

@@ -0,0 +1,44 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+Calculator-SYS-UPDATE
+</name>
+</assembly>
+<members>
+<member name="T:Calculator_SYS_UPDATE.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:Calculator_SYS_UPDATE.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:Calculator_SYS_UPDATE.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+<member name="M:Calculator_SYS_UPDATE.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:Calculator_SYS_UPDATE.SQL_連線狀態模組2.ConnectTest2(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+</members>
+</doc>

Calculator-SYS-UPDATE/obj/Debug/.NETFramework,Version=v4.8.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.8", FrameworkDisplayName:=".NET Framework 4.8")>

Calculator-SYS-UPDATE/obj/Debug/Calculator-SYS-UPDATE.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+894a38499784c3ebea9f2be08f35c389a9ab3052

Calculator-SYS-UPDATE/obj/Debug/Calculator-SYS-UPDATE.vbproj.FileListAbsolute.txt

@@ -0,0 +1,13 @@
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\bin\Debug\Calculator-SYS-UPDATE.exe.config
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\bin\Debug\Calculator-SYS-UPDATE.exe
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\bin\Debug\Calculator-SYS-UPDATE.pdb
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\bin\Debug\Calculator-SYS-UPDATE.xml
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\obj\Debug\Calculator-SYS-UPDATE.vbproj.AssemblyReference.cache
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\obj\Debug\Calculator-SYS-UPDATE.vbproj.SuggestedBindingRedirects.cache
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\obj\Debug\Calculator_SYS_UPDATE.C_SYS_UPDATE.resources
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\obj\Debug\Calculator_SYS_UPDATE.Resources.resources
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\obj\Debug\Calculator-SYS-UPDATE.vbproj.GenerateResource.cache
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\obj\Debug\Calculator-SYS-UPDATE.vbproj.CoreCompileInputs.cache
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\obj\Debug\Calculator-SYS-UPDATE.exe
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\obj\Debug\Calculator-SYS-UPDATE.xml
+D:\工巧明\HX-PGS\Calculator-SYS-UPDATE\Calculator-SYS-UPDATE\obj\Debug\Calculator-SYS-UPDATE.pdb

Calculator-SYS-UPDATE/obj/Debug/Calculator-SYS-UPDATE.xml

@@ -0,0 +1,44 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+Calculator-SYS-UPDATE
+</name>
+</assembly>
+<members>
+<member name="T:Calculator_SYS_UPDATE.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:Calculator_SYS_UPDATE.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:Calculator_SYS_UPDATE.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+<member name="M:Calculator_SYS_UPDATE.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:Calculator_SYS_UPDATE.SQL_連線狀態模組2.ConnectTest2(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+</members>
+</doc>

Calculator-SYS-UPDATE/全域變數.vb

@@ -0,0 +1,19 @@
+Module 全域變數
+    Public 登入人IP As String : Public AA(99) As String
+    Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
+    Friend Sub SQL_連線字串_測試()
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+    End Sub
+    Friend Sub SQL_連線字串_正式()
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+    End Sub
+    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
+    Public Class MyModule1
+        Friend Shared Sub 進度條()
+            平均數 = 10000 / 資料數
+            最終數 += 平均數
+            If 最終數 > 10000 Then : 最終數 = 10000 : End If
+            C_SYS_UPDATE.ProgressBar1.Value = 最終數
+        End Sub
+    End Class
+End Module