[求助]跪地求时间限制,次数限制源代码!

wuxuloveguo

如题!好象在论坛见过哪位朋友做了个VLX的,是注册,使用期限和使用次数的三种选择模式!一直在寻找中!也想学习一下!

不知道那位朋友有这方面的源码,可否提供给我!在此万分感谢!如果不方便放出的话!可发到我信箱:myloveflyer@163.com

我这里有注册源代码,可相互交流!毕竟学习是在共同学习中进步的!

1291500406

(setq time1 20190301)
(setq time2 (getvar "CDATE"))
;(setq time2 (get-time))
  (if (<=  time2 time1)
          (PRINC "\n必强工具箱将于2019年03月01日过期")
          (

      ((vl-file-delete "D:\\必强工具箱\\必强程序数据库\\sys\\必强程序启动密匙.txt") )
)
)



(defun get-time        (/ xpost var)
    (if        (SetQ xPost (vlax-get-or-create-object "Microsoft.XMLHTTP"))
        (progn
     
            (vlax-invoke-method
                XPOST                    'OPEN
                "Put"                    " Http://time.nist.gov:13"
                :vlax-false
               )

            (vlax-invoke-method XPOST 'Send)

            (while (/= (vlax-get-property xpost 'readyState) 4))

            (while
                (not (setq var (vlax-get-property xpost 'responsetext)))
            )
      
            (vlax-release-object xPost)

            var
        )
    )
)

1291500406

(defun c:cishu()
(IF (SETQ TMPTXT (open "C:\\Program Files\\次数计数.TXT" "R"))
  (progn
  (setq tmpxx(READ-LINE tmptxt))
  (CLOSE TMPTXT)
  (setq tmpxx(1+(fix(atof tmpxx))))
  (SETQ TMPTXT (open "C:\\Program Files\\次数计数.TXT" "w"))
  (write-line (itoa tmpxx) tmptxt)
  (CLOSE TMPTXT)
)
  (progn
    (SETQ TMPTXT (open "C:\\Program Files\\次数计数.TXT" "w"))
    (write-line "1" tmptxt)
    (CLOSE TMPTXT)
  )
)

(if (< tmpxx 100)
(progn
(prompt "试用次数内")
)
(progn
(alert "试用超过限制")
)
)
)

nyistjz

(if (< 20180808 (FIX (GETVAR "cdate")))
  (PROGN
    (ALERT
      "\n　本程已有免费更新!请与作者联系谢谢,按确定可以正常使用。"
    )
  )
)

c3a139

在论坛里搜索一下，有类似问题

走走逛逛瞧瞧

sunny_8848

时间限制怎么不对

趣意人生

好厉害的样子！！！

ajunseo

好厉害不错啊

wx_fCZsGgCb

好厉害的样子！！！