明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1525|回复: 3

lsp注册模块函数无法使用,请教

[复制链接]
发表于 2016-3-4 19:40 | 显示全部楼层 |阅读模式
1明经币
首先感谢郎大大的源码分享,并指明出处 http://bbs.mjtd.com/thread-112653-1-1.html
这个是郎大大分享的一段lsp注册模块,但是本人测试,无法使用,不知道是什么原因引起的,道行太浅,请求前辈们帮看看,指导一二!
  1. ;;; ==============================================
  2. ;;; lsp注册模块
  3. ;;; 使用方法,将(jiany0001)插到你的程序中即可使用
  4. ;;; ==============================================
  5. (defun jiany0001(/ bb dcl_re f fname fsys jqm n zcm)
  6.   (vl-load-com)
  7.   (defun jy (jqm)         ; 算法:注册码=(机器码+144356842)^0.89取整,可自己修改
  8.     (itoa (fix (expt (+ (atoi jqm) 144356842) 0.89))))
  9.   (setq fsys (vlax-create-object "Scripting.FileSystemObject"))
  10.   (if (/= (vlax-invoke-method fsys "DriveExists" "C") :vlax-false)
  11.     (setq jqm (itoa (vlax-get-property (vlax-invoke-method fsys "GetDrive" "C") "SerialNumber"))))
  12.   (setq zcm (vl-registry-read "HKEY_CURRENT_USER\\Software\\TH++\" "Number"))
  13.   (if (/= zcm (jy jqm))
  14.     (progn
  15.       (setq fname (vl-filename-mktemp "zhuc.dcl") f (open fname "w"))
  16.       (write-line "zhuc:dialog{ label="注册信息";" f)
  17.       (write-line ":edit_box{label=" 机器码";key="e01";edit_width=18;}" f)
  18.       (write-line ":edit_box{label=" 授权码";key="e02";edit_width=18;}" f)
  19.       (write-line ":row{:button {label="注册";key="e03";is_default=true;}" f)
  20.       (write-line ":button {label="取消";is_cancel=true;}}}" f)
  21.       (close f)
  22.       (new_dialog "zhuc" (setq dcl_re (load_dialog fname)))
  23.       (set_tile "e01" jqm)
  24.       (set_tile "e02" "联系QQ:XXXXXX")
  25.       (action_tile "e03" "(setq zcm  (get_tile "e02")) (done_dialog 1)")
  26.       (if (= (start_dialog) 1)(vl-registry-write "HKEY_CURRENT_USER\\software\\TH++\" "Number" zcm))
  27.       (unload_dialog dcl_re)
  28.       (vl-file-delete fname)
  29.       (if (/= zcm (jy jqm))
  30. (progn  (alert "注册失败!") (exit))
  31. (alert "注册成功!"))))
  32.   (princ)
  33. )

发表于 2017-7-30 08:45 | 显示全部楼层
本帖最后由 liwen888888 于 2017-7-31 21:45 编辑

这个程序可以用,但是有缺陷,原帖子里有介绍,使用方法也有。添加注册玩玩就行,没有必要较真。
回复

使用道具 举报

发表于 2018-8-22 20:37 | 显示全部楼层
这个能用,cad2007版本没有问题
回复

使用道具 举报

发表于 2020-10-31 10:12 | 显示全部楼层
这个程序可以用,但是有缺陷,原帖子里有介绍,使用方法也有。添加注册玩玩就行,没有必要较真
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2022 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2022-6-30 14:46 , Processed in 0.158178 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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