20240622備份

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

       "AbsoluteMoniker": "D:0:0:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|d:\\\u5DE5\u5DE7\u660E\\bifeng\\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:{D0806AA5-B858-4178-B1A2-8CCDA1F4EE00}|SYS-UPDATE\\SYS-UPDATE.vbproj|D:\\\u5DE5\u5DE7\u660E\\BIFENG\\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\\BIFENG\\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\\BIFENG\\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\\BIFENG\\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}"
               "RelativeToolTip": "SYS-UPDATE\\SQL_Module.vb",
               "ViewState": "AQIAAAAAAAAAAAAAAAAAABIAAABPAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-03-02T04:34:48.631Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-03-02T04:34:48.631Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 2,
+              "DocumentIndex": 1,
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\SYS-UPDATE\\SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeDocumentMoniker": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\SYS-UPDATE\\SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeToolTip": "SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAABAwA0AAAAIAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAkAAAAdAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-03-02T04:34:48.632Z",
               "EditorCaption": ""
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAABIAAAA/AAAA",
+              "ViewState": "AQIAAAUAAAAAAAAAAAAxwBgAAAA2AAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-03-02T04:34:48.821Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 1,
+              "DocumentIndex": 2,
               "Title": "SYS-UPDATE.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\BIFENG\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-03-02T04:34:48.925Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-03-02T04:34:48.925Z"
             }
           ]
         }

SYS-UPDATE/SYS-UPDATE.vb

         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
-        '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
-        資料數 = 17
-        MyModule1.進度條() : 登入人IP = "180.177.181.162,5264"
-        MyModule1.進度條() : SQL_連線字串_ERP()
-        MyModule1.進度條() : 伺服器區域_cb.Text = "180.177.181.162,5264"
-        MyModule1.進度條() : g_conn_type = 伺服器區域_cb.Text & "伺服器"
-        '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
-        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) & "/"
+        資料數 = 5
+        Target = "https://gcm-smart.com/ERP/BIFENG/"
     End Sub
     Private Async 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 + "\BIFENG-ERP-SYS.exe") Then : File.Delete(Str + "\BIFENG-ERP-SYS.exe") : End If
-        'MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(1) & "/" & "BIFENG-ERP-SYS.exe", Str + "\BIFENG-ERP-SYS.exe")
-        Dim downloadUrl As String = Target & AA(1) & "/" & "BIFENG-ERP-SYS.exe"
+        Dim downloadUrl As String = Target & "BIFENG-ERP-SYS.exe"
         Dim savePath As String = Str + "\BIFENG-ERP-SYS.exe"
-
         ' 開始異步下載
         Await DownloadFileAsync(downloadUrl, savePath)
         MyModule1.進度條() : Shell(Str + "\BIFENG-ERP-SYS.exe", vbNormalFocus)

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

-44166f2dfe50789ea62812627db223d07cfa778989a8b847b402c70dcc89dde1
+4a3c3154b1467f0d2844e57a605b84fe7f59c3e6ff78c93fc28db23391792bb1