VBS教程:函数-GetObject 函数_vbs

GetObject 函数

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

GetObject([pathname] [, class])

参数

Pathname

可选项。字符串,包含待检索对象的文件的完整路径和名称。如果省略 pathname 则必须有 class

Class

可选项。字符串,对象的类。

class 参数的语法格式为 appname.objectype,其中包括以下部分:

参数

appname

必选项。字符串,提供对象的应用程序名称。

objectype

必选项。字符串,要创建的对象的类型或类。

说明

使用 GetObject 函数可以访问文件中的 Automation 对象,而且可以将该对象赋值给对象变量。使用 Set 语句将 GetObject 返回的对象赋值给对象变量。例如:

Dim CADObject
Set 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 MyObject
Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING") 

在上述样例中,FIGMENT 是绘图应用程序的名称,而 DRAWING 则是它支持的一种对象类型。对象被激活之后,就可以在代码中使用所定义的对象变量来引用它。在前面的例子中,可以使用对象变量 MyObject 访问新对象的属性和方法。例如:

MyObject.Line 9, 90
MyObject.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://www.jb51.net/shouce/vbs/115.htm

以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索vbs
GetObject
vbs instr函数、vbs mid函数、vbs时间函数、vbs replace函数、vbs 字符串函数,以便于您获取更多的相关知识。

时间: 2024-12-11 00:34:05

VBS教程:函数-GetObject 函数_vbs的相关文章

VBS教程:VBScript 对象_vbs

VBScript 对象 描述 语言元素 提供对已创建类的事件的访问途径. Class 对象 用于保存数据主键,值对的对象. Dictionary 对象 包含与运行时错误相关的信息. Err 对象 提供对计算机文件系统的访问途径. FileSystemObject 对象 提供对一个正则表达式匹配的只读属性的访问途径功能. Match 对象 正则表达式 Match 对象的集合. Matches 集合 提供简单的正则表达式支持. RegExp 对象 提供对正则表达式子匹配字符串的只读值的访问. Sub

VBS教程:运算符-运算符(+)_vbs

运算符(+) 计算两个数之和. result = expression1 + expression2 参数 result 任意数值变量. expression1 任意表达式. expression2 任意表达式. 说明 虽然也可以使用 + 运算符连接两个字符串,但是您仍应使用 & 运算符进行字符串的连接以避免混淆,提供易理解的代码. 这是因为在使用 + 运算符时,有可能无法确定是做加法还是做字符串连接. 表达式的基本子类型决定了 + 运算符所做的操作,如下表所示: 如果 则 两个表达式都是数值

VBS教程:运算符-\ 运算符_vbs

\ 运算符 两个数相除并返回以整数形式表示的结果. result = number1\number2 参数 result 任意数值变量. number1 任意数值表达式. number2 任意数值表达式. 说明 在除法操作前,数值表达式四舍五入为 Byte.Integer 或 Long 子类型表达式. 如果任何表达式为 Null,result 也是 Null.任何表达式为 Empty 时,则按 0 处理.

VBS教程:正则表达式简介_vbs

这些页包含的信息其目的是提供一个关于正则表达式的通用介绍.  尽管试图让每个主题的内容都比较独立,但这些主题所包含的大部分信息都依赖于对前面所介绍的特性或概念的理解.因此,建议您顺序地仔细阅读这些主题,以便最全面地了解这些材料. "正则表达式简介"包括下述各个主题: 正则表达式 早期起源 使用正则表达式 正则表达式语法 建立正则表达式 优先权顺序 普通字符 特殊字符 非打印字符 字符匹配 限定符 定位符 选择与编组 后向引用

VBS教程:函数-Left 函数_vbs

Left 函数 返回指定数目的从字符串的左边算起的字符. Left(string, length) 参数 string 字符串表达式,其最左边的字符被返回.如果 string 参数中包含 Null,则返回 Null. Length 数值表达式,指明要返回的字符数目.如果是 0,返回零长度字符串 (""):如果大于或等于 string 参数中的字符总数,则返回整个字符串. 说明 可使用 Len 函数确定 string 参数中的字符数目. 下面的示例利用Left 函数返回MyString

VBS教程:函数-LTrim、RTrim 和 Trim 函数_vbs

LTrim.RTrim 和 Trim 函数 返回不带前导空格 (LTrim).后续空格 (RTrim) 或前导与后续空格 (Trim) 的字符串副本. LTrim(string) RTrim(string) Trim(string) string 参数是任意有效的字符串表达式.如果 string 参数中包含 Null,则返回 Null. 说明 下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格.尾部空格. 开始和尾部空格: Dim MyVarMyVar =

VBS教程:函数-数学函数_vbs

Abs 函数Atn 函数Cos 函数Exp 函数Fix 函数Int 函数Log 函数Rnd 函数Sgn 函数Sin 函数Sqr 函数Tan 函数派生数学函数

VBS教程:函数-派生数学函数_vbs

派生数学函数 下列是由固有数学函数派生的非固有数学函数: 函数 派生的等效公式 Secant(正割) Sec(X) = 1 / Cos(X) Cosecant(余割) Cosec(X) = 1 / Sin(X) Cotangent(余切) Cotan(X) = 1 / Tan(X) Inverse Sine(反正弦) Arcsin(X) = Atn(X / Sqr(-X * X + 1)) Inverse Cosine(反余弦) Arccos(X) = Atn(-X / Sqr(-X * X +

VBS教程:函数-转换函数_vbs

转换函数 Asc 函数CBool 函数CByte 函数CCur 函数CDate 函数CDbl 函数Chr 函数CInt 函数CLng 函数CSng 函数CStr 函数Hex 函数Oct 函数