列挙の例

以下の例は、メモ帳アプリケーションをテストする親スクリプトと子スクリプト間で列挙パラメータを作成して渡す方法を示しています。

以下に、親スクリプトの例を示します。

Public Module Main
 Dim _desktop As Desktop = Agent.Desktop

  Public Sub Main()
    Dim args As New Dictionary(Of String, Object)
    args("Day") = DayOfWeek.Friday
  
    Workbench.RunScript("ChildDayScript", args)

  End Sub
End Module

以下に、子スクリプトの例を示します。

Public Module Main   
  Dim _desktop As Desktop = Agent.Desktop

  Public Sub Main(args As IDictionary(Of String, Object))
    Dim day As DayOfWeek = args("Day")
  
    With _desktop.Window("/Window[@caption='Untitled - Notepad']")
    .TextField().TypeKeys("The day of the week is " + day.ToString() + ".")
    End With

  End Sub
End Module