ThreadedWebTest 类

项目
09/04/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

备注

这应该始终是使用不支持类似 Visual C# 迭代器的语法的语言编写的所有已编码 Web 测试的基类。若要使用 Visual C# 编写 Web 测试，请参见 WebTest 以获得有关示例。若要在 Visual Studio 2005 Team System 之外运行测试，请参见执行命令行测试以获得更多信息。

必须继承该类；不能实例化该类。

对继承者的说明：

当从 ThreadedWebTest 继承时，必须重写 Run。

示例

以下是一个从 ThreadedWebTest 继承的、名为 MyCodedWebTest 的编码 Web 测试。第二个请求将三个控件中包含的窗体信息回发到服务器。

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