baitang36 发表于 2022-5-19 10:48:46

限制试用次数的小程序

本帖最后由 baitang36 于 2025-2-28 07:46 编辑

(defun c:tt (/ F F1 tmpxx1 tmpxx2 opr1 opr2 opw1 opw2 str1)
(setq str1 "C:\\ProgramData\\Autodesk\\acad.TXT:num")
(defun opr1 nil (open (strcat str1 "1") "R"))
(defun opr2 nil (open (strcat str1 "2") "R"))
(defun opw1 nil (open (strcat str1 "1") "w"))
(defun opw2 nil (open (strcat str1 "2") "w"))
(IF (SETQ F1 (opr1))
    (progn
      (setq tmpxx1 (read-char F1))
      (SETQ F2 (opr2))
      (setq tmpxx2 (read-char F2))
      (CLOSE F1)
      (CLOSE F2)
      (setq tmpxx1 (+ tmpxx1 1))
      (setq tmpxx2 (- tmpxx2 1))
      (SETQ F (opw1))
      (write-char tmpxx1 F)
      (CLOSE F)
      (SETQ F (opw2))
      (write-char tmpxx2 F)
      (CLOSE F)
    )
    (progn
      (SETQ F (opw1))
      (write-char 128 F)
      (CLOSE F)
      (SETQ F (opw2))
      (write-char 128 F)
      (CLOSE F)
      (setq tmpxx1 128
            tmpxx2 128
      )
    )
)

(if (and (= (+ tmpxx1 tmpxx2) 256) (<= tmpxx1 138))
                                        ;试用10次，128+10=138,char不能超255
    (progn
      (princ (strcat "已试用次数:" (itoa (- tmpxx1 128))))
      (princ)
    )
    (progn
      (alert "试用超过限制,注册联系xxx")
    )
)
)

本文用了一项独创技术，首次公开。




自贡黄明儒 发表于 2022-5-19 11:36:48

我win7 ,结果如下：

(*ERROR* "参数类型错误: streamp nil")
(_call-err-hook #<SUBR @094acf28 *ERROR*> "参数类型错误: streamp nil")
(sys-error "参数类型错误: streamp nil")
:ERROR-BREAK.28 "参数类型错误: streamp nil"
(CLOSE nil)
(C:T1) LAP+366
(#<SUBR @10132280 -rts_top->)
(#<SUBR @0c140334 veval-str-body> "(C:T1)" T #<FILE internal>)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)

f4800 发表于 2022-7-1 08:55:54

建议采用CAD自带目录那里的文件众多只要用管理员身份运行CAD然后写入文件再把文件名用 dllsysexeshx 等伪装起来一般人无法察觉的

baitang36 发表于 2022-7-1 10:21:26

f4800 发表于 2022-7-1 08:55
建议采用CAD自带目录那里的文件众多只要用管理员身份运行CAD然后写入文件再把文件名用 dllsysexe ...

不错的想法

vectra 发表于 2022-5-19 11:11:32

命令: TT 参数类型错误: streamp nil

hetozju_ming 发表于 2022-5-19 11:17:24

等大家反馈

baitang36 发表于 2022-5-19 11:18:53

vectra 发表于 2022-5-19 11:11
命令: TT 参数类型错误: streamp nil

重新下载试试

p-3-ianlcc 发表于 2022-5-19 11:27:58

baitang36 发表于 2022-5-19 11:18
重新下载试试

一样出现错误的消息
; 错误: 损坏的参数类型: streamp nil
指令:

masterlong 发表于 2022-5-19 11:28:31

文件名里能用":"？

baitang36 发表于 2022-5-19 11:29:31

p-3-ianlcc 发表于 2022-5-19 11:27
一样出现错误的消息
; 错误: 损坏的参数类型: streamp nil
指令:

你是win7系统？我只在win10下试过

masterlong 发表于 2022-5-19 11:31:03

这个就是独创的重点么？

p-3-ianlcc 发表于 2022-5-19 11:33:44

baitang36 发表于 2022-5-19 11:29
你是win7系统？我只在win10下试过

我是在WIN10、AUTOCAD 2020测试的
64BIT的作业系统
页: [1] 2 3 4
查看完整版本: 限制试用次数的小程序