常春岛资源网 Design By www.syssdc.com
'要用到regtool.ocx,请下载regtool.ocx,用前请
regsvr32 regtool.ocx
核心代码
set wshshell = CreateObject("WScript.Shell") set registry = CreateObject("regtool.tob") '获取一个dictionary对象存储键名 set dict = CreateObject("Scripting.Dictionary") '列举HKEY_CLASSES_ROOT中所有键 set allkeys = registry.RegEnum("HKCR\") '排除所有键中键名有点的。 for each key in allkeys '第1个点在哪儿(跳过初始点)".") if pos>0 then 'there's a dot. Is there another one".") if pos2>0 then 'yes, so this name is version specific 'check whether we already have a 'version-independent progid! independent = left(key, pos2-1) if not dict.Exists(independent) then 'no, store it dict.Add key, 0 end if else 'this one is version-independent. 'do we already have a version-dependent 'progID in store"" for each element in dict if len(element)>len(key) then if left(element, len(key)+1)=key & "." then 'yes, return name vdpid = element exit for end if end if next 'any version dependent progID found"" then 'no, add to store dict.add key, 0 else 'yes, replace dict.Remove vdpid dict.add key, 0 end if end if end if next MsgBox dict.Count & " Objects found!" for each key in dict list = list & key & vbCrlf next MsgBox list outputfile = "C:\OBJECT.TXT" set fs = CreateObject("Scripting.FileSystemObject") set output = fs.CreateTextFile(outputfile, true) print dict.Count & " Objects found!" Print list output.close wshshell.run outputfile sub Print(text) '写信息到记录文件 output.WriteLine text end sub
标签:
vbs组件
常春岛资源网 Design By www.syssdc.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
常春岛资源网 Design By www.syssdc.com
暂无评论...
更新日志
2024年06月03日
2024年06月03日
- 罗斯特洛波维奇、布里顿《舒伯特-阿佩乔尼奏鸣曲》1995[WAV+CUE]
- 群星《超高品质流行女声大碟 静听女人心 2CD》[WAV+CUE][1.3GB]
- BEYOND《无悔这一生 2023》 [WAV+CUE][690MB]
- 群星《30首最发烧经典老歌 情牵男人心 2CD》[WAV+CUE][1.4GB]
- 群星《不老的情歌-至尊版2CD》WAV分轨
- 岁月留声机群星《七十年代人金曲回顾》(黑胶)2CD[WAV分轨]
- 群星-世纪难忘金曲(迪安唱片)5CD[WAV]
- HenrietteFaure-DebussyEstampesPrludes,LivreI(MonoVersion)[FLAC]
- 吕方1992-弯弯十八首[香港][WAV+CUE]
- 经典歌曲珍藏专辑《民歌30年·真情依旧》3CD[WAV+CUE]
- 群星《时尚流行发烧极品 非同凡响 第一辑 2CD》[WAV/分轨][1.3GB]
- 陈曦《多年以后》HQⅡ头版限量编号[WAV+CUE][520MB]
- 孙露《用情 HQⅡ 2023》[WAV+CUE][380MB]
- 电影原声《速度与激情9电影原声大碟》2021[WAV+CUE]
- 【瑞鸣音乐】群星《伶歌》[XRCD2][WAV+CUE]