设为首页收藏本站转
开启辅助访问 发帖领奖家园QQ群申请版主版主评价切换到宽版

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 硬盘锁注册加使用时间限时，纯代码！
返回列表 发新帖
查看: 57|回复: 12

硬盘锁注册加使用时间限时，纯代码！

[复制链接]
75215195

签到天数: 96 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 159个

财富等级: 日进斗金
发表于 5 天前 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

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

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

评分

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

查看全部评分

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

使用道具 举报

marting

签到天数: 493 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 20个

财富等级: 恭喜发财
发表于 5 天前 | 显示全部楼层
感谢楼主分享，试下获取时间函数，返回错误结果，是不是时间服务器访问不了?

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

点评

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

使用道具 举报

75215195

签到天数: 96 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 159个

财富等级: 日进斗金
 楼主| 发表于 5 天前 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
marting 发表于 2018-8-10 11:27
感谢楼主分享，试下获取时间函数，返回错误结果，是不是时间服务器访问不了?

命令: (get-time)

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

使用道具 举报

lw5297590

签到天数: 490 天

连续签到: 72 天

[LV.9]以坛为家II

已领礼包: 854个

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

使用道具 举报

75215195

签到天数: 96 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 159个

财富等级: 日进斗金
 楼主| 发表于 5 天前 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
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豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

签到天数: 716 天

连续签到: 8 天

[LV.9]以坛为家II

已领礼包: 19个

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

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

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

点评

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

使用道具 举报

75215195

签到天数: 96 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 159个

财富等级: 日进斗金
 楼主| 发表于 5 天前 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
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豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ycao

签到天数: 1639 天

连续签到: 10 天

[LV.Master]伴坛终老I

已领礼包: 3266个

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

使用道具 举报

王子

签到天数: 87 天

连续签到: 9 天

[LV.6]常住居民II

已领礼包: 52个

财富等级: 招财进宝
发表于 4 天前 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这个挺好，我也要把程序加密下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yangjian001

签到天数: 580 天

连续签到: 65 天

[LV.9]以坛为家II

已领礼包: 1251个

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

使用道具 举报

eachy

签到天数: 482 天

连续签到: 1 天

[LV.9]以坛为家II

点击这里给我发消息

已领礼包: 588个

财富等级: 财运亨通
发表于 4 天前 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
可以改成获取  www.baidu.com 用正则表达式提取出返回页面的时间

点评

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

使用道具 举报

newer

签到天数: 1077 天

连续签到: 38 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝
发表于 4 天前 | 显示全部楼层
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豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

sicky111

签到天数: 1921 天

连续签到: 19 天

[LV.Master]伴坛终老I

已领礼包: 5713个

财富等级: 富甲天下
发表于 3 天前 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
正需要这个。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2018-8-15 04:09 , Processed in 0.173604 second(s), 52 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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