51Testing软件测试网 51Testing软件测试网(2)

*如果是在其他机器上运行，则还需要先运行以下定义自定义控件的代码：

**************************************************************************************

Dim App 'As Application

Set App = GetObject("","QuickTest.Application")

'Configuration of user-defined objects

'Object identification configuration for user-defined object "ttoolbar"

App.Options.ObjectIdentification("WinToolbar").CreateUserDefinedObject("ttoolbar")

App.Options.ObjectIdentification("ttoolbar").OrdinalIdentifier = "location"

App.Options.ObjectIdentification("ttoolbar").MandatoryProperties.RemoveAll()

App.Options.ObjectIdentification("ttoolbar").MandatoryProperties.Add("nativeclass")

App.Options.ObjectIdentification("ttoolbar").MandatoryProperties.Add("text")

App.Options.ObjectIdentification("ttoolbar").AssistiveProperties.RemoveAll()

App.Options.ObjectIdentification("ttoolbar").AssistiveProperties.Add("window id")

App.Options.ObjectIdentification("ttoolbar").EnableSmartIdentification = False

App.Options.ObjectIdentification("ttoolbar").BaseFilterProperties.RemoveAll()

App.Options.ObjectIdentification("ttoolbar").OptionalFilterProperties.RemoveAll()

'Object identification configuration for user-defined object "tnoteeditor"

App.Options.ObjectIdentification("WinEditor").CreateUserDefinedObject("tnoteeditor")

App.Options.ObjectIdentification("tnoteeditor").OrdinalIdentifier = "location"

App.Options.ObjectIdentification("tnoteeditor").MandatoryProperties.RemoveAll()

App.Options.ObjectIdentification("tnoteeditor").MandatoryProperties.Add("attached text")

等同于--add-drop-table, --add-locks, --create-options, --quick, --extended-insert, --lock-tables, --set-charset, --disable-keys 该选项默认开启, 可以用--skip-opt禁用.。- (bool)application:(uiapplication *)app openurl:(nsurl *)url options:(nsdictionary *)options。- (bool)application:(uiapplication *)app openurl:(nsurl *)url options:(nsdictionary *)options。

App.Options.ObjectIdentification("tnoteeditor").AssistiveProperties.RemoveAll()

App.Options.ObjectIdentification("tnoteeditor").AssistiveProperties.Add("window id")

App.Options.ObjectIdentification("tnoteeditor").EnableSmartIdentification = False

App.Options.ObjectIdentification("tnoteeditor").BaseFilterProperties.RemoveAll()

App.Options.ObjectIdentification("tnoteeditor").OptionalFilterProperties.RemoveAll()

**************************************************************************************

*在脚本运行结束时需要运行以下脚本，以清除自己的配置，防止影响别人脚本的运行：

**************************************************************************************

App.Options.ObjectIdentification.ResetAll

Set App = Nothing

**************************************************************************************

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/bofangqi/article-113321-2.html