オブジェクト認識向けに生成したオートメーション・スクリプトのサンプル

関連：GUI テストおよびコンポーネント

次の UFT One オートメーション・スクリプトは，［オブジェクトの認識］ダイアログ・ボックスの［スクリプトの生成］ボタンを選択して生成したスクリプトの一部抜粋です。スクリプトは，Web Add-in をロードした状態で生成されています。

Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
' ユーザ定義オブジェクトの設定
'ユーザ定義オブジェクト "abtobjectgraphicswidget" のオブジェクト認識設定
App.Options.ObjectIdentification("WinObject").CreateUserDefinedObject("abtobjectgraphicswidget")
App.Options.ObjectIdentification("abtobjectgraphicswidget").OrdinalIdentifier = "location"
App.Options.ObjectIdentification("abtobjectgraphicswidget").MandatoryProperties.RemoveAll()
App.Options.ObjectIdentification("abtobjectgraphicswidget").MandatoryProperties.Add("regexpwndclass")
App.Options.ObjectIdentification("abtobjectgraphicswidget").MandatoryProperties.Add("va_name")
App.Options.ObjectIdentification("abtobjectgraphicswidget").AssistiveProperties.RemoveAll()
App.Options.ObjectIdentification("abtobjectgraphicswidget").AssistiveProperties.Add("text")
App.Options.ObjectIdentification("abtobjectgraphicswidget").AssistiveProperties.Add("attached text")
App.Options.ObjectIdentification("abtobjectgraphicswidget").AssistiveProperties.Add("window id")
App.Options.ObjectIdentification("abtobjectgraphicswidget").AssistiveProperties.Add("nativeclass")
App.Options.ObjectIdentification("abtobjectgraphicswidget").AssistiveProperties.Add("object class")
App.Options.ObjectIdentification("abtobjectgraphicswidget").EnableSmartIdentification = False
App.Options.ObjectIdentification("abtobjectgraphicswidget").BaseFilterProperties.RemoveAll()
App.Options.ObjectIdentification("abtobjectgraphicswidget").OptionalFilterProperties.RemoveAll()
' Standard Windows オブジェクトの設定
' テスト・オブジェクト "winmenu" のオブジェクト認識設定
App.Options.ObjectIdentification("winmenu").AvailableProperties.Add("menuobjtype")
App.Options.ObjectIdentification("winmenu").MandatoryProperties.RemoveAll()
App.Options.ObjectIdentification("winmenu").MandatoryProperties.Add("menuobjtype")
App.Options.ObjectIdentification("winmenu").AssistiveProperties.RemoveAll()
App.Options.ObjectIdentification("winmenu").EnableSmartIdentification = False
App.Options.ObjectIdentification("winmenu").BaseFilterProperties.RemoveAll()
App.Options.ObjectIdentification("winmenu").OptionalFilterProperties.RemoveAll()
' Web オブジェクトの設定
' テスト・オブジェクト "page" のオブジェクト認識設定
App.Options.ObjectIdentification("page").AvailableProperties.Add("abs_x")
App.Options.ObjectIdentification("page").AvailableProperties.Add("abs_y")
App.Options.ObjectIdentification("page").AvailableProperties.Add("height")
App.Options.ObjectIdentification("page").AvailableProperties.Add("hwnd")
App.Options.ObjectIdentification("page").AvailableProperties.Add("name")
App.Options.ObjectIdentification("page").AvailableProperties.Add("title")
App.Options.ObjectIdentification("page").AvailableProperties.Add("url")
App.Options.ObjectIdentification("page").AvailableProperties.Add("width")
App.Options.ObjectIdentification("page").MandatoryProperties.RemoveAll()
App.Options.ObjectIdentification("page").AssistiveProperties.RemoveAll()
App.Options.ObjectIdentification("page").EnableSmartIdentification = True
App.Options.ObjectIdentification("page").BaseFilterProperties.RemoveAll()
App.Options.ObjectIdentification("page").OptionalFilterProperties.RemoveAll()
App.Options.ObjectIdentification("page").OptionalFilterProperties.Add("title")
App.Options.ObjectIdentification("page").OptionalFilterProperties.Add("url")