婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 在vbscript中判斷COM類是否存在的實現代碼

在vbscript中判斷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）。

標簽：西安 海口 湖州 邢臺 文山 鶴壁 四平 銅川

巨人網絡通訊聲明：本文標題《在vbscript中判斷COM類是否存在的實現代碼》，本文關鍵詞  在,vbscript,中,判斷,COM,類,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《在vbscript中判斷COM類是否存在的實現代碼》相關的同類信息！
  • 本頁收集關于在vbscript中判斷COM類是否存在的實現代碼的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 左贡县| 革吉县| 正镶白旗| 镇坪县| 偃师市| 视频| 临邑县| 田东县| 凌云县| 梅河口市| 黄石市| 林甸县| 舟山市| 陇西县| 宽甸| 伊通| 四川省| 安宁市| 秦皇岛市| 东港市| 出国| 民乐县| 天柱县| 防城港市| 新巴尔虎左旗| 长子县| 灌阳县| 邻水| 宜黄县| 彰化县| 沈丘县| 读书| 茌平县| 大竹县| 赫章县| 宾川县| 休宁县| 太谷县| 阜宁县| 长汀县| 合肥市|