欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

在vbscript中判斷COM類是否存在的實現(xiàn)代碼

 更新時間：2018年06月02日 21:58:10   投稿：mdxy-dxy  
在VBS中，我們有時需要判斷一個COM類是否存在，以便執(zhí)行不同的操作,需要的朋友可以參考下

該文章由老劉原創(chuàng)，轉(zhuǎn)載需注明原作者昵稱。

在VBS中，我們有時需要判斷一個COM類是否存在，以便執(zhí)行不同的操作。
這里介紹2種基本的方法，其函數(shù)的返回值為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類是否有效。
優(yōu)點：快速，無需創(chuàng)建對象。
缺點：一些COM類的卸載殘留可能會使該函數(shù)誤判。如果WScript.Shell對象異常，會無法判斷。

2、嘗試創(chuàng)建法。

Function ComExist(ComName)
	On Error Resume Next
	Set CreateTest = CreateObject(ComName)
	ComExist = CBool(Err.Number = 0)
	On Error Goto 0
End Function

該方法比較簡單粗暴，直接創(chuàng)建下COM對象看看成不成功。
優(yōu)點：非常的嚴謹&靠譜。
缺點：如果用這個來測試一些創(chuàng)建&銷毀時間長的類（如Word.Application），會耗費大量時間，并留下進程殘留（如Word對象需手動.Quit）。

相關(guān)文章

最新評論