蝙蝠岛资源网 Design By www.hbtsch.com
该文章由老刘原创,转载需注明原作者昵称。
在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)。
标签:
vbs,COM
蝙蝠岛资源网 Design By www.hbtsch.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com
暂无在vbscript中判断COM类是否存在的实现代码的评论...
更新日志
2024年05月17日
2024年05月17日
- 原音母版1:1直刻《卓依婷精选集》[低速原抓WAV+CUE]
- 【佛之吧沙发】VA-BuddhaBar-BestOf2byRavin(FLAC)
- [ABC唱片]-《雪莉—蓝》[SACD-008][SACD][WAV+CUE]
- 黎瑞恩.2002-理想的日子精选2CD【环球】【WAV+CUE】
- 【驰放沙发(J)】VA-2024-WinterTime,Vol.12(FLAC)
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 韩红《青藏高原+红+韩红精选集》3CD[WAV分轨][1.7G]
- 高胜美《经典金选》1991-1994 4CD[WAV整轨][1.9G]
- 【迷幻电音】AstralWaves-2023-Singles,RemixesandRaritiesII(FLAC)
- 中唱唱片群星《好歌珍藏-游子情深》2CDWAV
- 张国荣.2011-极品天碟LPCD45II(雨果版)【环球】【WAV+CUE】
- 张学友《醒着做梦》[DFF][1.1G]
- 刘惜君 《如我》[WAV分轨][403M]
- 白玛多吉《梦》限量1:1母盘直刻[低速原抓WAV+CUE][508M]
- 魏金栋-金歌新曲-梦里全是桂花香2CD[天凡之音][WAV+CUE]