VBS教程：函數(shù)-GetObject 函數(shù)

2020-03-24 19:18:54

字體：大中小

供稿：網(wǎng)友

Pathname可選項。字符串，包含待檢索對象的文件的完整路徑和名稱。如果省略 pathname 則必須有 html' target='_blank'>class。Class可選項。字符串，對象的類。class 參數(shù)的語法格式為 appname.objectype，其中包括以下部分：appname必選項。字符串，提供對象的應(yīng)用程序名稱。objectype必選項。字符串，要創(chuàng)建的對象的類型或類。使用 GetObject 函數(shù)可以訪問文件中的 Automation 對象，而且可以將該對象賦值給對象變量。使用 Set 語句將 GetObject 返回的對象賦值給對象變量。例如： Dim CADObjectSet CADObject = GetObject("C:/CAD/SCHEMA.CAD")在執(zhí)行上述代碼時，就會啟動與指定路徑名相關(guān)聯(lián)的應(yīng)用程序，同時激活指定文件中的對象。如果 pathname 是零長度字符串 ("")，GetObject 返回指定類型的新對象實例。如果省略 pathname 參數(shù)，GetObject 將返回指定類型的當(dāng)前活動對象。如果沒有指定類型的對象，就會出現(xiàn)錯誤。某些應(yīng)用程序允許只激活文件的一部分，方法是在文件名后加上一個驚嘆號 (!) 以及用于標(biāo)識要激活的文件部分的字符串。有關(guān)創(chuàng)建這種字符串的詳細信息，請參閱創(chuàng)建對象的應(yīng)用程序的有關(guān)文檔。例如，在繪圖應(yīng)用程序中，一個存放在文件中的圖可能有多層。可以使用下述代碼來激活圖 SCHEMA.CAD 中的某一層：Set LayerObject = GetObject("C:/CAD/SCHEMA.CAD!Layer3")如果沒有指定對象的類，則 Automation 會根據(jù)所提供的文件名，確定要啟動的應(yīng)用程序以及要激活的對象。但是，有些文件可能支持多個對象類。例如，圖可能支持三種不同類型的對象：Application 對象、Drawing 對象和 Toolbar 對象，所有這些都是同一個文件中的一部分。使用可選項的 class 參數(shù)可以指定文件中要激活的對象。例如： Dim MyObjectSet MyObject = GetObject("C:/DRAWINGS/SAMPLE.DRW", "FIGMENT.DRAWING") 在上述樣例中，F(xiàn)IGMENT 是繪圖應(yīng)用程序的名稱，而 DRAWING 則是它支持的一種對象類型。對象被激活之后，就可以在代碼中使用所定義的對象變量來引用它。在前面的例子中，可以使用對象變量 MyObject 訪問新對象的屬性和方法。例如： MyObject.Line 9, 90MyObject.InsertText 9, 100, "嗨，你好！"MyObject.SaveAs "C:/DRAWINGS/SAMPLE.DRW"注意在對象的當(dāng)前實例存在，或者要用已加載的文件創(chuàng)建對象時，請使用 GetObject 函數(shù)。如果沒有當(dāng)前實例，并且不準(zhǔn)備使用已加載的文件啟動對象，請使用 CreateObject 函數(shù)。如果對象已注冊為單個實例的對象，則無論執(zhí)行多少次 CreateObject，都只能創(chuàng)建該對象的一個實例。若使用單個實例對象，當(dāng)使用零長度字符串 ("") 語法調(diào)用時，GetObject 總是返回同一個實例，而如果省略 pathname 參數(shù)，則會出現(xiàn)錯誤。
復(fù)制代碼代碼如下:
Set oDOM = WScript.GetObject(WScript.Arguments(0))
do until oDOM.readyState = "complete"
WScript.sleep 200
loop
WScript.echo oDOM.documentElement.outerHTML

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

更多可以參考：
http://www.phpstudy.net/shouce/vbs/115.htmhtml教程

鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請第一時間聯(lián)系我們修改或刪除，多謝。

上一篇：用vbs實現(xiàn)虛擬主機和域名查循的腳本

下一篇：vbs得沒公開對象