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

qmqyqj

首先感谢郎大大的源码分享，并指明出处 http://bbs.mjtd.com/thread-112653-1-1.html
这个是郎大大分享的一段lsp注册模块，但是本人测试，无法使用，不知道是什么原因引起的，道行太浅，请求前辈们帮看看，指导一二！

2. ;;; ==============================================
   
3. ;;; lsp注册模块
   
4. ;;; 使用方法，将(jiany0001)插到你的程序中即可使用
   
5. ;;; ==============================================
   
6. (defun jiany0001(/ bb dcl_re f fname fsys jqm n zcm)
   
7.   (vl-load-com)
   
8.   (defun jy (jqm)         ; 算法:注册码=(机器码+144356842)^0.89取整,可自己修改
   
9.     (itoa (fix (expt (+ (atoi jqm) 144356842) 0.89))))
   
10.   (setq fsys (vlax-create-object "Scripting.FileSystemObject"))
    
11.   (if (/= (vlax-invoke-method fsys "DriveExists" "C") :vlax-false)
    
12.     (setq jqm (itoa (vlax-get-property (vlax-invoke-method fsys "GetDrive" "C") "SerialNumber"))))
    
13.   (setq zcm (vl-registry-read "HKEY_CURRENT_USER\\Software\\TH++\" "Number"))
    
14.   (if (/= zcm (jy jqm))
    
15.     (progn
    
16.       (setq fname (vl-filename-mktemp "zhuc.dcl") f (open fname "w"))
    
17.       (write-line "zhuc:dialog{ label="注册信息";" f)
    
18.       (write-line ":edit_box{label=" 机器码";key="e01";edit_width=18;}" f)
    
19.       (write-line ":edit_box{label=" 授权码";key="e02";edit_width=18;}" f)
    
20.       (write-line ":row{:button {label="注册";key="e03";is_default=true;}" f)
    
21.       (write-line ":button {label="取消";is_cancel=true;}}}" f)
    
22.       (close f)
    
23.       (new_dialog "zhuc" (setq dcl_re (load_dialog fname)))
    
24.       (set_tile "e01" jqm)
    
25.       (set_tile "e02" "联系QQ:XXXXXX")
    
26.       (action_tile "e03" "(setq zcm  (get_tile "e02")) (done_dialog 1)")
    
27.       (if (= (start_dialog) 1)(vl-registry-write "HKEY_CURRENT_USER\\software\\TH++\" "Number" zcm))
    
28.       (unload_dialog dcl_re)
    
29.       (vl-file-delete fname)
    
30.       (if (/= zcm (jy jqm))
    
31. (progn  (alert "注册失败!") (exit))
    
32. (alert "注册成功!"))))
    
33.   (princ)
    
34. )

;;; ==============================================<br /> ;;; lsp注册模块<br /> ;;; 使用方法，将(jiany0001)插到你的程序中即可使用<br /> ;;; ==============================================<br /> (defun jiany0001(/ bb dcl_re f fname fsys jqm n zcm)<br />   (vl-load-com)<br />   (defun jy (jqm)         ; 算法:注册码=(机器码+144356842)^0.89取整,可自己修改<br />     (itoa (fix (expt (+ (atoi jqm) 144356842) 0.89))))<br />   (setq fsys (vlax-create-object "Scripting.FileSystemObject"))<br />   (if (/= (vlax-invoke-method fsys "DriveExists" "C") :vlax-false)<br />     (setq jqm (itoa (vlax-get-property (vlax-invoke-method fsys "GetDrive" "C") "SerialNumber"))))<br />   (setq zcm (vl-registry-read "HKEY_CURRENT_USER\\Software\\TH++\" "Number"))<br />   (if (/= zcm (jy jqm))<br />     (progn<br />       (setq fname (vl-filename-mktemp "zhuc.dcl") f (open fname "w"))<br />       (write-line "zhuc:dialog{ label="注册信息";" f)<br />       (write-line ":edit_box{label=" 机器码";key="e01";edit_width=18;}" f)<br />       (write-line ":edit_box{label=" 授权码";key="e02";edit_width=18;}" f)<br />       (write-line ":row{:button {label="注册";key="e03";is_default=true;}" f)<br />       (write-line ":button {label="取消";is_cancel=true;}}}" f)<br />       (close f)<br />       (new_dialog "zhuc" (setq dcl_re (load_dialog fname)))<br />       (set_tile "e01" jqm)<br />       (set_tile "e02" "联系QQ:XXXXXX")<br />       (action_tile "e03" "(setq zcm  (get_tile "e02")) (done_dialog 1)")<br />       (if (= (start_dialog) 1)(vl-registry-write "HKEY_CURRENT_USER\\software\\TH++\" "Number" zcm))<br />       (unload_dialog dcl_re)<br />       (vl-file-delete fname)<br />       (if (/= zcm (jy jqm))<br /> (progn  (alert "注册失败!") (exit))<br /> (alert "注册成功!"))))<br />   (princ)<br /> )

liwen888888

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

2013127ll

这个能用，cad2007版本没有问题

f4800

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