Anti Debug - Fiddler - dnspy

  Public Sub Anti_Debug()
        ' The following expression was wrapped in a checked-statement
        Dim tools = "fiddler,dnspy,debugger,debug"
        While True
            Dim array As String() = tools.Split(New Char() {","c})
            Dim processes As Process() = Process.GetProcesses()
            For Each process As Process In processes
                Dim num As Integer = array.Length - 1
                For j As Integer = 0 To num
                    Dim flag As Boolean = process.ProcessName.ToLower().Contains(array(j))
                    If flag Then
                        Process.Start("cmd.exe", "/c echo Close - " + process.ProcessName + " + Fuck You & pause")
                        Process.GetCurrentProcess().Kill()
                    End If
                    Dim flag2 As Boolean = process.MainWindowTitle.ToLower().Contains(array(j))
                    If flag2 Then
                        Process.Start("cmd.exe", "/c echo Close - " + process.ProcessName + " + Fuck You & pause")
                        Process.GetCurrentProcess().Kill()
                    End If
                Next
            Next
            Thread.Sleep(1)
        End While
    End Sub