Public Sub AntiProcess()
        While True
            Dim Enemy As New List(Of String)
            Enemy.Add("megadumper")
            Enemy.Add("dumper")
            Enemy.Add("dump")
            Enemy.Add("dnspy")
            Enemy.Add("de4dot")
            Enemy.Add("nofuser")
            Enemy.Add("fiddler")
            Enemy.Add("wireshark")
            Enemy.Add("httpdebugger")
            While True
                Dim information As New List(Of String)
                For Each Process As Process In Process.GetProcesses()
                    information.Add(Process.ProcessName)
                    Try
                        information.Add(Process.MainModule.FileName)
                        information.Add(Process.MainModule.FileVersionInfo.FileDescription)
                    Catch ex As Exception
                    End Try
                    information.Add(Process.MainWindowTitle)
                    For Refliex As Integer = 0 To information.Count
                        For Each Target In Enemy
                            Try
                                If information(Refliex).Contains(Target.ToLower) Then
                                Else
                                End If
                                If information(Refliex).ToLower.Contains(Target.ToLower) Then
                                    End
                                End If
                            Catch ex As Exception
                                Exit For
                            End Try
                        Next
                    Next
                Next
            End While
        End While
    End Sub
-----------------
in form_load :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim th As New Threading.Thread(AddressOf Me.AntiProcess)
        th.Start()
    End Sub