2013-07-22 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch

ZZXXQQ(1468225785)于2013-07-22 21-12-57：
这没用

CCarch

四十而惑(909802100)于2013-07-22 21-13-04：
试试我以前编的一个程序，分号引的是两个子程序，主要是定制一些变量，本程序可以不需要的

CCarch

四十而惑(909802100)于2013-07-22 21-13-17：
签到

CCarch

冰心(494326805)于2013-07-22 21-14-55：
那如何才有用？

CCarch

四十而惑(909802100)于2013-07-22 21-15-49：
当然是加密狗安全

CCarch

ZZXXQQ(1468225785)于2013-07-22 21-15-58：
防君子不防小人

CCarch

冰心(494326805)于2013-07-22 21-16-03：
用过加密狗没？

CCarch

冰心(494326805)于2013-07-22 21-16-20：
我在这方面是打算开始学习，还有很多需要学习

CCarch

四十而惑(909802100)于2013-07-22 21-16-58：
编软件把功夫用在内容上，加密这种东西的确只能防君子

eachy

eachy(124471899)于2013-07-22 21-17-08：
商品化就用狗

CCarch

冰心(494326805)于2013-07-22 21-17-15：
嗯，

CCarch

仲文玉(411952877)于2013-07-22 21-17-16：
呵呵

CCarch

冰心(494326805)于2013-07-22 21-17-16：
谢谢

eachy

eachy(124471899)于2013-07-22 21-17-26：
不一定管用

CCarch

四十而惑(909802100)于2013-07-22 21-17-50：
(vl-load-com)
;;;----------------------------------------------------------------------
;|  返回磁盘的所有信息
用法: (vldos-alldriveinfo DriveLetter[STRING])
  参数1: 盘符 例如: "C:"
说明:
    返回磁盘的所有信息
返回值:
[成功]: 磁盘的所有信息
[失败]: NIL
|;
(Defun vldos-alldriveinfo (Drv / DrvObj FilSys RetVal)
  (if (setq
        FilSys (vlax-get-or-create-object "Scripting.FileSystemObject")
      )
    (progn
      (setq RetVal
             (cond
               ((= (vlax-invoke FilSys "DriveExists" Drv) 0) 0)
               ((setq DrvObj (vlax-invoke FilSys "GetDrive" Drv))
                (cond
                  ((= (vlax-get DrvObj "IsReady") 0) -1)
                  ((list
;;;                     (/ (vlax-get-property DrvObj "TotalSize")) 1000.0)
;;;                     (/ (vlax-get-property DrvObj "FreeSpace") 1000.0)
                     (vlax-get-property DrvObj "DriveType")
                     (vlax-get-property DrvObj "FileSystem")
                     (vlax-get-property DrvObj "SerialNumber")
                     (vlax-get-property DrvObj "ShareName")
                     (vlax-get-property DrvObj "VolumeName")
                   )
                  )
                )
               )
             )
      )
      (if (EQUAL (TYPE DrvObj) 'vla-object)
        (vlax-release-object DrvObj)
      )
      (vlax-release-object FilSys)
    )
  )
  RetVal
)