PC-SYS-UPDATE-LEEHSIEHJUI/SYS-UPDATE/SYS-UPDATE.vb

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 Strs As String = Application.StartupPath : 資料數 = 17
        If File.Exists(Strs + "\LIVE.txt") Then
            MyModule1.進度條() : Dim fileReader As String : fileReader = My.Computer.FileSystem.ReadAllText(Strs + "\LIVE.txt")
            MyModule1.進度條() : If fileReader = "A" Then : 伺服器區域_cb.Text = "巨益線路" : Else : 伺服器區域_cb.Text = "開發線路" : End If
            '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
            MyModule1.進度條() : If 伺服器區域_cb.Text = "巨益線路" Then : 登入人IP = "192.168.10.5" : ElseIf 伺服器區域_cb.Text = "開發線路" Then : 登入人IP = "106.1.50.79" : 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) & "/"
        Else
            Delay(30000)
            MsgBox("沒有連線指定!!!") : Me.Close()
        End If
    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 + "\WINPROFIT-ERP-SYS - 2021083002.exe") Then : File.Delete(Str + "\WINPROFIT-ERP-SYS - 2021083002.exe") : End If
        MyModule1.進度條() : If File.Exists(Str + "\WINPROFIT-ERP-SYS - 2021093001.exe") Then : File.Delete(Str + "\WINPROFIT-ERP-SYS - 2021093001.exe") : End If
        MyModule1.進度條() : If File.Exists(Str + "\WINPROFIT-ERP-SYS.exe") Then : File.Delete(Str + "\WINPROFIT-ERP-SYS.exe") : End If
        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "WINPROFIT-ERP-SYS.exe", Str + "\WINPROFIT-ERP-SYS.exe")
        MyModule1.進度條() : Shell(Str + "\WINPROFIT-ERP-SYS.exe", vbNormalFocus)
        Me.Close()
    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