国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS教程:函數-GetObject 函數

2020-07-26 12:07:57
字體:
來源:轉載
供稿:網友

GetObject 函數

返回對文件中 Automation 對象的引用。

GetObject([pathname] [, class])

參數

Pathname

可選項。字符串,包含待檢索對象的文件的完整路徑和名稱。如果省略 pathname 則必須有 class

Class

可選項。字符串,對象的類。

class 參數的語法格式為 appname.objectype,其中包括以下部分:

參數

appname

必選項。字符串,提供對象的應用程序名稱。

objectype

必選項。字符串,要創建的對象的類型或類。

說明

使用 GetObject 函數可以訪問文件中的 Automation 對象,而且可以將該對象賦值給對象變量。使用 Set 語句將 GetObject 返回的對象賦值給對象變量。例如:

Dim CADObjectSet CADObject = GetObject("C:/CAD/SCHEMA.CAD")

在執行上述代碼時,就會啟動與指定路徑名相關聯的應用程序,同時激活指定文件中的對象。如果 pathname 是零長度字符串 (""),GetObject 返回指定類型的新對象實例。如果省略 pathname 參數,GetObject 將返回指定類型的當前活動對象。如果沒有指定類型的對象,就會出現錯誤。

某些應用程序允許只激活文件的一部分,方法是在文件名后加上一個驚嘆號 (!) 以及用于標識要激活的文件部分的字符串。有關創建這種字符串的詳細信息,請參閱創建對象的應用程序的有關文檔。

例如,在繪圖應用程序中,一個存放在文件中的圖可能有多層。可以使用下述代碼來激活圖 SCHEMA.CAD 中的某一層:

Set LayerObject = GetObject("C:/CAD/SCHEMA.CAD!Layer3")

如果沒有指定對象的類,則 Automation 會根據所提供的文件名,確定要啟動的應用程序以及要激活的對象。但是,有些文件可能支持多個對象類。例如,圖可能支持三種不同類型的對象:Application 對象、Drawing 對象和 Toolbar 對象,所有這些都是同一個文件中的一部分。使用可選項的 class 參數可以指定文件中要激活的對象。例如:

Dim MyObjectSet MyObject = GetObject("C:/DRAWINGS/SAMPLE.DRW", "FIGMENT.DRAWING") 

在上述樣例中,FIGMENT 是繪圖應用程序的名稱,而 DRAWING 則是它支持的一種對象類型。對象被激活之后,就可以在代碼中使用所定義的對象變量來引用它。在前面的例子中,可以使用對象變量 MyObject 訪問新對象的屬性和方法。例如:

MyObject.Line 9, 90MyObject.InsertText 9, 100, "嗨,你好!"MyObject.SaveAs "C:/DRAWINGS/SAMPLE.DRW"

注意 在對象的當前實例存在,或者要用已加載的文件創建對象時,請使用 GetObject 函數。如果沒有當前實例,并且不準備使用已加載的文件啟動對象,請使用 CreateObject 函數。

如果對象已注冊為單個實例的對象,則無論執行多少次 CreateObject,都只能創建該對象的一個實例。若使用單個實例對象,當使用零長度字符串 ("") 語法調用時,GetObject 總是返回同一個實例,而如果省略 pathname 參數,則會出現錯誤。

復制代碼 代碼如下:

Set oDOM = WScript.GetObject(WScript.Arguments(0))
do until oDOM.readyState = "complete"
WScript.sleep 200
loop
WScript.echo oDOM.documentElement.outerHTML


復制代碼 代碼如下:

Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp")'就是取得這個對象
Do Until oDOM.readyState="complete" '一直循環等待200ms,直到頁面加載完成
WScript.sleep 200'就是等待200ms
Loop
WScript.echo oDOM.documentElement.outerText'取得某個文本,并彈出對話框以顯示此消息
Set oDOM=nothing'斷開與對象的連接以釋放內存。

更多可以參考:
http://m.survivalescaperooms.com/shouce/vbs/115.htm

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 德保县| 蒙自县| 班玛县| 花莲市| 石台县| 文山县| 浠水县| 新余市| 紫云| 新安县| 洪泽县| 冷水江市| 高碑店市| 安多县| 岳普湖县| 清流县| 侯马市| 房山区| 托克托县| 阿城市| 永年县| 中卫市| 博白县| 土默特右旗| 阳城县| 紫阳县| 当涂县| 华坪县| 鄂伦春自治旗| 邵武市| 镇坪县| 嘉峪关市| 项城市| 贵阳市| 西和县| 白玉县| 建湖县| 张家界市| 万山特区| 平山县| 万安县|