用VB實現在程序運行時使系統日期和不被修改

2019-11-18 17:39:34

字體：大中小

來源：轉載

供稿：網友

在開發軟件時，有時可能需要使軟件在運行時不讓別人從控制面板中修改修改系統的日期和時間，實現此功能的具體思路是：在軟件運行是自己建立一個時鐘，如果發現系統時間被修改，再用自己的時鐘將系統時間改回來就可以了，VB中有一個控件叫SysInfo,可以用它的TimeChanged事件來監測系統時間是否已修改，請看下面的例子程序：
1、建立一個標準EXE工程，在Form1上添加一個Timer控件、Label控件和SysInfo控件；
2、聲明以下變量：
'表示小時的整數
DimhAsInteger
'表示分鐘的整數
DimmAsInteger
'表示秒的整數
DimsAsInteger
'表示小時的字符串
DimstrhAsString
'表示分鐘的字符串
DimstrmAsString
'表表示秒的字符串
DimstrsAsString
'表示修改前的日期
DimriqiAsDate
'表示修改前的時刻
DimshikeAsDate

3、其它代碼如下：

EndSub

PrivateSubSysInfo1_TimeChanged()
IfNotTimeValue(Now)=shikeThen
Time=shike
EndIf
IfNotDateValue(Now)=riqiThen
Date=riqi
EndIf
EndSub

PrivateSubTimer1_Timer()
s=s 1
'由于用Timer控件計時存在一定誤差，所以每分鐘校正一次時間
Ifs>=60Then
h=Hour(Now)
m=Minute(Now)
s=Second(Now)
'零點時改變riqi變量的值
Ifh=0Then
riqi=DateValue(Now)
EndIf
EndIf
Timechange
Label1.Caption=shike
EndSub->