FTP-DGAC-SYS-LEEHSIEHJUI/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
    Dim 刪除數, 位置1, 總數, N1, N2, N3, N4, N5, N6, N7 As Integer
    Dim Strs As String = Application.StartupPath
    Dim Str As String = Application.StartupPath
    Private Sub FTP_DGAC_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Panel1.SendToBack() : 位置1 = -1
        捷徑_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        捷徑_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        捷徑_dgv.ColumnHeadersHeight = 25 : 捷徑_dgv.AllowUserToAddRows = False
        捷徑_dgv.RowTemplate.Height = 20 : 捷徑_dgv.Columns(0).FillWeight = 30
        捷徑_dgv.Columns(0).ReadOnly = True

        剔除清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        剔除清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        剔除清單_dgv.ColumnHeadersHeight = 25 : 剔除清單_dgv.AllowUserToAddRows = False
        剔除清單_dgv.RowTemplate.Height = 20 : 剔除清單_dgv.Columns(0).FillWeight = 30
        剔除清單_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
        '--------------類計數量---------------------------------------------------------------------
        If File.Exists(Str + "\DLNUD.CSV") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\DLNUD.CSV", System.Text.Encoding.Default)
            Dim Text As String = "" : Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
            計數_nud.Value = Text
        Else
            計數_nud.Value = 0
        End If
        '--------------FTP位置---------------------------------------------------------------------
        If File.Exists(Str + "\FTPLINE.CSV") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\FTPLINE.CSV", System.Text.Encoding.Default)
            Dim Text As String = "" : Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
            計算分流1.Enabled = True : 計算分流2.Enabled = True : 停頓1.Enabled = True
        Else
            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
                FTP位置 = FolderBrowserDialog1.SelectedPath
                Dim strDirName As String
                If File.Exists(Strs & "\FTPLINE.CSV") Then : File.Delete(Strs & "\FTPLINE.CSV") : End If
                strDirName = Strs & "\FTPLINE.CSV"
                Try
                    Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                        Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                            Dim strd As String = FTP位置
                            sw.WriteLine(strd)   '插入一整行
                            sw.Flush()
                        End Using
                    End Using
                Catch ex As Exception
                End Try
                計算分流1.Enabled = True : 計算分流2.Enabled = True : 停頓1.Enabled = True
            Else
                MsgBox("請先選擇資料夾路徑!!")
            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
        strDirName = Strs & "\DLNUD.CSV"
        Try
            Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                    Dim str As String
                    str = 計數_nud.Value : sw.WriteLine(str) : sw.Flush()
                End Using
            End Using
        Catch ex As Exception
        End Try
    End Sub
    Private Sub 自動運行_Tick(sender As Object, e As EventArgs) Handles 自動運行.Tick
        運行自動刪除()
    End Sub
    Private Sub 停頓1_Tick(sender As Object, e As EventArgs) Handles 停頓1.Tick
        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
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\FTPLINE.CSV", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing) : FTP位置 = line : line = filereader.ReadLine() : End While
            filereader.Close()
        End If
        FTP主要位置_tb.Text = FTP位置 : N1 = 0 : N2 = 0 : N3 = 0 : N4 = 0 : N5 = 0 : N6 = 0
        路徑暫存1_cb.Items.Clear() : 路徑暫存2_cb.Items.Clear() : 路徑暫存3_cb.Items.Clear()
        路徑暫存4_cb.Items.Clear() : 路徑暫存5_cb.Items.Clear() : 路徑暫存6_cb.Items.Clear()
        For Each foundFile As String In My.Computer.FileSystem.GetDirectories(FTP位置)
            路徑暫存1_cb.Items.Add(foundFile) : N1 += 1
        Next
        For i = 1 To N1 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存1_cb.Items(i - 1).ToString)
                路徑暫存2_cb.Items.Add(foundFile) : N2 += 1 : Next
        Next
        For i = 1 To N2 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存2_cb.Items(i - 1).ToString)
                路徑暫存3_cb.Items.Add(foundFile) : N3 += 1 : Next
        Next
        For i = 1 To N3 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存3_cb.Items(i - 1).ToString)
                路徑暫存4_cb.Items.Add(foundFile) : N4 += 1 : Next
        Next
        For i = 1 To N4 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存4_cb.Items(i - 1).ToString)
                路徑暫存5_cb.Items.Add(foundFile) : N5 += 1 : Next
        Next
        For i = 1 To N5 : For Each foundFile As String In My.Computer.FileSystem.GetDirectories(路徑暫存5_cb.Items(i - 1).ToString)
                路徑暫存6_cb.Items.Add(foundFile) : N6 += 1 : Next
        Next
        總數 = N1 + N2 + N3 + N4 + N5 + N6
        If N6 > 0 Then : MsgBox("子資料夾可能不只有四級，層級不足!!") : End If

        For i As Integer = 0 To 捷徑_dgv.Rows.Count - 1 : 捷徑_dgv.Rows.RemoveAt(0) : Next
        For i As Integer = 0 To 總數 - 1 : 捷徑_dgv.Rows.Insert(0) : Next
        For i As Integer = 0 To N1 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存1_cb.Items(i).ToString
        Next
        For i As Integer = N1 To N1 + N2 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存2_cb.Items(i - N1).ToString
        Next
        For i As Integer = N1 + N2 To N1 + N2 + N3 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存3_cb.Items(i - (N1 + N2)).ToString
        Next
        For i As Integer = N1 + N2 + N3 To N1 + N2 + N3 + N4 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存4_cb.Items(i - (N1 + N2 + N3)).ToString
        Next
        For i As Integer = N1 + N2 + N3 + N4 To N1 + N2 + N3 + N4 + N5 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存5_cb.Items(i - (N1 + N2 + N3 + N4)).ToString
        Next
        For i As Integer = N1 + N2 + N3 + N4 + N5 To N1 + N2 + N3 + N4 + N5 + N6 - 1
            捷徑_dgv.Rows(i).Cells(0).Value = 路徑暫存6_cb.Items(i - (N1 + N2 + N3 + N4 + N5)).ToString
        Next
    End Sub
    Private Sub 計算分流2_Tick(sender As Object, e As EventArgs) Handles 計算分流2.Tick
        計算分流2.Enabled = False
        N7 = 0
        If File.Exists(Str + "\FTPDELETE.CSV") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\FTPDELETE.CSV", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line Is Nothing Then : Else : 剔除清單_cb.Items.Add(line.ToString) : N7 += 1 : End If
            End While
            filereader.Close()
        End If
        If 剔除清單_dgv.Rows.Count > 1 Then
            For i As Integer = 0 To 剔除清單_dgv.Rows.Count - 1 : 剔除清單_dgv.Rows.RemoveAt(0) : Next
        End If
        If N7 > 1 Then
            For i As Integer = 0 To N7 - 1 : 剔除清單_dgv.Rows.Insert(0) : Next
        End If
        For i As Integer = 0 To N7 - 1
            剔除清單_dgv.Rows(i).Cells(0).Value = 剔除清單_cb.Items(i).ToString
        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
    End Sub
    Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            FTP位置 = FolderBrowserDialog1.SelectedPath
            If File.Exists(Strs & "\FTPLINE.CSV") Then : File.Delete(Strs & "\FTPLINE.CSV") : End If
            strDirName = Strs & "\FTPLINE.CSV"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim strd As String = FTP位置
                        sw.WriteLine(strd)   '插入一整行
                        sw.Flush()
                    End Using
                End Using
            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
            file_name = OpenFileDialog1.SafeFileName
        Else : file_name = "" : End If
        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
        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
    End Sub
    Private Sub 剔除檔案存檔()
        If File.Exists(Strs & "\FTPDELETE.CSV") Then : File.Delete(Strs & "\FTPDELETE.CSV") : End If
        strDirName = Strs & "\FTPDELETE.CSV"
        Try
            Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                    Dim str As String
                    str = "******************" : sw.WriteLine(str)
                    For I As Integer = 0 To 剔除清單_dgv.Rows.Count - 1
                        str = 剔除清單_dgv.Rows(I).Cells(0).Value : sw.WriteLine(str)   '插入一整行
                    Next : sw.Flush()
                End Using
            End Using
        Catch ex As Exception
        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
            If File.Exists(Strs & "\OPAUTO.CSV") Then : File.Delete(Strs & "\OPAUTO.CSV") : End If
            strDirName = Strs & "\OPAUTO.CSV"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim str As String
                        str = "******************" : sw.WriteLine(str) : sw.Flush()
                    End Using
                End Using
            Catch ex As Exception : End Try
        End If
    End Sub
    Private Sub 運行自動刪除()
        If 捷徑_dgv.Rows.Count > 0 And 剔除清單_dgv.Rows.Count > 0 And FTP主要位置_tb.Text <> "" Then
            For ii As Integer = 0 To 剔除清單_dgv.Rows.Count - 1
                If File.Exists(FTP主要位置_tb.Text & "\" & 剔除清單_dgv.Rows(ii).Cells(0).Value.ToString) Then
                    File.Delete(FTP主要位置_tb.Text & "\" & 剔除清單_dgv.Rows(ii).Cells(0).Value.ToString) : 刪除數 += 1
                End If
            Next
            For i As Integer = 0 To 捷徑_dgv.Rows.Count - 1
                For ii As Integer = 0 To 剔除清單_dgv.Rows.Count - 1
                    If File.Exists(捷徑_dgv.Rows(i).Cells(0).Value.ToString & "\" & 剔除清單_dgv.Rows(ii).Cells(0).Value.ToString) Then
                        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
        If 自動循環_ch.Checked = True Then
            通知_lb.Text = "☆☆☆☆☆☆☆☆☆☆   已自動運行   ☆☆☆☆☆☆☆☆☆☆" : 通知_lb.ForeColor = Color.Green
        Else
            通知_lb.Text = "☆☆☆☆☆☆☆☆☆☆   未自動運行   ☆☆☆☆☆☆☆☆☆☆" : 通知_lb.ForeColor = Color.Red
        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
        確定LINE伺服器開通() : 伺服器上線檢測開始() : 計算分流3.Enabled = True
    End Sub
    Private Sub 計數歸零_bt_Click(sender As Object, e As EventArgs) Handles 計數歸零_bt.Click
        計數_nud.Value = 0
    End Sub
End Class