Search for intruder

[Raydenman]

This is not my application, but it's made by another italian in another forum.
I wanted to post this, because moderator don't approved my application, they said that my application wasn't secure.
Search for intruder is an application to see what files the applications make
The application use the FileSystemWatcher class - source:

Public Class frmMain

    Private Sub txtFolder_Click(sender As System.Object, e As System.EventArgs) Handles txtFolder.Click
        Dim ChooseFolder As New FolderBrowserDialog
        If ChooseFolder.ShowDialog() = DialogResult.OK Then
            txtFolder.Text = ChooseFolder.SelectedPath
        End If
    End Sub

    Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click
        If btnStart.Text = "Start" Then
            If txtFolder.Text = "Click here to choose the folder" Then
                MessageBox.Show("You need to select a folder!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Dim Files() As String = System****.Directory.GetFiles(txtFolder.Text)
                For Each SingleFile As String In Files
                    Dim SingleFileInfo As New System****.FileInfo(SingleFile)
                    Dim FileItem As New ListViewItem(SingleFileInfo.Name)
                    FileItem.SubItems.Add(System****.Path.GetExtension(txtFolder.Text & SingleFileInfo.Name))
                    lvFiles.Items.Add(FileItem)
                Next
                btnStart.Text = "Stop"
                FolderWatcher.Path = txtFolder.Text
                FolderWatcher.EnableRaisingEvents = True
            End If
        Else
            FolderWatcher.EnableRaisingEvents = False
            Me.Text = "Search for intruder"
            btnStart.Text = "Start"
            txtFolder.Text = "Click here to choose the folder"
            lvFiles.Items.Clear()
        End If
    End Sub

    Private Sub btnMinimize_Click(sender As System.Object, e As System.EventArgs) Handles btnMinimize.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        FolderWatcher.EnableRaisingEvents = False
        Application.Exit()
    End Sub

    Private Sub FolderWatcher_Created(sender As System.Object, e As System****.FileSystemEventArgs) Handles FolderWatcher.Created
        MessageBox.Show("< " & e.FullPath & " >" & " is the intruder in < " & txtFolder.Text & " > at " & "< " & Now & " >", "Detected intruder", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    End Sub

    Private Sub FolderWatcher_Deleted(sender As System.Object, e As System****.FileSystemEventArgs) Handles FolderWatcher.Deleted
        MessageBox.Show("< " & e.FullPath & " >" & " was deleted from < " & txtFolder.Text & " > at " & "< " & Now & " >", "Detected intruder", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    End Sub

    Private Sub FolderWatcher_Renamed(sender As System.Object, e As System****.RenamedEventArgs) Handles FolderWatcher.Renamed
        MessageBox.Show("< " & e.FullPath & " >" & " was renamed from < " & e.OldFullPath & " >" & " to < " & e.FullPath & " > at " & "< " & Now & " >", "Detected intruder", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    End Sub

End Class

To use this:
1) Close all your application: Chrome etc.
2) Open only Search for intruder
3) Choose C:\
3) Open the application to check. Click in some button and see if "Search for intruder" say that there is a new intruder.
Go under this post to download the binary file...

Virus scanz:
https://www.virustotal.com/it/file/a...is/1421510923/
https://virusscan.jotti.org/it/scanre...c45df8ae6fa310
The source is free.

@Mayion

Test1: https://gyazo.com/b1d1b6db46121770664de0d8d9df8363
Test2: https://gyazo.com/e62f5fbe640862a5604f1b63699a361e

[[MPGH]Mayion]

Approval time will be extended for security measurements.