|
楼主 |
发表于 2012-6-3 20:13:47
|
显示全部楼层
内蒙古自治区赤峰市
易团僧 发表于 2012-6-3 19:10
没有支持库?
没用支持库,用的是类- .版本 2
- .程序集 VBS脚本类, , 公开
- .程序集变量 脚本对象, 对象
- .程序集变量 错误信息, 错误信息
- .子程序 _初始化, , , 当基于本类的对象被创建后,此方法会被自动调用
- CoInitialize (0)
- 脚本对象.创建 (“ScriptControl”, )
- 脚本对象.写属性 (“Language”, “vbs”)
- .子程序 _销毁, , , 当基于本类的对象被销毁前,此方法会被自动调用
- CoUninitialize ()
- 错误信息.清除 ()
- 脚本对象.清除 ()
- .子程序 属性_语言, 整数型, 公开, 返回以下值:0.JScript;1.VBScript;-1.语言为空。当类的语言属性未指定时,默认为1,VBScript。
- .参数 新语言属性, 整数型, 可空, 可供选择的属性值:0. JScript 1. VBScript
- .如果真 (是否为空 (新语言属性) = 假)
- .判断开始 (新语言属性 = 0)
- 脚本对象.写属性 (“Language”, “vbs”)
- .默认
- 脚本对象.写属性 (“Language”, “JScript”)
- .判断结束
- .如果真结束
- .判断开始 (脚本对象.读文本属性 (“Language”, ) = “vbs”)
- 返回 (1)
- .判断 (脚本对象.读文本属性 (“Language”, ) = “JScript”)
- 返回 (0)
- .默认
- 返回 (-1)
- .判断结束
- .子程序 属性_错误信息, 错误信息, 公开, 返回错误信息
- 错误信息.初始化 (脚本对象.读对象型属性 (“Error”, ))
- 返回 (错误信息)
- .子程序 属性_超时, 整数型, 公开, 设置或返回时间(毫秒),此时间后用户可选择中止脚本代码的执行或允许代码继续执行。
- .参数 新超时属性值, 整数型, 可空, 当为-1时,使脚本引擎的执行无超时
- .如果真 (是否为空 (新超时属性值) = 假)
- 脚本对象.写属性 (“Timeout”, 新超时属性值)
- .如果真结束
- 返回 (脚本对象.读数值属性 (“Timeout”, ))
- .子程序 属性_状态, 整数型, 公开
- .参数 新状态值, 整数型, 可空, 参数值为以下值之一: 0、Initialized; 1、Connected
- .如果真 (是否为空 (新状态值) = 假)
- 脚本对象.写属性 (“State”, 新状态值)
- .如果真结束
- 返回 (脚本对象.读数值属性 (“State”, ))
- .子程序 属性_是否使用图形界面, 逻辑型, 公开
- .参数 新是否使用图形界面属性, 逻辑型, 可空
- .如果真 (是否为空 (新是否使用图形界面属性) = 假)
- 脚本对象.写属性 (“AllowUI”, 新是否使用图形界面属性)
- .如果真结束
- 返回 (脚本对象.读逻辑属性 (“AllowUI”, ))
- .子程序 属性_图形界面父窗口句柄, 整数型, 公开
- .参数 新父窗口句柄, 整数型, 可空
- .如果真 (是否为空 (新父窗口句柄) = 假)
- 脚本对象.写属性 (“SitehWnd”, 新父窗口句柄)
- .如果真结束
- 返回 (脚本对象.读数值属性 (“SitehWnd”, ))
- .子程序 添加代码, , 公开
- .参数 代码文本, 文本型
- 脚本对象.数值方法 (“AddCode”, 代码文本)
- .子程序 运行, 文本型, 公开, 在添加的代码中运行指定的过程,如有返回值返回相应文本,否则返回空文本。
- .参数 过程或函数名, 文本型
- .参数 参数, 文本型, , 最多支持30个参数
- .局部变量 I, 整数型
- I = 取数组下标 (参数, )
- .判断开始 (I = 0)
- 返回 (脚本对象.文本方法 (“Run”, 过程或函数名))
- .默认
- .判断结束
- 返回 (“”)
- .子程序 执行, 逻辑型, 公开, 执行指定的代码文本。返回真为执行正常,返回假为出错,错误信息可以从“错误信息”属性中取得。
- .参数 脚本代码, 文本型, , 可使用常量 #md5
- 脚本对象.数值方法 (“ExecuteStatement”, 脚本代码)
- 返回 (脚本对象.取错误 () = “”)
- .子程序 计算表达式, 文本型, 公开, 计算表达式并返回结果。
- .参数 表达式, 文本型
- 返回 (脚本对象.文本方法 (“Eval”, 表达式))
- .子程序 清除, , 公开
- 脚本对象.数值方法 (“Reset”, )
- .子程序 未封装的属性及方法
- ' 类型: IScriptControl 10个属性,6个方法,标记: {0E59F1D3-1FBE-11D0-8FF2-00A0D10038BC}
- ' -------------------------------- 属性列表 --------------------------------
- ' 属性读取格式: 〈逻辑型〉 对象.读逻辑属性 ("UseSafeSubset")
- ' 属性写入格式: 〈逻辑型〉 对象.写属性 ("UseSafeSubset",欲写入属性值)
- ' 参数<1>的名称为“欲写入属性值”,类型为“逻辑型”。
- ' 解释:Force script to execute in safe mode and disallow potentially harmful actions
- ' 属性读取格式: 〈对象(IScriptModuleCollection)〉 对象.读对象型属性 ("Modules")
- ' 解释:Collection of modules for the ScriptControl
- ' 属性读取格式: 〈对象〉 对象.读对象型属性 ("CodeObject")
- ' 解释:Object exposed by the scripting engine that contains methods and properties defined in the code added to the global module
- ' 属性读取格式: 〈对象(IScriptProcedureCollection)〉 对象.读对象型属性 ("Procedures")
- ' 解释:Collection of procedures that are defined in the global module
- ' -------------------------------- 方法列表 --------------------------------
- ' 方法调用格式: 〈整数型〉 对象.数值方法 ("AddObject",Name,Object,AddMembers)
- ' 参数<1>的名称为“Name”,类型为“文本型”。
- ' 参数<2>的名称为“Object”,类型为“对象”。
- ' 参数<3>的名称为“AddMembers”,类型为“逻辑型”,参数默认值为“假”。
- ' 解释:Add an object to the global namespace of the scripting engine
复制代码- .版本 2
- .程序集 错误信息, , 公开
- .程序集变量 对象, 对象
- .子程序 _初始化, , , 当基于本类的对象被创建后,此方法会被自动调用
- .子程序 _销毁, , , 当基于本类的对象被销毁前,此方法会被自动调用
- 清除 ()
- 对象.清除 ()
- .子程序 初始化, , 公开
- .参数 错误对象, 对象
- 对象 = 错误对象
- .子程序 错误代码, 整数型, 公开
- 返回 (对象.读数值属性 (“Number”, ))
- .子程序 错误源, 文本型, 公开
- 返回 (对象.读文本属性 (“Source”, ))
- .子程序 错误描述, 文本型, 公开
- 返回 (对象.读文本属性 (“Description”, ))
- .子程序 错误代码行文本, 文本型, 公开
- 返回 (对象.读文本属性 (“Text”, ))
- .子程序 错误代码行位置, 整数型, 公开
- 返回 (对象.读数值属性 (“Line”, ))
- .子程序 错误代码列位置, 整数型, 公开
- 返回 (对象.读数值属性 (“Column”, ))
- .子程序 清除, , 公开, 清除错误对象
- 对象.数值方法 (“Clear”, )
- .子程序 错误查阅帮助文件名, 文本型, 公开
- 返回 (对象.读文本属性 (“HelpFile”, ))
- .子程序 错误查阅帮助文件上下文ID, 整数型, 公开
- 返回 (对象.读数值属性 (“HelpContext”, ))
复制代码 |
|