在VS2010中使用编码的UI测试启动应用程序

(一定要更改EXE以匹配您自己的EXE)

Namespace RouteManagement_UI_Tests
   Partial Public Class UIMap
      Public Sub StartApp()
         Dim RMS As ApplicationUnderTest = ApplicationUnderTest.Launch(Me.StartAppParams.ExePath, Me.StartAppParams.AlternateExePath)
      End Sub

      Public Overridable ReadOnly Property StartAppParams() As StartAppParams
         Get
            If (Me.mStartAppParams Is Nothing) Then
               Me.mStartAppParams = New StartAppParams()
            End If
            Return Me.mStartAppParams
         End Get
      End Property

      Private mStartAppParams As StartAppParams

   End Class

   Public Class StartAppParams
#Region "Fields"
      '''<summary>
      '''</summary>
      Public ExePath As String = "C:\Somebinary.exe"

      '''<summary>
      '''</summary>
      Public AlternateExePath As String = "%VisualStudioDir%\Somebinary.exe"
#End Region
   End Class
End Namespace

然后在测试代码中引用此方法,如下所示:

Public Class CodedUITest1
   <TestMethod()>
   Public Sub Test1()
      With Me.UIMap
         .StartApp()
     .ExitApp()
      End With
   End Sub
End Class