ブール値の例

以下の例は、メモ帳アプリケーションをテストする単一のスクリプトでブール値パラメータを作成して渡す方法を示しています。

スクリプトの内容は以下のとおりです。

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