20240622備份

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

               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
-              "ViewState": "AQIAABsAAAAAAAAAAADwvw0AAAAEAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAEAAAAEAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-05-20T10:11:10.502Z",
               "EditorCaption": ""

SYS-UPDATE/SYS-UPDATE.vb

-Imports System.IO
-Imports System.Net.WebRequestMethods
-Public Class SYS_UPDATE
-    ReadOnly ds2 As New DataSet
-    Dim FTPIP As String
-    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
+Public Class SYS_UPDATE
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim pProcess1() As Process = System.Diagnostics.Process.GetProcessesByName("YS-ERP-SYS.exe")
         For Each p As Process In pProcess1 : p.Kill() : Next
-        Dim Strs As String = Application.StartupPath : 資料數 = 17
-        MyModule1.進度條() : 伺服器區域_cb.Text = "測試雲端"
-        MyModule1.進度條() : SQL_連線字串_國外() : SQL_FTP伺服器IP() : If dr.Read Then : FTPIP = dr("位址").ToString : End If
-        '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
-        MyModule1.進度條() : 登入人IP = "106.1.49.218,2433"
-        MyModule1.進度條() : SQL_連線字串_ERP()
-        MyModule1.進度條() : SQL_FTP伺服器登入位置()
-        MyModule1.進度條() : If dr.Read() Then : Target = dr("FTP帳號") & FTPIP & dr("FTP密碼") : FTP帳號 = "" : FTP密碼 = "" : FTP物理位置 = dr("FTP物理位置") : End If : conn.Close()
-        '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
-        MyModule1.進度條() : SQL_版本號()
-        MyModule1.進度條() : If dr.Read() Then : 版本號 = dr("系統認證版本號") : End If : conn.Close()
-        '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
-        MyModule1.進度條() : SQL_FTP伺服器登入位置()
-        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
+        MyModule1.進度條() : Target = "https://gcm-smart.com/ERP/YS-ERP/"
     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
         If IO.File.Exists(Str + "\DotNetBarcode.dll") Then : Else
-            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "DotNetBarcode.dll", Str + "\DotNetBarcode.dll")
+            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "DotNetBarcode.dll", Str + "\DotNetBarcode.dll")
         End If
         MyModule1.進度條() : If IO.File.Exists(Str + "\YS-ERP-SYS.exe") Then : IO.File.Delete(Str + "\YS-ERP-SYS.exe") : End If
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "YS-ERP-SYS.exe", Str + "\YS-ERP-SYS.exe")
+        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "YS-ERP-SYS.exe", Str + "\YS-ERP-SYS.exe")
         MyModule1.進度條() : Shell(Str + "\YS-ERP-SYS.exe", vbNormalFocus)
         Me.Close()
     End Sub

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

-44166f2dfe50789ea62812627db223d07cfa778989a8b847b402c70dcc89dde1
+4a3c3154b1467f0d2844e57a605b84fe7f59c3e6ff78c93fc28db23391792bb1