|
Удаление документов на Visual BasicОпубликовано в журнале "Компьютер Price" http://www.comprice.ru/ Сергей Капралов <hotservice@list.ru> Наверное, каждый пользователь сталкивался
с проблемой, когда необходимо уничтожить какой-либо файл, причем
так, чтобы данные невозможно было восстановить при помощи утилит
типа UnErase (из набора утилит Norton Utilities) или UnDelete. В
основном для этой цели используются программы, в основе которых
лежит запись на "место" файла шумоподобных кодов, или же несколько
раз производится перезапись файла с искажением.
В этой статье описано довольно простое (при наличии у читателя минимальных навыков программирования) решение такой часто возникающей ситуации, основанное на методе перезаписи файла. Для этого создадим небольшую утилиту при помощи языка программирования Visual Basic. Нам понадобятся собственно сам компилятор Microsoft Visual Basic версии 5.0 или выше и несколько минут свободного времени. Шаг 1. Создадим в среде VB простое однооконное приложение. В форму достаточно добавить всего лишь пару компонентов - кнопку и элемент CommonDialog . Шаг 2. Теперь самое главное - нам надо написать функцию, которая и будет отвечать за уничтожение данных. Вызовем окно редактора кода, и в области General Declarations напишем следующее: Private Declare Function DeleteFile Lib "kernel32"
Alias "DeleteFileA" (ByVal lpFileName As String) As Long Это необходимые глобальные переменные. Далее следует описание главной функции (рис. 1): Function Rrecord(SourceFile) Две вспомогательные функции необходимы для заполнения файла "мусором": Function ClearFile(FLNAme, Size) Шаг З. Теперь нажмем на кнопку и добавим обработчик события Click: Private Sub Command1_ Click() CommonDialog1.ShowOpen - вызываем диалоговое окно для выбора файла. Необходимо удостовериться, что выбран нужный файл: vbresult = MsgBox("Bы уверены, что файл " &
Вызов функции: SourceFile = CommonDialog1.FileName Вот, собственно, и все. Осталось только запустить программу и проверить ее в действии (рис. 2). Данное творение не претендует на первое место среди подобных программ. При стирании программой файла, его невозможно восстановить (в UnErase он помечен как Poor), или же после восстановления мы находим в нем "мусор". Тестирование утилиты проводилось на Windows 98. В качестве постскриптума - набор программ, входящих в
Microsoft Office, поддерживает VBA (Visual Basic for Applications),
следовательно, функцию, использованную в программе, можно вставить в
макрос для MS Word или MS Excel, и она будет работать ничуть не
хуже, чем в виде отдельной утилиты.
|
Copyright © <LMTH>. Все материалы являются собственностью их авторов.
При перепечатывании ссылка на http://www.magaz.org/ как на источник информации обязательна. Правила использования материалов журнала |