外挂突然"no function definition",版主救命...................

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

HGQ8888 发表于 2014-6-11 20:19
那奇怪了,我明明把系统日期调到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)
)
)
)

(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
大概看了下，是有和日期有关的，存储在注册表里，你油箱多少，我发你源码

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

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

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

查看注册标的确原程序有这有这样的动做.

账号		自动登录	找回密码
密码			注册

[已解答] 外挂突然"no function definition",版主救命...................