ПОНЯТНО О Visual Basic NET (том 3)


Программа-шпион


Мы можем воспользоваться умением создавать обработчики событий, чтобы написать любопытную программку.

Вообразите ситуацию. Вы подозреваете, что в ваше отсутствие кто-то включает компьютер и производит нежелательные изменения в многочисленных файлах и папках внутри вашей персональной папки (например, какой-то документ стерт или переименован, или в него что-то дописано). Чтобы выследить нарушителя, вы хотите знать, в какие моменты времени и какие именно файлы и папки подверглись изменениям.

Для этого нужно, чтобы при включении компьютера автоматически и невидимо для пользователя запускалась программа, отслеживающая эти изменения и записывающая их в некий, глубоко вами запрятанный текстовый файл, который вы впоследствии можете спокойно прочитать.

Для того, чтобы программа запускалась при включении компьютера, ее ярлык достаточно поместить в папку автозагрузки Windows (пункт Автозагрузка (StartUp) меню Пуск Windows). Остается создать саму программу, чем мы сейчас и займемся.

Вот программа:

Private Шпион As New System.IO.FileSystemWatcher

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Настраиваем шпиона:

        Шпион.Path = "C:\Дела"

        Шпион.IncludeSubdirectories

= True

        Шпион.Filter = "*.*"

        AddHandler Шпион.Created, AddressOf Фиксируем_создание

        AddHandler Шпион.Deleted, AddressOf Фиксируем_уничтожение

        AddHandler Шпион.Renamed, AddressOf Фиксируем_переименование

        AddHandler Шпион.Changed, AddressOf Фиксируем_изменение

        Шпион.EnableRaisingEvents = True

        'Маскируем шпиона:

        Me.Opacity = 0

        Me.ShowInTaskbar = False

End Sub

 

Private Sub Фиксируем_создание(ByVal source As Object, ByVal e As IO.FileSystemEventArgs)

        Дописываем_в_файл("Создан файл или папка:  " & e.FullPath)

End Sub

 

Private Sub Фиксируем_уничтожение(ByVal source As Object, ByVal e As IO.FileSystemEventArgs)




Начало  Назад  Вперед



Книжный магазин