出版日期：1999-08-09　总期号：847　本年期号：57

本期导读 要闻综合 电脑工作室 市场 硬件 软件 infotimes

更改系统日期预防cih 张殿军 　　目前，cih病毒传播非常广，发作时对计算机安全危害大。我单位有60多台微机，为预防cih病毒，都安装了杀毒软件定期杀毒，并且为防止意外，每月的26日之前都手工更改所有机器的系统日期，过了26日再将系统日期改为正确的日期。每个月都对日期该来该去，较为繁琐。 　　作者用vb6编制了一个小程序，用于检测并更改系统日期。程序思路为：每次开机后启动应用程序，程序检测系统日期，如果日期为“25”，将日期更改为“27”，并在注册表中记录一个键值；当检测系统日期为“29”时，有两种可能，一是“29”为更改后的日期，需将其改回至“27”，一是“29”为正确的日期，不需更改，二者的区别根据注册表中的键值来判断。 　　程序清单如下： 　　private sub form—load() 　　dim d as date 　　dim dd as date 　　dim keyval as string 　　d = date ′获得系统的完整日期，如1999/7/12 　　dd = day(d) ′取出完整日期中的日，如12 　　keyval = getsetting(″dater″, ″count″, ″count″, ″″) 　　′从注册表中取键值 　　if dd = 25 then 　　if y = ″″ then 　　 date = date ＋ 2 ′当日期为25时，将日期更改为27 　　 savesetting ″dater″, ″count″, ″count″, ″1″ 　　 ′将count键值设置为1 　　end if 　　end if 　　if dd = 29 then 　　 if keyval = ″1″ then 　　date = date － 2 ′当日期为29并且键值为1，将日期改回27 　　deletesetting ″dater″ ′在注册表中删除注册项，用以说明日期为真正的日期 　　 end if 　　end if 　　end 　　end sub 　　将程序编译为执行文件，并用vb6工具中的package ＆ deployment对程序进行打包，选择将程序项目安装在开始选单的“启动”项中。打包完成后会生成标准的安装文件，运行setup即可。