nzl1116 发表于 2014-6-11 20:29:13

HGQ8888 发表于 2014-6-11 20:19 static/image/common/back.gif
那奇怪了,我明明把系统日期调到2030年测评过没事的啊

我没仔细看，晚饭喝了点酒，要不我把注册日期有关的函数给发上来；我知道是谁写的，但在不清楚真相之前不好说。(defun TEST_REGX ()
(setq WDATE (GETVAR "cdate"))
(setq        Y_DATE (VL-REGISTRY-READ
               "HKEY_LOCAL_MACHINE\\SOFTWARE\\Y_Cwmold\\R15"
               "date"
             )
)
(setq        Y1_DATE        (VL-REGISTRY-READ
                  (STRCAT "HKEY_LOCAL_MACHINE\\" (vlax-product-key))
                  "Information"
                )
)
(setq        Y2_DATE        (VL-REGISTRY-READ
                  (STRCAT "HKEY_CURRENT_USER\\" (vlax-product-key))
                  "Information"
                )
)
(setq Y_DATE_ORG Y_DATE)
(if (= 1
       (- (ATOI (SUBSTR Y_DATE 1 4)) (ATOI (SUBSTR Y1_DATE 1 4)))
      )
    (setq Y_DATE (STRCAT (SUBSTR Y1_DATE 1 4)
                       (ITOA (+ 12 (ATOI (SUBSTR Y_DATE 5 2))))
                       (SUBSTR Y_DATE 7)
               )
    )
)
(if (FINDFILE "ymold_pass.fas")
    (LOAD "ymold_pass.fas")
    (progn (setq Y_MOLD (STRCAT (GETVAR "acadver") "-" (GETVAR "_linfo")))
           (setq MHZ nil)
           (setq CPU
                  (VL-REGISTRY-READ
                  "HKEY_LOCAL_MACHINE\\HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0"
                  "ProcessorNameString"
                  )
           )
           (setq CPUVER
                  (VL-REGISTRY-READ
                  "HKEY_LOCAL_MACHINE\\HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0"
                  "VendorIdentifier"
                  )
           )
           (setq ACAD_VER (GETVAR "acadver"))
    )
)
(COND
    ((and (= Y_MOLD (STRCAT (GETVAR "acadver") "-" (GETVAR "_linfo")))
          (= "SuperPro" (SUBSTR (GETVAR "_linfo") 1 8))
   )
   (PRIN1)
    )
    ((and
       (=
       CPU
       (VL-REGISTRY-READ
           "HKEY_LOCAL_MACHINE\\HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0"
           "ProcessorNameString"
       )
       )
       (=
       CPUVER
       (VL-REGISTRY-READ
           "HKEY_LOCAL_MACHINE\\HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0"
           "VendorIdentifier"
       )
       )
       (= ACAD_VER (GETVAR "acadver"))
   )
   (PRIN1)
    )
    ((> (ATOF Y_DATE) WDATE)
   (if (and (>= (- (ATOF Y_DATE) (ATOF Y1_DATE)) 0)
              (< (- (ATOF Y_DATE) (ATOF Y1_DATE)) 300)
       )
       (SETVAR "modemacro" "刚ノ戳骸")
       (progn (SETVAR "modemacro" "刚ノ戳骸")
              (PRINC "\n刚ノ戳(3る)筁,磅︽硉穦搭絯!!!")
       )
   )
   (while (< (- (GETVAR "cdate") WDATE) 1.0e-006) nil)
    )
    ((and (>= (- (ATOF Y_DATE) (ATOF Y1_DATE)) 0)
          (< (- (ATOF Y_DATE) (ATOF Y1_DATE)) 300)
          (= Y1_DATE Y2_DATE)
   )
   (SETVAR "modemacro" "刚ノ")
    )
    (T
   (SETVAR "modemacro" "刚ノ戳骸")
   (PRINC "\n刚ノ戳(3る)筁,磅︽硉穦搭絯!!!")
   (while (< (- (GETVAR "cdate") WDATE) 1.0e-006) nil)
    )
)
)

HGQ8888 发表于 2014-6-11 20:33:20

nzl1116 发表于 2014-6-11 20:15 static/image/common/back.gif
大概看了下，是有和日期有关的，存储在注册表里，你油箱多少，我发你源码

谢谢!邮件收到了.请查看邮件再帮忙处理下.十分感谢!

HGQ8888 发表于 2014-6-11 20:35:54

nzl1116 发表于 2014-6-11 20:29 static/image/common/back.gif
我没仔细看，晚饭喝了点酒，要不我把注册日期有关的函数给发上来；我知道是谁写的，但在不清楚真相之前不 ...

查看注册标的确原程序有这有这样的动做.
页: 1 [2]
查看完整版本: 外挂突然"no function definition",版主救命...................