20240609備份

.vs/FTP-DGAC-SYS/v17/DocumentLayout.json

+{
+  "Version": 1,
+  "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\",
+  "Documents": [
+    {
+      "AbsoluteMoniker": "D:0:0:{41BA1A26-BAFE-43DA-886C-132DC14A8B99}|FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ftp-dgac\\ftp-dgac-sys\\ftp-dgac-sys\\ftp-dgac-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{41BA1A26-BAFE-43DA-886C-132DC14A8B99}|FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj|solutionrelative:ftp-dgac-sys\\ftp-dgac-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{41BA1A26-BAFE-43DA-886C-132DC14A8B99}|FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\ftp-dgac-sys\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{41BA1A26-BAFE-43DA-886C-132DC14A8B99}|FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj|solutionrelative:ftp-dgac-sys\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{00000000-0000-0000-0000-000000000000}|\u003CSolution\u003E|FTP-DGAC-SYS||{04B8AB82-A572-4FEF-95CE-5222444B6B64}|"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{41BA1A26-BAFE-43DA-886C-132DC14A8B99}|FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\ftp-dgac-sys\\ftp-dgac-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{41BA1A26-BAFE-43DA-886C-132DC14A8B99}|FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj|solutionrelative:ftp-dgac-sys\\ftp-dgac-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{41BA1A26-BAFE-43DA-886C-132DC14A8B99}|FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\ftp-dgac-sys\\app.manifest||{FA3CD31E-987B-443A-9B81-186104E8DAC1}",
+      "RelativeMoniker": "D:0:0:{41BA1A26-BAFE-43DA-886C-132DC14A8B99}|FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj|solutionrelative:ftp-dgac-sys\\app.manifest||{FA3CD31E-987B-443A-9B81-186104E8DAC1}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{41BA1A26-BAFE-43DA-886C-132DC14A8B99}|FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ftp-dgac\\ftp-dgac-sys\\ftp-dgac-sys\\||{B270807C-D8C6-49EB-8EBE-8E8D566637A1}|8998e48e-b89a-4034-b66e-353d8c1fdc2e"
+    }
+  ],
+  "DocumentGroupContainers": [
+    {
+      "Orientation": 0,
+      "VerticalTabListWidth": 256,
+      "DocumentGroups": [
+        {
+          "DockedWidth": 200,
+          "SelectedChildIndex": 4,
+          "Children": [
+            {
+              "$type": "Bookmark",
+              "Name": "ST:0:0:{004be353-6879-467c-9d1e-9ac23cdf6d49}"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 1,
+              "Title": "SQL_Module.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\SQL_Module.vb",
+              "RelativeDocumentMoniker": "FTP-DGAC-SYS\\SQL_Module.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\SQL_Module.vb",
+              "RelativeToolTip": "FTP-DGAC-SYS\\SQL_Module.vb",
+              "ViewState": "AQIAAAIAAAAAAAAAAAAgwBUAAAAEAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-26T02:38:16.387Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 4,
+              "Title": "app.manifest",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\app.manifest",
+              "RelativeDocumentMoniker": "FTP-DGAC-SYS\\app.manifest",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\app.manifest",
+              "RelativeToolTip": "FTP-DGAC-SYS\\app.manifest",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAABIAAAA8AAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.001203|",
+              "WhenOpened": "2023-02-18T08:52:37.753Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 2,
+              "Title": "FTP-DGAC-SYS",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj",
+              "RelativeDocumentMoniker": "FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj",
+              "RelativeToolTip": "FTP-DGAC-SYS\\FTP-DGAC-SYS.vbproj",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.001001|",
+              "WhenOpened": "2023-02-18T03:36:55.506Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 0,
+              "Title": "FTP-DGAC-SYS.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\FTP-DGAC-SYS.vb",
+              "RelativeDocumentMoniker": "FTP-DGAC-SYS\\FTP-DGAC-SYS.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\FTP-DGAC-SYS.vb",
+              "RelativeToolTip": "FTP-DGAC-SYS\\FTP-DGAC-SYS.vb",
+              "ViewState": "AQIAAGQAAAAAAAAAAAAgwHcAAAAYAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2023-02-18T03:33:17.733Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 3,
+              "Title": "FTP-DGAC-SYS.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\FTP-DGAC-SYS.vb",
+              "RelativeDocumentMoniker": "FTP-DGAC-SYS\\FTP-DGAC-SYS.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\FTP-DGAC\\FTP-DGAC-SYS\\FTP-DGAC-SYS\\FTP-DGAC-SYS.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "FTP-DGAC-SYS\\FTP-DGAC-SYS.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2023-02-18T03:28:51.885Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            }
+          ]
+        }
+      ]
+    }
+  ]
+}

FTP-DGAC-SYS/FTP-DGAC-SYS.Designer.vb

         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FTP_DGAC_SYS))
         Me.捷徑_dgv = New System.Windows.Forms.DataGridView()
         Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.通知_lb = New System.Windows.Forms.Label()
         Me.自動運行 = New System.Windows.Forms.Timer(Me.components)
         Me.停頓1 = New System.Windows.Forms.Timer(Me.components)
+        Me.計算分流3 = New System.Windows.Forms.Timer(Me.components)
+        Me.清單1_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.捷徑_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.剔除清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.計數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '捷徑_dgv
         '
-        Me.捷徑_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.捷徑_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.捷徑_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.捷徑_dgv.BackgroundColor = System.Drawing.Color.White
         Me.捷徑_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.捷徑_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
         Me.捷徑_dgv.RowHeadersWidth = 5
         Me.捷徑_dgv.RowTemplate.Height = 24
-        Me.捷徑_dgv.Size = New System.Drawing.Size(458, 299)
+        Me.捷徑_dgv.Size = New System.Drawing.Size(458, 425)
         Me.捷徑_dgv.TabIndex = 664
         '
         'Column2
         '
         'FTP主要位置_tb
         '
-        Me.FTP主要位置_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.FTP主要位置_tb.Location = New System.Drawing.Point(85, 3)
         Me.FTP主要位置_tb.Name = "FTP主要位置_tb"
         Me.FTP主要位置_tb.Size = New System.Drawing.Size(276, 23)
         'Panel1
         '
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.清單1_dgv)
         Me.Panel1.Controls.Add(Me.剔除清單_cb)
         Me.Panel1.Controls.Add(Me.路徑暫存1_cb)
         Me.Panel1.Controls.Add(Me.路徑暫存6_cb)
         Me.Panel1.Controls.Add(Me.路徑暫存5_cb)
         Me.Panel1.Controls.Add(Me.路徑暫存3_cb)
         Me.Panel1.Controls.Add(Me.路徑暫存4_cb)
-        Me.Panel1.Location = New System.Drawing.Point(161, 107)
+        Me.Panel1.Location = New System.Drawing.Point(161, 38)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(146, 198)
+        Me.Panel1.Size = New System.Drawing.Size(146, 258)
         Me.Panel1.TabIndex = 673
         '
         '剔除清單_cb
         '
         '讀取料夾路徑_bt
         '
-        Me.讀取料夾路徑_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.讀取料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.讀取料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
         Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(367, 2)
         '
         '剔除清單_dgv
         '
-        Me.剔除清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.剔除清單_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.剔除清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.剔除清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.剔除清單_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.White
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.剔除清單_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
-        Me.剔除清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.剔除清單_dgv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.White
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.剔除清單_dgv.DefaultCellStyle = DataGridViewCellStyle5
-        Me.剔除清單_dgv.GridColor = System.Drawing.Color.LightGray
-        Me.剔除清單_dgv.Location = New System.Drawing.Point(6, 328)
-        Me.剔除清單_dgv.Margin = New System.Windows.Forms.Padding(4)
-        Me.剔除清單_dgv.Name = "剔除清單_dgv"
         DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle6.BackColor = System.Drawing.Color.White
         DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
         DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.剔除清單_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.剔除清單_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.剔除清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.剔除清單_dgv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.剔除清單_dgv.DefaultCellStyle = DataGridViewCellStyle7
+        Me.剔除清單_dgv.GridColor = System.Drawing.Color.LightGray
+        Me.剔除清單_dgv.Location = New System.Drawing.Point(6, 454)
+        Me.剔除清單_dgv.Margin = New System.Windows.Forms.Padding(4)
+        Me.剔除清單_dgv.Name = "剔除清單_dgv"
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.剔除清單_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
         Me.剔除清單_dgv.RowHeadersWidth = 5
         Me.剔除清單_dgv.RowTemplate.Height = 24
         Me.剔除清單_dgv.Size = New System.Drawing.Size(316, 113)
         Me.加入剔除檔案_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.加入剔除檔案_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.加入剔除檔案_bt.ForeColor = System.Drawing.Color.Blue
-        Me.加入剔除檔案_bt.Location = New System.Drawing.Point(325, 329)
+        Me.加入剔除檔案_bt.Location = New System.Drawing.Point(325, 455)
         Me.加入剔除檔案_bt.Name = "加入剔除檔案_bt"
         Me.加入剔除檔案_bt.Size = New System.Drawing.Size(139, 38)
         Me.加入剔除檔案_bt.TabIndex = 676
         Me.刪除剔除檔案_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.刪除剔除檔案_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.刪除剔除檔案_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除剔除檔案_bt.Location = New System.Drawing.Point(325, 367)
+        Me.刪除剔除檔案_bt.Location = New System.Drawing.Point(325, 493)
         Me.刪除剔除檔案_bt.Name = "刪除剔除檔案_bt"
         Me.刪除剔除檔案_bt.Size = New System.Drawing.Size(139, 38)
         Me.刪除剔除檔案_bt.TabIndex = 677
         Me.運行自動刪除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.運行自動刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.運行自動刪除_bt.ForeColor = System.Drawing.Color.Green
-        Me.運行自動刪除_bt.Location = New System.Drawing.Point(325, 432)
+        Me.運行自動刪除_bt.Location = New System.Drawing.Point(325, 558)
         Me.運行自動刪除_bt.Name = "運行自動刪除_bt"
         Me.運行自動刪除_bt.Size = New System.Drawing.Size(139, 38)
         Me.運行自動刪除_bt.TabIndex = 678
         '
         '自動循環_ch
         '
+        Me.自動循環_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.自動循環_ch.AutoSize = True
-        Me.自動循環_ch.Location = New System.Drawing.Point(329, 411)
+        Me.自動循環_ch.Location = New System.Drawing.Point(329, 537)
         Me.自動循環_ch.Name = "自動循環_ch"
         Me.自動循環_ch.Size = New System.Drawing.Size(129, 20)
         Me.自動循環_ch.TabIndex = 679
         '
         'Label2
         '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label2.AutoSize = True
         Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label2.Location = New System.Drawing.Point(10, 447)
+        Me.Label2.Location = New System.Drawing.Point(10, 573)
         Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(139, 16)
         '
         '計數_nud
         '
+        Me.計數_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.計數_nud.Enabled = False
-        Me.計數_nud.Location = New System.Drawing.Point(156, 444)
+        Me.計數_nud.Location = New System.Drawing.Point(156, 570)
         Me.計數_nud.Maximum = New Decimal(New Integer() {1000000000, 0, 0, 0})
         Me.計數_nud.Name = "計數_nud"
         Me.計數_nud.Size = New System.Drawing.Size(90, 23)
         '
         '計數歸零_bt
         '
-        Me.計數歸零_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.計數歸零_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.計數歸零_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.計數歸零_bt.ForeColor = System.Drawing.Color.Blue
-        Me.計數歸零_bt.Location = New System.Drawing.Point(252, 443)
+        Me.計數歸零_bt.Location = New System.Drawing.Point(252, 569)
         Me.計數歸零_bt.Name = "計數歸零_bt"
         Me.計數歸零_bt.Size = New System.Drawing.Size(69, 24)
         Me.計數歸零_bt.TabIndex = 682
         '
         'Label3
         '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(2, 457)
+        Me.Label3.Location = New System.Drawing.Point(2, 583)
         Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(467, 16)
         '
         '通知_lb
         '
+        Me.通知_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.通知_lb.AutoEllipsis = True
         Me.通知_lb.ForeColor = System.Drawing.Color.Red
-        Me.通知_lb.Location = New System.Drawing.Point(5, 474)
+        Me.通知_lb.Location = New System.Drawing.Point(5, 597)
         Me.通知_lb.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.通知_lb.Name = "通知_lb"
         Me.通知_lb.Size = New System.Drawing.Size(464, 22)
         '
         Me.停頓1.Interval = 1200
         '
+        '計算分流3
+        '
+        Me.計算分流3.Interval = 300000
+        '
+        '清單1_dgv
+        '
+        Me.清單1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.清單1_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        Me.清單1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.清單1_dgv.Location = New System.Drawing.Point(3, 184)
+        Me.清單1_dgv.Name = "清單1_dgv"
+        Me.清單1_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.清單1_dgv.RowTemplate.Height = 24
+        Me.清單1_dgv.Size = New System.Drawing.Size(137, 67)
+        Me.清單1_dgv.TabIndex = 1882
+        '
         'FTP_DGAC_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(469, 496)
+        Me.ClientSize = New System.Drawing.Size(468, 619)
         Me.Controls.Add(Me.通知_lb)
         Me.Controls.Add(Me.計數歸零_bt)
         Me.Controls.Add(Me.計數_nud)
         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.MaximizeBox = False
+        Me.MinimizeBox = False
         Me.Name = "FTP_DGAC_SYS"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "FTP-DGAC-SYS"
         Me.Panel1.ResumeLayout(False)
         CType(Me.剔除清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.計數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents 通知_lb As Label
     Friend WithEvents 自動運行 As Timer
     Friend WithEvents 停頓1 As Timer
+    Friend WithEvents 計算分流3 As Timer
+    Friend WithEvents 清單1_dgv As DataGridView
 End Class

FTP-DGAC-SYS/FTP-DGAC-SYS.resx

   <metadata name="停頓1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>632, 8</value>
   </metadata>
+  <metadata name="計算分流3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>717, 8</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>

FTP-DGAC-SYS/FTP-DGAC-SYS.vb

 Imports System.IO
+Imports System.Net.NetworkInformation
+Imports System.Net.Sockets
 Imports System.Text
 Public Class FTP_DGAC_SYS
     Dim FTP位置, file_name, strDirName As String
         剔除清單_dgv.Columns(0).ReadOnly = True
     End Sub
     Private Sub FTP_DGAC_SYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        SQL_連線字串_國外() : Dim ds1 As New DataSet
+        清單1_dgv.DataSource = Nothing : ds1.Clear()
+        清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        清單1_dgv.ColumnHeadersHeight = 25 : 清單1_dgv.AllowUserToAddRows = False : 清單1_dgv.RowTemplate.Height = 35
+        SQL_伺服器檢測()
+        da.Fill(ds1) : 清單1_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For I As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 清單1_dgv.Rows(I).Cells("次數").Value = "0" : Next
         '--------------自動循環---------------------------------------------------------------------
         If File.Exists(Strs & "\OPAUTO.CSV") Then : 自動循環_ch.Checked = True : Else : 自動循環_ch.Checked = False : End If
         '--------------類計數量---------------------------------------------------------------------
             Else
                 MsgBox("請先選擇資料夾路徑!!")
             End If
-        End If
+        End If : 確定LINE伺服器開通() : 伺服器上線檢測開始() : 計算分流3.Enabled = True
     End Sub
     Private Sub FTP_DGAC_SYS_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
         If File.Exists(Strs & "\DLNUD.CSV") Then : File.Delete(Strs & "\DLNUD.CSV") : End If
         If 自動循環_ch.Checked = True Then : 運行自動刪除() : 自動運行.Enabled = True : End If
         停頓1.Enabled = False
     End Sub
+    Dim 伺服器是否正常 As Boolean
+    Private Sub 計算分流3_Tick(sender As Object, e As EventArgs) Handles 計算分流3.Tick
+        If 伺服器是否正常 = True Then : 確定LINE伺服器開通() : 伺服器上線檢測開始() : Else : 計算分流3.Enabled = False : End If
+    End Sub
+    Private Sub 確定LINE伺服器開通()
+        Dim ip As String = "106.1.49.218"
+        Dim ports As String() = "2433".Split(","c)
+        For Each portStr As String In ports : Dim port As Integer
+            If Integer.TryParse(portStr.Trim(), port) Then
+                Dim isPortOpen As Boolean = CheckPort(ip, port) : Dim result As String
+                If isPortOpen = True Then : result = "LINE 訊息通知伺服器 正常" : Else : result = "LINE 訊息通知伺服器 異常" : End If
+                If result = "LINE 訊息通知伺服器 正常" Then : 伺服器是否正常 = True : Else : 伺服器是否正常 = False : End If
+            Else : 伺服器是否正常 = False : End If
+        Next
+    End Sub
+    Private Sub 伺服器上線檢測開始()
+        If 伺服器是否正常 = True Then
+            Dim 伺服器 As String
+            If File.Exists(Str + "\SERVERNAME.CSV") Then
+                Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\SERVERNAME.CSV", System.Text.Encoding.Default)
+                Dim Text As String = "" : Dim line As String = filereader.ReadLine()
+                While Not (line Is Nothing) : Text = Text & line : line = filereader.ReadLine() : End While : filereader.Close()
+                伺服器 = Text
+            Else
+                伺服器 = ""
+            End If
+            For i As Integer = 0 To 清單1_dgv.Rows.Count - 1
+                If 清單1_dgv.Rows(i).Cells("模式").Value.ToString <> "" Then
+                    Try
+                        IP位置 = 清單1_dgv.Rows(i).Cells("IP").Value.ToString & "," & 清單1_dgv.Rows(i).Cells("端口").Value.ToString
+                        模式 = 清單1_dgv.Rows(i).Cells("模式").Value.ToString
+                        SQL_連線字串_檢測()
+                        ConnOpen_檢測() : SQL1 = "SELECT  確認  FROM  確認表" : CmdSet_For_dr()
+                        If dr.Read Then
+                            清單1_dgv.Rows(i).Cells("次數").Value = "0"
+                        Else
+                            清單1_dgv.Rows(i).Cells("次數").Value = "0"
+                        End If
+                    Catch ex As Exception
+                        清單1_dgv.Rows(i).Cells("次數").Value = CInt(清單1_dgv.Rows(i).Cells("次數").Value) + 1
+                        If CInt(清單1_dgv.Rows(i).Cells("次數").Value.ToString) > 2 Then
+                            LIN訊息通知("CC259", "李協叡", 伺服器 & "]、[" & 清單1_dgv.Rows(i).Cells("名稱").Value.ToString, "連線異常")
+                            LIN訊息通知("CC259", "王詩文", 伺服器 & "]、[" & 清單1_dgv.Rows(i).Cells("名稱").Value.ToString, "連線異常")
+                            LIN訊息通知("CC259", "蘇秀虹", 伺服器 & "]、[" & 清單1_dgv.Rows(i).Cells("名稱").Value.ToString, "連線異常")
+                        End If
+                    End Try
+                End If
+            Next
+        Else : 計算分流3.Enabled = False : End If
+    End Sub
+    Private Function CheckPort(host As String, port As Integer) As Boolean
+        Try
+            Using client As New TcpClient()
+                Dim result = client.BeginConnect(host, port, Nothing, Nothing)
+                Dim success = result.AsyncWaitHandle.WaitOne(TimeSpan.FromSeconds(3))
+                If success Then : client.EndConnect(result) : Return True : End If
+            End Using
+        Catch ex As Exception
+        End Try : Return False
+    End Function
     Private Sub 計算分流1_Tick(sender As Object, e As EventArgs) Handles 計算分流1.Tick
         計算分流1.Enabled = False
         If File.Exists(Str + "\FTPLINE.CSV") Then
         Next
     End Sub
     Private Sub 剔除清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 剔除清單_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            位置1 = e.RowIndex
-        End If
+        If e.RowIndex = -1 Then : Else : 位置1 = e.RowIndex : End If
     End Sub
     Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
         If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
                         sw.Flush()
                     End Using
                 End Using
-            Catch ex As Exception
-            End Try
-            計算分流1.Enabled = True
-        Else
-            MsgBox("請先選擇資料夾路徑!!")
-        End If
+            Catch ex As Exception : End Try : 計算分流1.Enabled = True
+        Else : MsgBox("請先選擇資料夾路徑!!") : End If
     End Sub
     Private Sub 加入剔除檔案_bt_Click(sender As Object, e As EventArgs) Handles 加入剔除檔案_bt.Click
         If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
         If file_name <> "" Then
             剔除清單_dgv.Rows.Insert(0) : 剔除清單_dgv.Rows(0).Cells(0).Value = file_name
             Dim SELE As Boolean = False
-            If 剔除清單_dgv.Rows.Count - 1 > 0 Then
-                SELE = True
-            End If
-            If SELE = True Then
-                剔除檔案存檔()
-            End If
+            If 剔除清單_dgv.Rows.Count - 1 > 0 Then : SELE = True : End If
+            If SELE = True Then : 剔除檔案存檔() : End If
         Else : End If
     End Sub
     Private Sub 刪除剔除檔案_bt_Click(sender As Object, e As EventArgs) Handles 刪除剔除檔案_bt.Click
         If 位置1 <> -1 And 位置1 > 剔除清單_dgv.Rows.Count Then : MsgBox("沒有選擇剃除檔案!!")
-        Else : 剔除清單_dgv.Rows.Insert(位置1) : 位置1 = -1
-            剔除檔案存檔()
-        End If
+        Else : 剔除清單_dgv.Rows.Insert(位置1) : 位置1 = -1 : 剔除檔案存檔() : End If
     End Sub
     Private Sub 剔除檔案存檔()
         If File.Exists(Strs & "\FTPDELETE.CSV") Then : File.Delete(Strs & "\FTPDELETE.CSV") : End If
         End Try ': 計算分流2.Enabled = True
     End Sub
     Private Sub 自動循環_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 自動循環_ch.Click
-
         If 自動循環_ch.Checked = False Then
             If File.Exists(Strs & "\OPAUTO.CSV") Then : File.Delete(Strs & "\OPAUTO.CSV") : End If
         Else
                         str = "******************" : sw.WriteLine(str) : sw.Flush()
                     End Using
                 End Using
-            Catch ex As Exception
-            End Try
+            Catch ex As Exception : End Try
         End If
     End Sub
     Private Sub 運行自動刪除()
                         File.Delete(捷徑_dgv.Rows(i).Cells(0).Value.ToString & "\" & 剔除清單_dgv.Rows(ii).Cells(0).Value.ToString) : 刪除數 += 1
                     End If
                 Next
-            Next
-            計數_nud.Value += 刪除數
-        Else
-            MsgBox("系統基礎設定尚未完成!!")
-        End If
+            Next : 計數_nud.Value += 刪除數
+        Else : MsgBox("系統基礎設定尚未完成!!") : End If
         If 自動循環_ch.Checked = True Then
             通知_lb.Text = "☆☆☆☆☆☆☆☆☆☆   已自動運行   ☆☆☆☆☆☆☆☆☆☆" : 通知_lb.ForeColor = Color.Green
         Else
         End If
     End Sub
     Private Sub 運行自動刪除_bt_Click(sender As Object, e As EventArgs) Handles 運行自動刪除_bt.Click
-        If 自動循環_ch.Checked = True Then
-            運行自動刪除() : 自動運行.Enabled = True
-        Else
-            運行自動刪除() : MsgBox("可疑檔案刪除完成!!")
-        End If
+        If 自動循環_ch.Checked = True Then : 運行自動刪除() : 自動運行.Enabled = True : Else : 運行自動刪除() : MsgBox("可疑檔案刪除完成!!") : End If
+        確定LINE伺服器開通() : 伺服器上線檢測開始() : 計算分流3.Enabled = True
     End Sub
     Private Sub 計數歸零_bt_Click(sender As Object, e As EventArgs) Handles 計數歸零_bt.Click
         計數_nud.Value = 0

FTP-DGAC-SYS/FTP-DGAC-SYS.vbproj

       <DependentUpon>FTP-DGAC-SYS.vb</DependentUpon>
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="LINE_使用者管理表.Designer.vb">
+      <DependentUpon>LINE_使用者管理表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="LINE_使用者管理表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="SQL_LINE.vb" />
+    <Compile Include="SQL_Module.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="FTP-DGAC-SYS.resx">
       <DependentUpon>FTP-DGAC-SYS.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="LINE_使用者管理表.resx">
+      <DependentUpon>LINE_使用者管理表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>

FTP-DGAC-SYS/LINE_使用者管理表.resx

+<?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>
+</root>

FTP-DGAC-SYS/LINE_使用者管理表.vb

+Public Class LINE_使用者管理表
+
+End Class

FTP-DGAC-SYS/SQL_LINE.vb

+Module SQL_LINE
+    '---------------LINE中控-----------------------
+    '------LINE變數-------
+    Public 發送對象, LINE_權限代號, PA201, PA202, PA203, PA204, PA205, 通知變數X, 通知變數Y As String
+    Public LINE_公司名稱 As String = "HS"
+    Public ConStringLINE As String
+    Public LINE_權限數量 As Integer = 61
+    Public linecc(61) As Boolean
+    Public LINE_系統權限 As String = "CC200,CC201,CC202,CC203,CC204,CC205,CC206,CC207,CC208,CC209,CC210,CC211,CC212,CC213,CC214,CC215,CC216,CC217,
+                                            CC218,CC219,CC220,CC221,CC222,CC223,CC224,CC225,CC226,CC227,CC228,CC229,CC230,CC231,CC232,CC233,CC234,CC235,CC236,CC237,
+                                            CC238,CC239,CC240,CC241,CC242,CC243,CC244,CC245,CC246,CC247,CC248,CC249,CC250,CC251,CC252,CC253,CC254,CC255,CC256,CC257,
+                                            CC258,CC259,CC260"
+    Public LINE_登入權限 As String = "姓名, 帳號 AS 公司名稱,token,通知語言,電話號碼1,電話號碼2,電話號碼3,Line,WhatsApp,Message," & LINE_系統權限
+    Public LINE_登入權限_IN As String = "姓名, 帳號 ,token,通知語言,電話號碼1,電話號碼2,電話號碼3,Line,WhatsApp,Message," & LINE_系統權限
+    Public LINE_登入權限2 As String = "使用者權限管理表_1.姓名, 使用者權限管理表_1.帳號, 使用者權限管理表.token, 使用者權限管理表.通知語言, 使用者權限管理表.電話號碼1, 
+                                       使用者權限管理表.電話號碼2, 使用者權限管理表.電話號碼3, 使用者權限管理表.Line, 使用者權限管理表.WhatsApp, 使用者權限管理表.Message," & LINE_系統權限
+    Friend Sub SQL_連線字串_測試_LINE_SQL()
+        ConStringLINE = "Data Source=106.1.49.218,2433;Initial Catalog=GCM-SCADA;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
+    End Sub
+    Friend Sub ConnOpen_LINE_SQL()
+        SQL_連線字串_測試_LINE_SQL()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConStringLINE : conn.Open() : End If
+    End Sub
+    Public Sub LIN訊息通知(ByVal 代號 As String, ByVal 對象 As String, Optional ByVal 變數X As String = "", Optional ByVal 變數Y As String = "")
+        LINE_權限代號 = 代號 : 發送對象 = 對象 : 通知變數X = 變數X : 通知變數Y = 變數Y : LINE_通知模塊()
+    End Sub
+    '=====LINE_權限代號 = "CC207" : 發送對象 = "tltony1234" : 通知變數X = "王詩文" : 通知變數Y = "9/7號" : LINE_通知模塊()=====
+    Friend Sub SQL_系統使用者_清單()
+        ConnOpen()
+        SQL1 = "SELECT   姓名 FROM    使用者權限管理表   ORDER BY   姓名"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE使用者_清單()
+        ConnOpen_LINE_SQL()
+        SQL1 = "SELECT   " & LINE_登入權限 & "  FROM LINE_使用者權限管理表 WHERE 帳號 LIKE N'" & LINE_公司名稱 & "'  ORDER BY  姓名"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE權限一覽_dgv_清單()
+        ConnOpen_LINE_SQL()
+        SQL1 = "SELECT   權限代號, 權限名稱  FROM LINE_權限一覽表 WHERE (權限名稱 LIKE N'WS%') OR (權限名稱 LIKE N'GCM%') ORDER BY 權限代號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE_新增使用者資料()
+        ConnOpen_LINE_SQL()
+        SQL1 = "INSERT INTO LINE_使用者權限管理表 (" & LINE_登入權限_IN & ") 
+                VALUES (N'" & LINE_使用者管理表.姓名_tb.Text & "', N'" & LINE_公司名稱 & "', N'" & LINE_使用者管理表.token_tb.Text &
+                "',N'" & LINE_使用者管理表.通知語言_cb.Text & "',N'" & LINE_使用者管理表.電話號碼1_tb.Text & "',N'" & LINE_使用者管理表.電話號碼2_tb.Text &
+                "',N'" & LINE_使用者管理表.電話號碼3_tb.Text & "',N'" & LINE_使用者管理表.Line_cb.Checked & "',N'" & LINE_使用者管理表.WhatsApp_cb.Checked &
+                "',N'" & LINE_使用者管理表.Message_cb.Checked &
+                "','" & linecc(0) & "','" & linecc(1) & "','" & linecc(2) & "','" & linecc(3) & "','" & linecc(4) & "','" & linecc(5) & "','" & linecc(6) & "','" & linecc(7) & "','" & linecc(8) &
+                "','" & linecc(9) & "','" & linecc(10) & "','" & linecc(11) & "','" & linecc(12) & "','" & linecc(13) & "','" & linecc(14) & "','" & linecc(15) & "','" & linecc(16) &
+                "','" & linecc(17) & "','" & linecc(18) & "','" & linecc(19) & "','" & linecc(20) & "','" & linecc(21) & "','" & linecc(22) & "','" & linecc(23) & "','" & linecc(24) &
+                "','" & linecc(25) & "','" & linecc(26) & "','" & linecc(27) & "','" & linecc(28) & "','" & linecc(29) & "','" & linecc(30) & "','" & linecc(31) & "','" & linecc(32) &
+                "','" & linecc(33) & "','" & linecc(34) & "','" & linecc(35) & "','" & linecc(36) & "','" & linecc(37) & "','" & linecc(38) & "','" & linecc(39) & "','" & linecc(40) &
+                "','" & linecc(41) & "','" & linecc(42) & "','" & linecc(43) & "','" & linecc(44) & "','" & linecc(45) & "','" & linecc(46) & "','" & linecc(47) & "','" & linecc(48) &
+                "','" & linecc(49) & "','" & linecc(50) & "','" & linecc(51) & "','" & linecc(52) & "','" & linecc(53) & "','" & linecc(54) & "','" & linecc(55) & "','" & linecc(56) &
+                "','" & linecc(57) & "','" & linecc(58) & "','" & linecc(59) & "','" & linecc(60) & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_LINE_搜尋符合通知對象()
+        ConnOpen_LINE_SQL()
+        SQL1 = "SELECT  token,通知語言,電話號碼1,電話號碼2,電話號碼3,Line,WhatsApp,Message  FROM LINE_使用者權限管理表 WHERE(" & LINE_權限代號 & "='True' and 姓名 LIKE N'" & 發送對象 & "' and (帳號 LIKE N'" & LINE_公司名稱 & "'  OR  帳號 LIKE N'GCM' )    )"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE_通知內容()
+        ConnOpen_LINE_SQL()
+        SQL1 = "SELECT  通知格式,變數位置,通知內容1,通知內容2,通知內容3  FROM LINE_通知內容設定表 WHERE (權限代號 LIKE N'" & LINE_權限代號 & "')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_LINE_新增發送通知()
+        ConnOpen_LINE_SQL()
+        SQL1 = "INSERT INTO LINE_通知設定表 (token,發送內容,隨機碼,通知語言,發送APP) VALUES (N'" & PA201 & "',N'" & PA202 & "',N'" & PA203 & "',N'" & PA204 & "',N'" & PA205 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Function SQL_LINE_隨機碼()
+        Dim rancode As String
+        Dim RndNum As New Random()
+        rancode = Str(Date.Now.Year).Trim().PadLeft(4, "0") + Str(Date.Now.Month).Trim().PadLeft(2, "0") + Str(Date.Now.Day).Trim().PadLeft(2, "0") + Str(Date.Now.Hour).Trim().PadLeft(2, "0") + Str(Date.Now.Minute).Trim().PadLeft(2, "0") + Str(Date.Now.Second).Trim().PadLeft(2, "0") + Str(RndNum.Next(1000)).Trim().PadLeft(4, "0")
+        Return rancode
+    End Function
+    Friend Sub LINE_通知模塊()
+        Dim ds5, ds6 As New DataSet : ds5.Clear() : ds6.Clear()
+        Dim 通知格式, 變數位置, 通知內容1, 通知內容2, 通知內容3, 發送X, 發送Y As String
+        Dim L, M, W As Boolean
+        SQL_LINE_搜尋符合通知對象()
+        da.Fill(ds5) : LINE_使用者管理表.LINE_需通知清單_dgv.DataSource = ds5.Tables(0) : conn.Close()
+        If 通知變數X = "" Then : 發送X = "未設定通知變數X" : Else : 發送X = 通知變數X : End If
+        If 通知變數Y = "" Then : 發送Y = "未設定通知變數Y" : Else : 發送Y = 通知變數Y : End If
+        For x As Integer = 0 To LINE_使用者管理表.LINE_需通知清單_dgv.Rows.Count - 1
+            L = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("Line").Value
+            W = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("WhatsApp").Value
+            M = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells("Message").Value
+            SQL_LINE_通知內容() : da.Fill(ds6) : LINE_使用者管理表.LINE_通知內容清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
+            If LINE_使用者管理表.LINE_需通知清單_dgv.Rows.Count = 0 Then : Else
+                通知格式 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(0).Value
+                變數位置 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(1).Value
+                通知內容1 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(2).Value
+                通知內容2 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(3).Value
+                通知內容3 = LINE_使用者管理表.LINE_通知內容清單_dgv.Rows(0).Cells(4).Value
+                If 變數位置 = "A" Then
+                    PA202 = 通知內容1
+                ElseIf 變數位置 = "X" Then
+                    PA202 = 發送X
+                ElseIf 變數位置 = "A+X" Then
+                    PA202 = 通知內容1 + 發送X
+                ElseIf 變數位置 = "X+A" Then
+                    PA202 = 發送X + 通知內容1
+                ElseIf 變數位置 = "X+A+Y" Then
+                    PA202 = 發送X + 通知內容1 + 發送Y
+                ElseIf 變數位置 = "A+X+B" Then
+                    PA202 = 通知內容1 + 發送X + 通知內容2
+                ElseIf 變數位置 = "X+A+Y+B" Then
+                    PA202 = 發送X + 通知內容1 + 發送Y + 通知內容2
+                ElseIf 變數位置 = "A+X+B+Y" Then
+                    PA202 = 通知內容1 + 發送X + 通知內容2 + 發送Y
+                ElseIf 變數位置 = "A+X+B+Y+C" Then
+                    PA202 = 通知內容1 + 發送X + 通知內容2 + 發送Y + 通知內容3
+                End If
+                PA204 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(1).Value
+                If L = True Then
+                    PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(0).Value.ToString : PA205 = "Line" : SQL_LINE_新增發送通知()
+                End If
+                If W = True Then
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString : PA205 = "WhatsApp" : SQL_LINE_新增發送通知()
+                    End If
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString : PA205 = "WhatsApp" : SQL_LINE_新增發送通知()
+                    End If
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString : PA205 = "WhatsApp" : SQL_LINE_新增發送通知()
+                    End If
+                End If
+                If M = True Then
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(2).Value.ToString : PA205 = "Message" : SQL_LINE_新增發送通知()
+                    End If
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(3).Value.ToString : PA205 = "Message" : SQL_LINE_新增發送通知()
+                    End If
+                    If LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString <> "" Then
+                        PA203 = LINE_公司名稱 & "-" & SQL_LINE_隨機碼() : PA201 = LINE_使用者管理表.LINE_需通知清單_dgv.Rows(x).Cells(4).Value.ToString : PA205 = "Message" : SQL_LINE_新增發送通知()
+                    End If
+                End If
+            End If
+        Next
+        ds5.Clear() : ds6.Clear() : 通知變數X = "" : 通知變數Y = ""
+    End Sub
+End Module
+

FTP-DGAC-SYS/SQL_Module.vb

+Imports System.Data.OleDb
+Imports System.Data.SqlClient
+Module SQL_Module
+    '---------------資料庫連線字串宣告--------------------------------------------------------------------------------------------------------------------------------------------------------
+    Public Access1 As New OleDbConnection : Public AccesCmd As OleDbCommand
+    Public Acdr As OleDbDataReader
+    Public ConString, ConString1, ConString2, ConString3, ConString4, IP位置, 模式 As String
+    Public AccessConString As String : Public SQL1, SQL2, SQL3, SQL4, SQL5, SQL6, SQL7, SQL8, SQL9, SQL10 As String
+    Public conn As New SqlConnection : Public cmd As New SqlCommand
+    Public dr As SqlDataReader : Public da As New SqlDataAdapter
+    Friend Sub SQL_連線字串_國外()
+        ConString = "Data Source=mssql-147629-0.cloudclusters.net,12711;Initial Catalog=GCM-IP-DATE02;Persist Security Info=True;User ID=GCMIP02;Password=F52dfgS5ZVD;Max pool size = 200;Connection Timeout=0"
+    End Sub
+    Friend Sub SQL_連線字串_檢測()
+        ConString1 = "Data Source=" & IP位置 & ";Initial Catalog=SQLConfirm;Persist Security Info=True;User ID=b70340;Password=" & 模式 & ";Max pool size = 200;Connection Timeout=0"
+    End Sub
+    Friend Sub ConnOpen()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+    End Sub
+    Friend Sub ConnOpen_檢測()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString1 : 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_伺服器檢測()
+        ConnOpen() : SQL1 = "SELECT  名稱, IP, 端口, 模式, 模式 AS 次數  FROM  伺服器檢測" : CmdSet_For_DGV()
+    End Sub
+End Module

FTP-DGAC-SYS/bin/Debug/SERVERNAME.CSV

+106.1.48.106 主機發出

FTP-DGAC-SYS/obj/Debug/FTP-DGAC-SYS.vbproj.CoreCompileInputs.cache

-582bd72780a1d0d024ac59cb74d7add377325b91
+f68e71ce42197cfcb104de1ab67f71931cf43ebd4d6e893f7ea08ea7f811bbde

FTP-DGAC-SYS/obj/Debug/FTP-DGAC-SYS.vbproj.FileListAbsolute.txt

 D:\工巧明\FTP-DGAC\FTP-DGAC-SYS\FTP-DGAC-SYS\obj\Debug\FTP-DGAC-SYS.vbproj.AssemblyReference.cache
-D:\工巧明\FTP-DGAC\FTP-DGAC-SYS\FTP-DGAC-SYS\obj\Debug\FTP-DGAC-SYS.vbproj.SuggestedBindingRedirects.cache
 D:\工巧明\FTP-DGAC\FTP-DGAC-SYS\FTP-DGAC-SYS\obj\Debug\FTP_DGAC_SYS.FTP_DGAC_SYS.resources
 D:\工巧明\FTP-DGAC\FTP-DGAC-SYS\FTP-DGAC-SYS\obj\Debug\FTP_DGAC_SYS.Resources.resources
 D:\工巧明\FTP-DGAC\FTP-DGAC-SYS\FTP-DGAC-SYS\obj\Debug\FTP-DGAC-SYS.vbproj.GenerateResource.cache
 D:\工巧明\FTP-DGAC\FTP-DGAC-SYS\FTP-DGAC-SYS\obj\Debug\FTP-DGAC-SYS.exe
 D:\工巧明\FTP-DGAC\FTP-DGAC-SYS\FTP-DGAC-SYS\obj\Debug\FTP-DGAC-SYS.xml
 D:\工巧明\FTP-DGAC\FTP-DGAC-SYS\FTP-DGAC-SYS\obj\Debug\FTP-DGAC-SYS.pdb
+D:\工巧明\FTP-DGAC\FTP-DGAC-SYS\FTP-DGAC-SYS\obj\Debug\FTP_DGAC_SYS.LINE_使用者管理表.resources