该文章由老刘原创,转载需注明原作者昵称。
在VBS中,我们有时需要判断一个COM类是否存在,以便执行不同的操作。
这里介绍2种基本的方法,其函数的返回值为Bool值,为真则证明COM类存在。
1、注册表查询法。
Function ComExist(ComName) Dim WshShell Set WshShell = CreateObject("Wscript.Shell") On Error Resume Next WshShell.RegRead("HKCR\"&ComName&"\") ComExist = CBool(Err.Number = 0) On Error Goto 0 End Function
该方法用到了一个Win Script Host附带的COM类。通过直接查询注册表来确定COM类是否有效。
优点:快速,无需创建对象。
缺点:一些COM类的卸载残留可能会使该函数误判。如果WScript.Shell对象异常,会无法判断。
2、尝试创建法。
Function ComExist(ComName) On Error Resume Next Set CreateTest = CreateObject(ComName) ComExist = CBool(Err.Number = 0) On Error Goto 0 End Function
该方法比较简单粗暴,直接创建下COM对象看看成不成功。
优点:非常的严谨&靠谱。
缺点:如果用这个来测试一些创建&销毁时间长的类(如Word.Application),会耗费大量时间,并留下进程残留(如Word对象需手动.Quit)。
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
暂无评论...
更新日志
2024年05月20日
2024年05月20日
- 张琍敏1978-雪中莲[台湾复刻版][WAV+CUE]
- 叶蕴仪1993-睡美人[日本版][WAV+CUE]
- 夜晚助兴音乐-群星《新时代床头音乐-性能量》2CD[WAV]
- 24K德国HD金碟《历届奥斯卡获奖金曲》3CD[WAV整轨]
- 邰正宵《重燃爱恋 贰 Walk On》[FLAC/分轨][431.72MB]
- 苏文劭《雨停出来走走》[320K/MP3][81.11MB]
- 苏文劭《雨停出来走走》[FLAC/分轨][210.76MB]
- 群星《2024好听新歌04》十倍音质WAV分轨
- 陈宁《弹指之间HQ》头版限量[低速原抓WAV+CUE]
- 陈宁《故人还》HQCDII限量签名版[低速原抓WAV+CUE]
- 苏文劭《春曲(Lessons)》[320K/MP3][39.8MB]
- 苏文劭《春曲(Lessons)》[FLAC/分轨][97.78MB]
- 群星《2006香港高级视听展原音精选 SACD》[ISO][2G]
- 张琍敏1977-枫林小雨[台湾复刻版][WAV+CUE]
- 林一峰2014-COOKINGMUSIC[香港首版][WAV+CUE]