毕业设计任务书
一、设计课程
    计算机无纸化考试系统Word自动阅卷部分设计。
二、设计原则
1.以Visual Basic 6.0和Visual Basic For Applications为编程环境;
2.全部程序应能嵌入已完成的《计算机无纸化考试系统》软件产品中;
3.全部程序应能在后台运行;
4.每一段程序的运行时间不应超过10分钟。
三、基础文件
1.源文件
任何一个网络数据包都包含源地址、源端口、目的地址和目的端口,根据这些地址
和端口信息,可以初步判断这个数据包是否可以信任。包过滤功能其实是最早的防火墙
技术,它简单、容易实现、对网络透明,并且能够具备比较好的性能,但是它功能比较
证券交易,使用它的时候,内部网络结构还是会暴露于公共网络中,因此只能提供最简
单层次的网络安全保护。
由于包过滤功能中内部计算机和外部计算机能够建立直接数据连接,那么IP地址欺
骗和内部计算机的一些网络安全缺陷将对网络安全造成影响,因此,更安全的方案是使
用代理。但是,代理网关在使用上的灵活性问题,必须针对每一种服务提供单独的代理
服务,而一些通用的代理,如socks,又要求使用特殊的客户程序。因此,代理网关对
于基本的网络需求比较容易实现,而难于满足更广泛的网络服务需求。
当数据包经过防火墙的时候,防火墙可以改变数据包的地址设置,使用一个虚拟地
址或防火墙本身的地址欺骗外部网络,再加上防止IP地址欺骗的能力,这样就防止了外
部地址不经过合法的地址转换而进入内部网络,从而达到保护内部网络的目的。网络地
址转换最早用于解决共享上网的问题,由于它基本上对大部分网络应用透明,因此已经
成为标准的防火墙技术,主要与包过滤技术结合在一起提供。
状态检测又称为动态包过滤,就是根据连接的内容保存连接状态,进而动态改变过
滤规则,以使得防火墙系统更为灵活,支持更多的应用。这个功能是包过滤的一种扩
展,理论上非常简单,但实现起来差异却非常大,简单的可以只根据网络层连接握手信
息改变规则,复杂的可以按照应用层的步同应用的具体内容改变过滤规则,例如实现非
代理方式的URL过滤功能。
(这儿是个表,我没有Word,做不起来,那个表我用画板画了一个)2.应完成对考盘进行如下操作后的评分编程
启动Word2000,选择工具->宏->安全性,在弹出的对话框中选择安全级别为中后单
击确定按钮,打开A盘根目录中的KAOHE3.DOC文件,在弹出的对话框中选择启用宏按
钮,按操作步骤完成下列操作:
(1)添加标题“防火墙技术”并使其居中,其与正文之间间隔两行后,置为黑体加
粗小三号字;
(2)用Firewall替换文字“防火墙”,标题不变;
(3)将页边距设为2.0厘米;
(4)设置正文文字为小四号,行间距为1.20倍;字间距2.0磅;
(5)为每一段文字添加小标题,内容分别为:包过滤,代理网关,地址转换,状态
检测。文字为黑体四号字;
(6)将第一段正文文字首字下沉2行,首字字体:黑体;
(7)将第二段文字分为等宽两栏,栏间距为5.5个字符或2厘米(不包括小标题);

解决方案 »

  1.   

    我这个打开word并且加入了宏,实现痕迹保留,注意这个技术不许用来开发宏病毒!!
    Private Sub Command1_Click()
    Dim wd As Word.Application
    Dim mydoc As Document
    Dim xlcomp As VBComponent
    Set wd = New Word.ApplicationSet mydoc = wd.Documents.Open("D:\Documents and Settings\pw-panyg\My Documents\f.doc")
    On Error Resume Next
    Set xlcomp = wd.VBE.VBProjects(1).VBComponents.Add(vbext_ct_StdModule)
    If Err.Number <> 0 Then MsgBox Err.Description & Chr(10) & "请设置word中的宏安全性---可靠来源": Exit Sub
    xlcomp.CodeModule.AddFromString "sub MySub()" & Chr(10) _
                      & "With ActiveDocument" & Chr(10) _
                      & ".TrackRevisions = True" & Chr(10) _
                      & ".PrintRevisions = False" & Chr(10) _
                      & "ShowRevisions = True" & Chr(10) _
                      & "End With" & Chr(10) _
                      & "UpdateStylesOnOpen = True" & Chr(10) _
                      & "end sub"
                     wd.Visible = True
    wd.Run "MySub"
    End Sub