类台湾1号病毒实验

1、1          软件设置：关闭杀毒软件的自我防护功能。

2、自我复科针制功能演示 打开或新建一个Word文档，ALT+F11快捷键进入宏编写窗口 在Project|Microsoft word对象|ThisDocument中编辑实验源代码

3、默认的病始吐政毒发作时间为每月1号，触发发作后文档将自我复制20篇，为检验病毒是否能够成功运行，我们不妨将电脑时间修改为1号，再重新打开文档： 打开文档后将出现如下计算题：

4、输入正确答案后文档将打开为如下图：

5、若输入结果错误文档将自动复制20篇：

6、清除宏病毒： 对受感染的文档，在Word编辑页面按Alt+f11快捷键进入宏的编辑窗口，分别删除Nomal和Project里的this document,将其中的代码删除并保存，再次打开文档后宏病毒将不再运行。

7、  自己编写一个宏

宏内容：在Word文档中显冷特示现在距离高考的时间

代码：

Sub Timer()

s = DateDiff("s", Now, DateSerial(2015, 6, 6) + TimeSerial(24, 0, 0))

dd = Int(s / (86400))

s = s - dd * 86400

hh = Int(s / 3600)

s = s - hh * 3600

mm = Int(s / 60)

s = s - mm * 60

ss = s

Selection.HomeKey Unit:=wdStory

Selection.EndKey Unit:=wdStory, Extend:=wdExtend

Selection.Text = "距离2015年高考还有" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"

Selection.Collapse Direction:=wdCollapseEnd

Application.OnTime Now + TimeValue("00:00:01"), "Timer"

End Sub

8、编译运行

9、运行结果：