设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 300|回复: 16

[发布] 硬盘锁注册加使用时间限时,纯代码!

[复制链接]

签到天数: 118 天

连续签到: 2 天

[LV.6]常住居民II

已领礼包: 160个

财富等级: 日进斗金

发表于 2018-8-10 11:25:13 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
  1. (defun UseLimit (/ FIND_SERIALNUMBER regNumber num regnum reg_path)
  2.   (vl-load-com);
  3. *****获取网络时间******
  4. (defun get-time (/ xpost var)
  5.     (if (SetQ xPost (vlax-get-or-create-object "Microsoft.XMLHTTP"))
  6.         (progn
  7.             ;;同步打开连接
  8.             (vlax-invoke-method
  9.                 XPOST                    'OPEN
  10.                 "Put"                    " Http://time.nist.gov:13"
  11.                 :vlax-false
  12.                )
  13.             ;;发送请求
  14.             (vlax-invoke-method XPOST 'Send)
  15.             ;;判断状态
  16.             (while (/= (vlax-get-property xpost 'readyState) 4))
  17.             ;;取出结果
  18.             (while
  19.                 (not (setq var (vlax-get-property xpost 'responsetext)))
  20.             )
  21.             ;;释放资源
  22.             (vlax-release-object xPost)
  23.             ;;返回
  24.             var
  25.         )
  26.     )
  27. )
  28. ;*****时间限制**************  
  29. (defun limitime (/ time)
  30.     ;本地时间 取消该项避免修改本地时间跳过时间限制(setq time (atoi (rtos (getvar "cdate"))))
  31.     (setq time1 (substr (GET-TIME) 8 8)) ;网络时间
  32.     (setq nettime (atoi (strcat "20" (substr time1 1 2) (substr time1 4 2) (substr time1 7 7))))
  33.     (if (< nettime 20180801) T nil) ;设置试用时间
  34.     )
  35. ;*****获取硬盘序列号**********
  36.   (defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL)
  37.     (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
  38.     (setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE))
  39.     (setq VAL (vl-catch-all-apply
  40.                 'vlax-get
  41.                 (list VAL "SerialNumber")
  42.               )
  43.     )
  44.     (vlax-release-object FILSYS)
  45.     (if        (vl-catch-all-error-p VAL)
  46.       (setq VAL NIL)
  47.       VAL
  48.     )
  49.   )
  50. ;*****注册程序****************
  51.   (if (not (limitime))
  52.     (progn
  53.   (setq reg_path "HKEY_CURRENT_USER\\Software\\KenFiles\\temp")
  54.   (setq regNumber (vl-registry-read reg_path "注册码"))
  55.   (if (/= regNumber
  56.          (itoa
  57.               (+ (/ (FIND_SERIALNUMBER "C:") 2) 1234567);;;注册码=申请码/2+1234567
  58.          )
  59.       )
  60.     (progn
  61.       (setq num (itoa (FIND_SERIALNUMBER "C:")))
  62.       (setq regnum (itoa (+ (/ (atoi num) 2) 1234567)));;;注册码=申请码/2+1234567
  63.       (princ
  64.         (strcat "您的申请码为: " num)
  65.       )
  66.       (setq regNumber (getstring "\n请输入注册码:"))
  67.       (if (/= regNumber regnum)
  68.         (progn
  69.           (alert "注册码无效!")
  70.           (princ"\n退出程序!")
  71.         )
  72.         (progn
  73.           (vl-registry-write reg_path "注册码" regnum)
  74.           (alert "您已成功注册!")
  75.         )
  76.       )
  77.       T
  78.     )
  79.     nil
  80.   )
  81.   )
  82.     nil
  83.     )
  84. )
  85. ;*************************************
  86. (defun c:XX()
  87.   (if (not (UseLimit))
  88.     (progn
  89.   ;..........主程序.........
  90.   )
  91.     )
  92.   (princ)
  93.   )

2018-08-10 更新本地时间改为网络时间。
旧贴:http://bbs.xdcad.net/thread-713143-1-1.html

评分

参与人数 4D豆 +30 收起 理由
liunian0524 + 15 有始有终奖!
Lisphk + 5 很给力!经验;技术要点;资料分享奖!
/db_自贡黄明儒_ + 5 很给力!经验;技术要点;资料分享奖!
marting + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

签到天数: 527 天

连续签到: 5 天

[LV.9]以坛为家II

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-8-10 11:27:09 | 显示全部楼层
感谢楼主分享,试下获取时间函数,返回错误结果,是不是时间服务器访问不了?

命令: (get-time)
; 错误: Automation 错误。 指定资源下载失败。

点评

我的机子加载获取网络时间这个函数后是可以获取时间 命令: (get-time) "\n58340 18-08-10 08:05:14 50 0 0 389.0 UTC(NIST) * \n"  详情 回复 发表于 2018-8-10 16:06
我这里的机器可以正常访问。  详情 回复 发表于 2018-8-10 13:57
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 118 天

连续签到: 2 天

[LV.6]常住居民II

已领礼包: 160个

财富等级: 日进斗金

 楼主| 发表于 2018-8-10 13:57:43 | 显示全部楼层
marting 发表于 2018-8-10 11:27
感谢楼主分享,试下获取时间函数,返回错误结果,是不是时间服务器访问不了?

命令: (get-time)

我这里的机器可以正常访问。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 555 天

连续签到: 49 天

[LV.9]以坛为家II

已领礼包: 967个

财富等级: 财运亨通

发表于 2018-8-10 14:29:08 | 显示全部楼层
Application Error: 0 :- Automation 错误。 系统未找到指定的资源。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 118 天

连续签到: 2 天

[LV.6]常住居民II

已领礼包: 160个

财富等级: 日进斗金

 楼主| 发表于 2018-8-10 16:06:56 | 显示全部楼层
marting 发表于 2018-8-10 11:27
感谢楼主分享,试下获取时间函数,返回错误结果,是不是时间服务器访问不了?

命令: (get-time)

我的机子加载获取网络时间这个函数后是可以获取时间
命令: (get-time)
"\n58340 18-08-10 08:05:14 50 0 0 389.0 UTC(NIST) * \n"
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 750 天

连续签到: 5 天

[LV.10]以坛为家III

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-8-10 16:10:41 | 显示全部楼层
75215195 发表于 2018-8-10 16:06
我的机子加载获取网络时间这个函数后是可以获取时间
命令: (get-time)
"\n58340 18-08-10 08:05:14 50  ...

; 错误: Automation 错误。 指定资源下载失败。

我这里也是,看来是时间服务器有的地方不能访问

点评

_$ GET-TIME _$ (GET-TIME) "\n58340 18-08-10 08:12:12 50 0 0 378.0 UTC(NIST) * \n" _$ 我换了一个地方测试也是成功访问的。浙江电信和浙江联通  详情 回复 发表于 2018-8-10 16:13
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 118 天

连续签到: 2 天

[LV.6]常住居民II

已领礼包: 160个

财富等级: 日进斗金

 楼主| 发表于 2018-8-10 16:13:41 | 显示全部楼层
Lisphk 发表于 2018-8-10 16:10
; 错误: Automation 错误。 指定资源下载失败。

我这里也是,看来是时间服务器有的地方不能访问

_$

GET-TIME
_$ (GET-TIME)
"\n58340 18-08-10 08:12:12 50 0 0 378.0 UTC(NIST) * \n"
_$

我换了一个地方测试也是成功访问的。浙江电信和浙江联通
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1696 天

连续签到: 15 天

[LV.Master]伴坛终老I

已领礼包: 3373个

财富等级: 富可敌国

发表于 2018-8-10 21:23:54 | 显示全部楼层
有个疑问,如果不能联网,岂不是不能获取网络时间了?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 130 天

连续签到: 3 天

[LV.7]常住居民III

已领礼包: 113个

财富等级: 日进斗金

发表于 2018-8-11 09:16:13 | 显示全部楼层
这个挺好,我也要把程序加密下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 647 天

连续签到: 132 天

[LV.9]以坛为家II

已领礼包: 1446个

财富等级: 财源广进

发表于 2018-8-11 09:22:02 | 显示全部楼层
做一个热心并受欢迎的人
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 482 天

连续签到: 1 天

[LV.9]以坛为家II

点击这里给我发消息

已领礼包: 588个

财富等级: 财运亨通

发表于 2018-8-11 16:41:33 | 显示全部楼层
可以改成获取  www.baidu.com 用正则表达式提取出返回页面的时间

点评

就是这个函数了 (XD::TIME:InternetTime)获取INTERNET时间服务器本地标准时间24 个回复 - 260 次查看**** 本内容被作者隐藏 **** 命令: (XD::TIME:InternetTime "YYYY.MO.DD HH:MM:SS") "2018.03.17 00:15:47"  详情 回复 发表于 2018-8-11 17:33
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1141 天

连续签到: 35 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-8-11 17:33:27 | 显示全部楼层
eachy 发表于 2018-8-11 16:41
可以改成获取  www.baidu.com 用正则表达式提取出返回页面的时间

就是这个函数了

(XD::TIME:InternetTime)获取INTERNET时间服务器本地标准时间
24 个回复 - 260 次查看
**** 本内容被作者隐藏 **** 命令: (XD::TIME:InternetTime "YYYY.MO.DD HH:MM:SS") "2018.03.17 00:15:47" 命令: (XD::TIME:InternetTime "YYYY-MO-DD HH:MM:SS") "2018-03-17 00:16:57" 命令: (XD::TIME:In ...
2018-3-17 00:19 - marting - 开源函数库

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1988 天

连续签到: 86 天

[LV.Master]伴坛终老I

已领礼包: 5903个

财富等级: 富甲天下

发表于 2018-8-12 00:01:45 | 显示全部楼层
正需要这个。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 89 天

连续签到: 3 天

[LV.6]常住居民II

已领礼包: 9个

财富等级: 恭喜发财

发表于 2018-8-25 09:07:24 | 显示全部楼层
强大!!!!!学习一下先
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 347 天

连续签到: 6 天

[LV.8]以坛为家I

已领礼包: 106个

财富等级: 日进斗金

发表于 2018-8-25 11:38:45 | 显示全部楼层
我这里的机器可以正常访问。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2018-10-20 10:42 , Processed in 0.207189 second(s), 60 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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