您好,登錄后才能下訂單哦!
這期內(nèi)容當(dāng)中小編將會(huì)給大家?guī)碛嘘P(guān)如何在VBS中使用GetObject 函數(shù),文章內(nèi)容豐富且以專業(yè)的角度為大家分析和敘述,閱讀完這篇文章希望大家可以有所收獲。
返回對(duì)文件中 Automation 對(duì)象的引用。
GetObject([pathname] [, class])
Pathname
可選項(xiàng)。字符串,包含待檢索對(duì)象的文件的完整路徑和名稱。如果省略 pathname 則必須有 class。
Class
可選項(xiàng)。字符串,對(duì)象的類。
class 參數(shù)的語法格式為 appname.objectype,其中包括以下部分:
appname
必選項(xiàng)。字符串,提供對(duì)象的應(yīng)用程序名稱。
objectype
必選項(xiàng)。字符串,要?jiǎng)?chuàng)建的對(duì)象的類型或類。
使用 GetObject 函數(shù)可以訪問文件中的 Automation 對(duì)象,而且可以將該對(duì)象賦值給對(duì)象變量。使用 Set 語句將 GetObject 返回的對(duì)象賦值給對(duì)象變量。例如:
Dim CADObject Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")
在執(zhí)行上述代碼時(shí),就會(huì)啟動(dòng)與指定路徑名相關(guān)聯(lián)的應(yīng)用程序,同時(shí)激活指定文件中的對(duì)象。如果 pathname 是零長度字符串 (""),GetObject 返回指定類型的新對(duì)象實(shí)例。如果省略 pathname 參數(shù),GetObject 將返回指定類型的當(dāng)前活動(dòng)對(duì)象。如果沒有指定類型的對(duì)象,就會(huì)出現(xiàn)錯(cuò)誤。
某些應(yīng)用程序允許只激活文件的一部分,方法是在文件名后加上一個(gè)驚嘆號(hào) (!) 以及用于標(biāo)識(shí)要激活的文件部分的字符串。有關(guān)創(chuàng)建這種字符串的詳細(xì)信息,請(qǐng)參閱創(chuàng)建對(duì)象的應(yīng)用程序的有關(guān)文檔。
例如,在繪圖應(yīng)用程序中,一個(gè)存放在文件中的圖可能有多層??梢允褂孟率龃a來激活圖 SCHEMA.CAD 中的某一層:
Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")
如果沒有指定對(duì)象的類,則 Automation 會(huì)根據(jù)所提供的文件名,確定要啟動(dòng)的應(yīng)用程序以及要激活的對(duì)象。但是,有些文件可能支持多個(gè)對(duì)象類。例如,圖可能支持三種不同類型的對(duì)象:Application 對(duì)象、Drawing 對(duì)象和 Toolbar 對(duì)象,所有這些都是同一個(gè)文件中的一部分。使用可選項(xiàng)的 class 參數(shù)可以指定文件中要激活的對(duì)象。例如:
Dim MyObject Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING")
在上述樣例中,F(xiàn)IGMENT 是繪圖應(yīng)用程序的名稱,而 DRAWING 則是它支持的一種對(duì)象類型。對(duì)象被激活之后,就可以在代碼中使用所定義的對(duì)象變量來引用它。在前面的例子中,可以使用對(duì)象變量 MyObject 訪問新對(duì)象的屬性和方法。例如:
MyObject.Line 9, 90 MyObject.InsertText 9, 100, "嗨,你好!"MyObject.SaveAs "C:\DRAWINGS\SAMPLE.DRW"
注意 在對(duì)象的當(dāng)前實(shí)例存在,或者要用已加載的文件創(chuàng)建對(duì)象時(shí),請(qǐng)使用 GetObject 函數(shù)。如果沒有當(dāng)前實(shí)例,并且不準(zhǔn)備使用已加載的文件啟動(dòng)對(duì)象,請(qǐng)使用 CreateObject 函數(shù)。
如果對(duì)象已注冊(cè)為單個(gè)實(shí)例的對(duì)象,則無論執(zhí)行多少次 CreateObject,都只能創(chuàng)建該對(duì)象的一個(gè)實(shí)例。若使用單個(gè)實(shí)例對(duì)象,當(dāng)使用零長度字符串 ("") 語法調(diào)用時(shí),GetObject 總是返回同一個(gè)實(shí)例,而如果省略 pathname 參數(shù),則會(huì)出現(xiàn)錯(cuò)誤。
復(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")'就是取得這個(gè)對(duì)象
Do Until oDOM.readyState="complete" '一直循環(huán)等待200ms,直到頁面加載完成
WScript.sleep 200'就是等待200ms
Loop
WScript.echo oDOM.documentElement.outerText'取得某個(gè)文本,并彈出對(duì)話框以顯示此消息
Set oDOM=nothing'斷開與對(duì)象的連接以釋放內(nèi)存。
上述就是小編為大家分享的如何在VBS中使用GetObject 函數(shù)了,如果剛好有類似的疑惑,不妨參照上述分析進(jìn)行理解。如果想知道更多相關(guān)知識(shí),歡迎關(guān)注億速云行業(yè)資訊頻道。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請(qǐng)聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。