📄 ba52.htm
字号:
<HTML>
<HEAD>
<TITLE>躲开 CIH</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"><span style="LINE-HEIGHT: 18px"><big>躲开 CIH</big></span> <strong></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left">
<p align="center"><span style="LINE-HEIGHT: 18px"></span></p>
<p><span style="FONT-SIZE: 9pt; LINE-HEIGHT: 18px">
<font size="-1" face="宋体">上个月的今天，我系计算机房提前用KV300和瑞星杀毒软件做了彻底清理，并在4月25日将系统日期全部改为4月27日，在4月27日又将日期改回，从而避开了CIH的发作时间。然而，CIH的变种发作时间是每个月的26日。这样每个月提前修改系统日期不是一件轻松的事。而且，由于公用计算机人多手杂，系统日期可能经常被人修改，与真正的日期差之千里。一旦疏于防范，就可能功亏一篑。那么，能不能使计算机自动修改系统日期而不用操心呢？下面就为您提供了这样一个VB小程序，运用它，您就可以高枕无忧了。因为CIH病毒一般只感染Win
95和Win 98系统,所以这里只提供了运行于Win 95/Win 98系统的程序。<br>
这个程序需要在一个名为FORM1的窗体中增加如下控件：（1）计时控件TIMER1，将其Enabled属性由true改为false，Interval属性值为50（1000是一秒，您可以自行调整此值，注意不能为0）；（2）文本框Text2，其visible属性值为false,使其在程序进行时不可见。另外，为了使界面更美观，您可以通过Form1的picture属性指定程序所用的图片。您还可以通过form1的Icon属性指定所用的程序图标。（如图）<br>
具体程序代码及解释如下：<br>
Private Sub Form_Load()<br>
Open "new" For Input As ＃1<br>
Dim cline As String<br>
Do While Not EOF(1)<br>
Line Input ＃1, cline<br>
Loop<br>
Close ＃1<br>
If cline = "new" Then<br>
Open "new" For Output As ＃1 '如果“new”文件内容为“new”,则说明此程序为第一次运行，需将其快捷方式拷贝到程序"启动"组。<br>
Print ＃1, "old"<br>
Close ＃1<br>
Open "St5unst.log" For Input
As ＃1<br>
Dim cline2 As String<br>
I = 0<br>
Do While Not EOF(1) And I < 10<br>
Line Input ＃1, cline2<br>
Text2.Text = cline2<br>
I = I ＋ 1<br>
Loop<br>
Close ＃1<br>
File Copy Mid(Text2.Text, InStr(Text2.Text,
":\") － 1, InStr(Text2.Text, "setup")
－ (InStr(Text2.Text, ":\")
－ 1)) ＋ "Start Menu\Programs\timekeep.lnk", Mid(Text2.Text,
InStr(Text2.Text, ":\") － 1,
InStr(Text2.Text, "setup") － (InStr(Text2.Text,
":\") － 1)) ＋ "Start Menu\Programs\启动\timekeep.lnk"End
If<br>
以上部分的目的是将程序快捷方式拷贝到程序"启动"组。其中的“St5unst.log”是安装本程序生成的安装日志文件，其中记载了Windows所在的路径。“new”文件是需要您自己建立的一个文本文件，其内容必须是“new”。此文件和下面提到的“datekey”(也是您自己建立的文本文件，内容必须是“true”。)，都要在用VB5.0的“应用程序安装向导”创建安装盘时，随其他文件一同添加发布的。这样在您安装后，本程序所在的文件夹中才有这两个初始文件。<br>
Dim MyDate1, Myday1<br>
MyDate1 = Date '获取当前日期（包含年月日）。<br>
Myday1 = Day(MyDate1)'获取当前日期（仅包含日）。<br>
'Label1.Caption = Myday<br>
Open "datekey" For Input As ＃1
'打开文件确认日期的真假。<br>
Dim cline3 As String<br>
Do While Not EOF(1)<br>
Line Input ＃1, cline3<br>
Loop<br>
Close ＃1<br>
If cline3 = "false" And Myday1
<> 28 Then<br>
Date = Date － 2<br>
'如果当前日期为假，则减2。但如果当前日期为28日，则不能改回，否则出现26日。<br>
Open "datekey" For Output As
＃1 '以下三条目的在于记录修改日期事件。<br>
Print ＃1, "true"<br>
Close ＃1<br>
End If<br>
'以上部分的目的是将原已修改的假日期改为真日期。同时在“datekey”文件中记录修改日期事件。注意：28日不能改回，否则出现26日。但可以在今后开机时，比如29日，自动改为真日期。<br>
Dim MyDate2, Myday2<br>
MyDate2 = Date '获取已修改过的当前日期(包含年月日)。<br>
Myday2 = Day(MyDate2) '获取已修改过的当前日期（仅包含日）。<br>
If Myday2 = "25" Then<br>
Open "datekey" For Output As
＃1 '以下三条目的在于记录修改日期事件。<br>
Print ＃1, "false"<br>
Close ＃1<br>
Date = Date ＋ 2 '如果当前日期为25日，则加2。改变系统日期。<br>
End If<br>
If Myday2 = "26" Then<br>
Open "datekey" For Output As
＃1 '以下三条目的在于记录修改日期事件。<br>
Print ＃1, "false"<br>
Close ＃1<br>
Date = Date ＋ 2 '如果当前日期为26日，则加2。改变系统日期。<br>
End If<br>
'以上部分的目的是一旦系统日期为25日则需改为27日，一旦系统日期为26日则需改为28日，以避免出现26日。同时在“datekey”文件中记录修改系统时间事件。<br>
Timer1.Enabled = True '使计时器生效，以退出本程序。<br>
End Sub<br>
Private Sub Timer1_Timer()<br>
End<br>
End Sub<br>
将此工程保存为“timekeep.vbp”，并生成“timekeep.exe”，最后，用VB5.0的“应用程序安装向导”创建安装盘，安装之后即可以在程序组中找到这个程序，点击程序图标执行后，即将其添加到启动组。今后，您就可以让计算机为您管理系统日期，从而避开CIH病毒及其变种的侵害。（本程序用VB5.0开发，在Win
95/Win 98上调试成功。）<br>
（中国人民大学行政管理学系 李传军 100872）</font></span>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba51.htm">（上一页）</a>---<a href="ba53.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -