[讨论]：关于日期的定义

啵浪鼓

下面这段程序可能会造成人为的修改时间,怎样在第一次运行此程序时记录下来当前时间写进注册表,而其后每次启动CAD时不会再重新将当前时间再次写入注册表呢?

求教高手!!!

(defun time(/ key)
(if(> (fix(- (getvar "cdate") 2.008e+007)) 930)
(progn
(alert "程序运行时出现错误!!")
(setq key(getstring "\nDo you want to EXIT the program now?(y/n)"))
(if(or(= "dana" key)
(= "DANA" key)
)
(progn
(alert "请速与管理员联系!!")
(if(> (fix(- (getvar "cdate") 2.008e+007)) 1230)
(setq tk nil)
)
)


QQ:22903161
QQ群:9803179
邮箱:jacky_2k@163.com

啵浪鼓

...怎么没人写啊

mkhsj927

第一次写入注册表，第二次比较注册表，时间不同则不再写入

啵浪鼓

楼上的mkhsj927 ,能否说明白点,给个程序好吗?

mkhsj927

(setq CurrentTime (itoa (fix(- (getvar "cdate") 2.008e+007))));;取得当前时间
(setq FirstTime (vl-registry-read "HKEY_LOCAL_MACHINE\\AotoDesk\\AutoCAD\\" "FirsTtime"));;从注册表中读取记录的时间
(if FirstTime;;时间已记录在注册表中
   (if (> CurrentTime (read FirstTime));;当前时间已经超过限制
     (progn
                ;;;你的退出代码
          )
       )
       (vl-registry-write "HKEY_LOCAL_MACHINE\\AotoDesk\\AutoCAD\\" "FirsTtime" CurrentTime)
      ;;注册表中没有，则说明是第一次运行此程序，把当前时间写入注册表
)

没经过测试，但方法应该是这样，自己琢磨琢磨吧。这种限制方法很容易被破解的！！！

啵浪鼓

程序如果如下面写,就存在改时间依然可用,第一段得出的差额没什么用,因为如果人为的修改电脑时间就没依据了,应该还得再加上另一个附加条件什么的吧?
能不能这样写:依下面的差额值为:870,如果每过一天就自动减少一天,不管该用户是否使用,是否改时间等都不存在此限制
另外:这870是天数吗?怎么我将时间增加了一天,只得出879呢,依当前时间为2005年3月29日,到2005年12月31日应该为277呀???这870是怎么计算的?

(defun time (/ CurrentTime FirstTime key)
  (setq CurrentTime (itoa (fix (- (getvar "cdate") (getvar "cdate")))))  ;将当前时间归0
(setq FirstTime (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\AutoDESK\\autoCAD\\"

"FirsTtime"))       ;从注册表中读取记录的时间
(if FirstTime      ;时间已记录在注册表中
   (if (> (read CurrentTime) (read FirstTime)) ;当前时间已经超过限制
      (progn               ;退出代码
              (alert "程序运行出现重大错误!")
              (setq key (getstring "\n Do you want to EXIT the program now? (y/n)"))
              (if (or(= "dana" key)
                     (= "DANA key")
                  )
                 (progn
                       (alert "请速与管理员联系!")
                       (setq s nil)
                       (princ)
                  )
               )
            )
        )
    )
  (setq SystemTime (itoa (fix (- 2.00512e+007 (getvar "cdate")))))
  (vl-registry-write "HKEY_LOCAL_MACHINE\\SOFTWARE\\AutoDESK\\autoCAD\\" "FirsTtime"

SystemTime)
;注册表中没有,则说明是第一次运行此程序,把当前时间写入注册表
)

mkhsj927

问题是：别人既然改了时间，你怎么知道过了一天了？他天天改时间，你就判断不出来了！！！

啵浪鼓

看来还是XP的激活有用,我改了时间它依然认识,不知微软那帮高手咋写的