一个简单的lsp注册模块函数

langjs

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



;;; =====================================
;;; 配套的注册机程序
;;; =====================================
(defun c:zhuc (/ dcl_re f fname jqm)
  (vl-load-com)
  (defun jy (jqm)         ; 算法:注册码=(机器码+144356842)^0.89取整
    (itoa (fix (expt (+ (atoi jqm) 144356842) 0.89))))
  (setq fname (vl-filename-mktemp "zhuc.dcl")f (open fname "w"))
  (write-line "zhuc:dialog{ label=\"注册机\";" f)
  (write-line ":edit_box{label=\" 机器码\";key=\"e01\";edit_width=18;}" f)
  (write-line ":edit_box{label=\" 授权码\";key=\"e02\";edit_width=18;}" f)
  (write-line ":row{:button {label=\"计算\";key=\"e03\";is_default=true;}" f)
  (write-line ":button {label=\"取消\";is_cancel=true;}}}" f)
  (close f)
  (new_dialog "zhuc" (setq dcl_re (load_dialog fname)))
  (action_tile "e03" "(setq jqm  (get_tile \"e01\")) (set_tile \"e02\" (jy jqm))")
  (start_dialog)
  (unload_dialog dcl_re)
  (vl-file-delete fname)
  (princ)
)

p-3-ianlcc

langjs大大，请问…
假设我要设置的LSP是ZZZ.LSP
那我就是把ZZZ.LSP进程码复制放在您PO的这个源码后面，然后把前面的叙述修改一下（譬如：DEFUN ZZZ(/ bb dcl_re f fname fsys jqm n zcm)）吗？

baitang36

d1742647821 发表于 2021-12-16 18:52
大佬，你这个方法获取的机器码，我们全公司的人都一样，根本没有保密性啊，有其他的码吗

把c盘改成d盘。ghost系统的c盘一样，d盘一般是不一样的

yangchao2005090

ben92101 发表于 2018-7-23 23:24
@楼主 我将我的程序拷贝到文件末尾 可是程序加载后直接跳过了注册验证环节 没有起到注册的作用。
附上我的 ...

你好，你会用了么

kwok

这个好，现成的，谢谢分享，

davide888

顶了再说           

434939575

支持！必须支持！谢谢！

lostbalance

好东西啊

伪书虫86

郎大师出品必精品

cnks

支持源码！

四季因你而在

感谢分享！

love1030312

顶哦   感谢大师   我就喜欢现成的  哈哈  感谢

ysq101

下载来研究一下。。。谢谢分享