以下の例は、メモ帳アプリケーションをテストする単一のスクリプトでブール値パラメータを作成して渡す方法を示しています。
Public Module Main
Dim _desktop As Desktop = Agent.Desktop
Public Sub Main(args As IDictionary(Of String, Object))
Dim B1 As Boolean = CType(args("Bool1"), Boolean)
Dim B2 As Boolean = CType(args("Bool2"), Boolean)
With _desktop.Window("@caption='Untitled - Notepad'")
.TextField().ClearText()
.TextField().TypeKeys("<Enter>" +"Boolean Values" + "<Enter>")
.TextField().TypeKeys(B1)
.TextField().TypeKeys("<Enter>")
.TextField().TypeKeys(B2)
.TextField().TypeKeys("<Enter>")
End With
End Sub
Public Sub Main()
Dim args As New Dictionary(Of String, Object)
args.Add("Bool1", True)
args.Add("Bool2", False)
Main(args)
End Sub
End Module