20240622備份

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

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

SYS-UPDATE/SYS-UPDATE.vb

@@ -1,41 +1,17 @@
 Imports System.IO
 Public Class SYS_UPDATE
     ReadOnly ds2 As New DataSet
-    Private Sub Set_清單1()
-        FDT_dgv.DataSource = Nothing : ds2.Clear()
-        FDT_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        FDT_dgv.ColumnHeadersHeight = 25
-        FDT_dgv.AllowUserToAddRows = False
-        SQL_FTP資料夾路徑分配()
-        da.Fill(ds2) : FDT_dgv.DataSource = ds2.Tables(0) : conn.Close()
-    End Sub
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim pProcess1() As Process = System.Diagnostics.Process.GetProcessesByName("HSKIN-MIS-SYS.exe")
         For Each p As Process In pProcess1 : p.Kill() : Next
-        Dim Strs As String = Application.StartupPath : 資料數 = 17
-        MyModule1.進度條() : 伺服器區域_cb.Text = "設計"
-        '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
-        MyModule1.進度條() : If 伺服器區域_cb.Text = "天盾伺服器" Then : 登入人IP = "192.168.0.107" : ElseIf 伺服器區域_cb.Text = "設計" Then : 登入人IP = "106.1.48.106,4567" : End If
-        MyModule1.進度條() : SQL_連線字串_ERP()
-        '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
-        MyModule1.進度條() : SQL_版本號()
-        MyModule1.進度條() : If dr.Read() Then : 版本號 = dr("系統認證版本號") : End If : conn.Close()
-        '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
-        MyModule1.進度條() : SQL_FTP伺服器登入位置()
-        MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : End If : conn.Close()
-        MyModule1.進度條() : Set_清單1()
-        MyModule1.進度條() : Dim HH As String = ""
-        For i As Integer = 0 To FDT_dgv.Rows.Count - 1
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
-            If FDT_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FDT_dgv("資料夾名稱", i).Value.ToString : End If
-        Next
-        MyModule1.進度條() : Target1 = Target & AA(0) & "/"
+        Dim Strs As String = Application.StartupPath : 資料數 = 6
+        Target = "https://gcm-smart.com/ERP/HSKIN/"
     End Sub
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         MyModule1.進度條() : Delay(30000)
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
         MyModule1.進度條() : If File.Exists(Str + "\HSKIN-MIS-SYS.exe") Then : File.Delete(Str + "\HSKIN-MIS-SYS.exe") : End If
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HSKIN-MIS-SYS.exe", Str + "\HSKIN-MIS-SYS.exe")
+        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "HSKIN-MIS-SYS.exe", Str + "\HSKIN-MIS-SYS.exe")
         MyModule1.進度條() : Shell(Str + "\HSKIN-MIS-SYS.exe", vbNormalFocus)
         Me.Close()
     End Sub

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

@@ -1 +1 @@
-44166f2dfe50789ea62812627db223d07cfa778989a8b847b402c70dcc89dde1
+4a3c3154b1467f0d2844e57a605b84fe7f59c3e6ff78c93fc28db23391792bb1