ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 508|回复: 6

[求助] 关于使用期的控制

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-11-3 07:56 | 显示全部楼层 |阅读模式
用VB6写了一个东西给同事使用(免费的),但出于某种原因(主要是安全、保密、权限上的),需要定期清理,相当于年检的性质。我设了使用期限控制,到期不能使用。那么用户到期修改电脑系统日期,怎么办?
网上有一个方法,在一个隐藏的文件中有最后登录日期记录,用当前日期与记录的最后日期比较来确定。不过,本人认为有缺陷的,比如限制30日到期,文件中记载的最后登录日期是15日(用户不是每天登录,当然不会触发隐藏文件中的记录变动),次月,用户将电脑日期改为上月20日,不就绕过了限制监控?
是否有好一点的办法?

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-3 08:01 | 显示全部楼层
如果用开、关机触发记录的修改,一是他人的电脑上怎么触发?二是有些同事晚上根本不关机
如果从事件日志中寻找日期修改的记录,百度了,没找到相关的事例代码
如果用户每天使用这个软件的,那就没问题,保证隐藏文件中的最后日期是最新的,那么若电脑系统日期一修改,马上就能比较出来

TA的精华主题

TA的得分主题

发表于 2018-11-3 08:36 | 显示全部楼层
  1. sub t()
  2. if date>#2018/11/30# then exit sub
  3. end sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-3 08:41 | 显示全部楼层

謝謝
若用戶在打開程序前,先修改電腦系統日期為28日呢?

TA的精华主题

TA的得分主题

发表于 2018-11-3 09:14 | 显示全部楼层
smhf_6 发表于 2018-11-3 08:41
謝謝
若用戶在打開程序前,先修改電腦系統日期為28日呢?

对于懂得人来说什么都是浮云,不懂的人随便弄弄就可以......

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-3 09:36 | 显示全部楼层
02761752696 发表于 2018-11-3 09:14
对于懂得人来说什么都是浮云,不懂的人随便弄弄就可以......

把哲学都拿出来了,还有甜美形象,瞬间让人没了脾气......

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-7 21:01 | 显示全部楼层
日思夜想,终于找到了一个办法:
到期日期,写在程序内不变,超出当然无效了
未到期日期,需要与隐藏文件中的日期比较,来判断是真的未到期,还是假的未到期。
因为同事用的都是局域网,这隐藏文件中的用于判断的日期,可以由我根据实际情况推送,也就是说由我控制,这样,可以有效规避用户修改系统日期引起的假未到期的情况。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 08:05 , Processed in 0.050396 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表