ThreadedWebTest 類別

發行項
08/21/2008

更新：2007 年 11 月

表示每次 Web 測試反覆運算，只使用單一執行緒之 Web 測試程式碼的基底類別。

命名空間： Microsoft.VisualStudio.TestTools.WebTesting
組件： Microsoft.VisualStudio.QualityTools.WebTestFramework (在 Microsoft.VisualStudio.QualityTools.WebTestFramework.dll 中)

語法

Public MustInherit Class ThreadedWebTest _
    Inherits WebTest

Dim instance As ThreadedWebTest

public abstract class ThreadedWebTest : WebTest

public ref class ThreadedWebTest abstract : public WebTest

public abstract class ThreadedWebTest extends WebTest

備註

如果 Web 測試程式碼的撰寫語言不支援 Visual C# 之類似 Iterator 語法，那麼這會是這些 Web 測試程式碼的基底類別。若要以 Visual C# 撰寫 Web 測試，請參閱 WebTest 中的範例。若要在 Visual Studio 2005 Team System 外部執行測試，請參閱從命令列執行測試以取得詳細資訊。

此類別必須是繼承的類別，它無法具現化。

繼承者注意事項

當您從 ThreadedWebTest 繼承時，就必須覆寫 Run。

範例

以下是繼承自 ThreadedWebTest 的 Web 測試程式碼，名為 MyCodedWebTest。第二個要求會將三個控制項內所包含的表單資訊貼回至伺服器。

Option Strict Off
Option Explicit On

Imports Microsoft.VisualStudio.TestTools.WebTesting
Imports Microsoft.VisualStudio.TestTools.WebTesting.Rules
Imports System
Imports System.Collections.Generic

Namespace TestProject2
    
    Public Class MyCodedWebTest
        Inherits ThreadedWebTest
        
        Public Sub New()
            MyBase.New
            Me.PreAuthenticate = true
            Me.Proxy = "myproxy.com:80"
        End Sub
        
        Public Overrides Sub Run()
            Dim request1 As WebTestRequest = New WebTestRequest _
                ("https://localhost/MyWebSite")
            request1.ThinkTime = 1
            Dim rule1 As ExtractHiddenFields = New ExtractHiddenFields
            rule1.ContextParameterName = "1"
            AddHandler request1.ExtractValues, AddressOf rule1.Extract
            MyBase.Send(request1)

            Dim request2 As WebTestRequest = New WebTestRequest _
                ("https://localhost/MyWebSite/Default.aspx")
            request2.Method = "POST"
            Dim request2Body As FormPostHttpBody = New FormPostHttpBody
            request2Body.FormPostParameters.Add("__VIEWSTATE", "{{$HIDDEN1" + _
                ".__VIEWSTATE}}")
            request2Body.FormPostParameters.Add("Button1", "Button")
            request2Body.FormPostParameters.Add("TextBox1", "Hello text")
            request2.Body = request2Body
            Dim rule2 As ExtractHiddenFields = New ExtractHiddenFields
            rule2.ContextParameterName = ""
            AddHandler request2.ExtractValues, AddressOf rule2.Extract
            MyBase.Send(request2)
        End Sub
    End Class
End Namespace