wuxuloveguo 发表于 2008-11-6 16:15:00

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

<p>如题!好象在论坛见过哪位朋友做了个VLX的,是注册,使用期限和使用次数的三种选择模式!一直在寻找中!也想学习一下!</p><p>不知道那位朋友有这方面的源码,可否提供给我!在此万分感谢!如果不方便放出的话!可发到我信箱:myloveflyer@163.com</p><p>我这里有注册源代码,可相互交流!毕竟学习是在共同学习中进步的!</p>

1291500406 发表于 2018-12-5 11:02:48

(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 发表于 2018-12-5 10:59:09

本帖最后由 1291500406 于 2019-5-17 21:37 编辑

(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 发表于 2018-12-8 10:24:51

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

c3a139 发表于 2008-11-7 15:13:00

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

走走逛逛瞧瞧 发表于 2019-10-30 11:04:35

sunny_8848 发表于 2019-10-30 13:40:06

时间限制怎么不对

趣意人生 发表于 2021-1-31 22:08:10

好厉害的样子！！！

ajunseo 发表于 2021-6-16 16:09:08

好厉害不错啊

wx_fCZsGgCb 发表于 2021-6-17 16:30:24

好厉害的样子！！！
页: [1] 2
查看完整版本: [求助]跪地求时间限制,次数限制源代码!