返回本次系统开机时间

zark

(defun C:GetLogTime (/ $GetLogDir DIR FLAG FN STR STRT TIME UDIR)
  (defun $GetLogDir (/ DIR FILE FN KEY STR VAL)
  (setq fn "c:\\tmp.txt")
  (vl-cmdf "_.Shell" (strcat "echo %systemroot% >" fn))
  (setq file (open fn "r"))
  (setq str (read-line file))
  (close file)
  (vl-file-delete fn)
  (setq key "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\SchedulingAgent")
  (setq val (cdr (vl-registry-read key "LogPath")));属可扩充字符串值返回点表形式
  (setq dir (vl-string-subst
       (strcase (vl-string-trim " " str))
       (strcase "%systemroot%")
       (strcase val)
     )
  )
  (findfile dir)
)
  
  (cond
    ((setq Udir ($GetLogDir))
     (setq dir "c:\\ansi.txt")
     (vl-cmdf "_.shell" (strcat "type " Udir " > " dir))
     (setq fn (open dir "r")
    Flag T
     )
     (while (And Flag (setq str (read-line fn)))
       (if (vl-string-search "已启动于" str)
  (setq StrT str)
       )
       (if (vl-string-search "在这条线以上的是最新输入项" str)
  (setq Time (substr StrT 11)
        Flag Nil
  )
       )
     )
     (close fn)
     (vl-file-delete dir)
     Time
    )
    (T nil)
  )
)





此函数返回操作系统本次机关时间，不足之处是程序两次调用SHELL，屏幕会闪两次。欢迎高手来解决此问题哦


该贴已经同步到 zark的微博

xsso

; 错误: 参数类型错误: consp "C:\\WINDOWS\\SchedLgU.Txt"
(setq val (vl-registry-read key "LogPath")) 这里出错了，因为不知道原理所以不会修正

zark

xsso 发表于 2013-2-8 21:29
; 错误: 参数类型错误: consp "C:\\WINDOWS\\SchedLgU.Txt"
(setq val (vl-registry-read key "LogPath")) ...

命令: GetLogTime
_.Shell
OS Command: echo %systemroot% >c:\tmp.txt
命令: _.shell
OS Command: type C:\WINDOWS\TASKS\SCHEDLGU.TXT > c:\ansi.txt
命令: "2013/2/8 19:26:08"

mono

能不能用呀？？？

sunny20102

Highflybird有个帖子关于ActiveX的，你找下，应该能找到
注意    "Win32_OperatingSystem" 此进程里面BootUpTime

微博评论

转发微博

来自 大侠莉萝 的新浪微博

微博评论

转发微博

来自 哈喽小破孩1992 的新浪微博

lsjj

為什麼禁止發言還能發言？

微博评论

转发微博

来自 2012我要聚财曼丽1994 的新浪微博

sageman

5楼能否详解一下呢？