13438138313 发表于 2022-9-27 21:27:41

感谢大佬，学习了。

boboxiake 发表于 2022-10-2 01:24:59

6666666666

596396086 发表于 2022-10-9 23:27:33

谢谢楼主分享!

boboxiake 发表于 2022-11-15 18:51:18

66666666666

dazuyishi1314 发表于 2024-4-4 19:03:38


感谢分享，感觉是好用的东西，下载来试试看

tender138 发表于 2024-7-24 15:00:47

好东西一定要顶啊

lxl304712346 发表于 2024-7-30 18:03:16

fangmin723 发表于 2020-8-31 07:26
你把上面那一句改成下面那一句，就可以获取所有盘符的序列号了

大佬，                        (setq uplst (cons (list (nth n lst) (strcat "UP" (substr (sernumConfused (cadr (nth n lst1))) 1 16))) uplst))
                        (setq n (1+ n))
                )
                       ;(foreach x pclst (if (= (car x) "C") (setq pflst (append (list (list "PC" (cadr x))) (reverse uplst)))));盘符表
        )
                               (setq pflst (append (reverse pclst) (reverse uplst)))
                               ;获取CPU序列号
                               (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))   我修改之后出现错误。

lidingyu 发表于 2024-8-5 12:53:08

有错误有错误有错误有错误有错误

hn10183051 发表于 2024-8-26 09:53:56

本帖最后由 hn10183051 于 2024-8-26 09:55 编辑

((2 "6&26BC55B9&0&_&0"))

怎么获取U盘中有&连接符号。在每台电脑上获取出来的结果也不一样

fangmin723 发表于 2024-8-26 11:30:02

hn10183051 发表于 2024-8-26 09:53
((2 "6&26BC55B9&0&_&0"))

怎么获取U盘中有&连接符号。在每台电脑上获取出来的结果也不一样

http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=175414&pid=836922&fromuid=7316343
页: 51 52 53 54 55 56 57 58 59 60 [61]
查看完整版本: （2019.5.27上传优化版示例-仅供参考）全盘符选择注册加密代码(2017年9月4日 16:20...