吾爱汇编论坛

 找回密码
 立即注册

QQ登录

绑定QQ避免忘记帐号

查看: 556|回复: 71

[源码] 电脑盘符路径及序列号表

  [复制链接]

  离线 

升级   13.33%

zhangmaobo721 发表于 2021-11-23 09:05 | 显示全部楼层 |阅读模式


;; ;电脑盘符路径及序列号表
(DEFUN GetDriverlist (/ FSO Drives Path SerialNumber pclst)

;; ;电脑盘符路径及序列号表
(DEFUN GetDriverlist (/ FSO Drives Path SerialNumber pclst)
  (setq fso (vlax-create-object "Scripting.FileSystemObject"))
  (setq        Drives (vlax-get-property fso "Drives"))
  (vlax-for n drives
    (and
      (= 2 (vlax-get-property n 'DriveType))
      (setq Path (vlax-get-property n 'Path))
      (setq SerialNumber
             (vl-princ-to-string
               (vlax-get-property n 'SerialNumber)
             )
      )
      (setq pclst (cons        (list (vl-string-trim "\" :" Path)
                              (strcat "PC" (substr SerialNumber 1 16))
                        )
                        pclst
                  )
      )        
    )
  )
  (reverse pclst)
)

评分

参与人数 12HB +14 THX +6 收起 理由
agan8888 + 1
小菜虫 + 1 [吾爱汇编论坛52HB.COM]-感谢楼主热心分享,小小评分不成敬意!
ialove + 1 [吾爱汇编论坛52HB.COM]-感谢楼主热心分享,小小评分不成敬意!
pmm018 + 1
endbeach + 1 + 1
king51999 + 1 [快捷评语]--积极评分,从我做起。感谢分享!
pupu + 1
gwgirl + 1 [快捷评语]--2021年,我们爱0爱1
cunzhang2016 + 1
liugu0hai + 1 积极评分,谢谢分享
莣孒嬡沵芣蓜 + 1 + 1
Shark_鹏 + 6 + 1 [快捷评语]--你将受到所有人的崇拜!

查看全部评分

吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   90.83%

Shark_鹏 发表于 2021-11-23 09:12 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   13.33%

 楼主| zhangmaobo721 发表于 2021-11-23 09:43 | 显示全部楼层


这是LSP语言   用于CAD插件  
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   45%

1250110641 发表于 2021-11-23 23:51 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   75%

狼族 发表于 2022-1-6 08:46 | 显示全部楼层


谢谢分享,学习下!!
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

害怕保卫电脑 发表于 2022-1-22 20:12 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   18%

LxAsK 发表于 2022-1-29 09:28 | 显示全部楼层


顶帖,不仅谢谢楼主,也能赚HB
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   40.58%

LQO92613 发表于 2022-1-29 09:34 | 显示全部楼层


没有比这个更强的啦!!!
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   16.67%

茉莉79 发表于 2022-1-31 13:46 | 显示全部楼层


来了来了,顶一顶,好东西!
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   65.94%

ftN2 发表于 2022-1-31 13:46 | 显示全部楼层


谢谢分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 警告:本站严惩灌水回复,尊重自己从尊重他人开始!

1层
2层
3层
4层
5层
6层
7层
8层
9层
10层

免责声明

吾爱汇编论坛(www.52hb.com)所发布的破解补丁、注册机、逆向教程、逆向文章等,包含但不限于上述内容,仅限用于学习和研究目的,不得用于非法途径或商业行为。否则,一切后果请用户自行承担。本站内容源于网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除。如果您喜欢某程序,请购买正版,支持正版,获得正版优质服务。如有侵权请邮件或微信与我们联系处理。

站长邮箱:SharkHeng@iCloud.com
站长微信:SharkHeng


QQ|RSS|手机版|小黑屋|帮助|吾爱汇编论坛 ( 京公网安备11011502005403号 , 京ICP备20003498号 )

GMT+8, 2022-5-29 03:20 , Processed in 0.329841 second(s), 76 queries .

Powered by Discuz!

吾爱汇编论坛 www.52hb.com

快速回复 返回顶部 返回列表