限制试用次数的小程序

baitang36

(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")
    )
  )
)

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

自贡黄明儒

我win7 ,结果如下：

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

f4800

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

baitang36

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

不错的想法

vectra

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

hetozju_ming

等大家反馈

baitang36

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

重新下载试试

p-3-ianlcc

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

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

masterlong

文件名里能用":"？

baitang36

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

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

masterlong

这个就是独创的重点么？

p-3-ianlcc

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

我是在WIN10、AUTOCAD 2020测试的
64BIT的作业系统