如何限制修改系统时间

wlltnt

限制修改系统时间，如果是2000的我会了（看以前的帖子），就是让用户没权利修改，可98的就不能了，而我们这边局域网内大部分是98的，所以应该怎么办呢
哦，我忘了说我问这的用途了，用这主要是因为有一个窗体我限制3天后不能修改（是录入时间与系统时间比较得出的结果）所以就想不让他们改系统时间这样才有用

LYP6160

这个问题也可以说是数据安全性问题，单纯不让别人修改客户机的系统时间是不行的，应该要在连接数据库时就默认为服务器的时间，这样只要设置好服务器时间就可以了。

wlltnt

你的服务器的概念是什么，是不是象网络中的服务器还是另有意思，如果是的话，那没办法，我们的局域网内没服务器

andymark

思路：在程序退出时把当前的时间写入注册表或一个文件(比较隐蔽)，下次打开时用当前的时间和写入的时间作比较。如果当前时间大于写入的时间则打开程序，小于则提示系统时间已修改并退出程序。同时向用户声明不得更改时间否则进入不了程序后果自负。

wlltnt

这个思路是挺好的，可是好象很难做，我不会耶，以后进步了，再做做看

wewyhy

以下是引用andymark在2003-11-15 13:33:54的发言：
思路：在程序退出时把当前的时间写入注册表或一个文件(比较隐蔽)，下次打开时用当前的时间和写入的时间作比较。如果当前时间大于写入的时间则打开程序，小于则提示系统时间已修改并退出程序。同时向用户声明不得更改时间否则进入不了程序后果自负。

这不是吓唬人么

baije

savetting与getting可完成,
查查帮助,有详细说明.

wlltnt

在哪里看呀，在数据库的帮助还是计算机的帮助，我都按这个关键字查找了，可找不到，虽然的够笨的，但是精神可佳，看在这份上，详细的讲一下吧：）

baije

不好意思,搞错了!应是savesetting与getsetting:
SaveSetting 语句示例
下列示例首先使用 SaveSetting 语句来建立 Windows 注册区（或 16 位 Windows 平台的.ini 档）里 MyApp 应用程序的项目，然后使用 DeleteSetting 语句来将之删除。

' 在注册区中添加一些设置值。
SaveSetting appname := "MyApp", section := "Startup", _
            key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' 删除区段及所有的设置值。
DeleteSetting "MyApp", "Startup"

GetSetting 函数示例
本示例首先使用 SaveSetting 语句来建立Windows注册区（或 16位 Windows 平台的.ini档）里 appname 应用程序的项目，然后使用 GetSetting 函数来得到其中一项设置并显示出来。因为有传入参数 default，GetSetting 函数一定会有返回值。请注意，section 名称不能用 GetSetting 函数取得。最后，使用 DeleteSetting 语句将该应用程序项删除。

' 用来保存 GetSetting 函数所返回之二维数组数据的变量。
Dim MySettings As Variant
' 在注册区中添加项目。
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50

Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
                       key := "Left", default := "25")

DeleteSetting "MyApp", "Startup"

andymark

根据自已实际情况再改动一下吧