00001: '------------------------------------------------------------------------------
00002: ' <auto-generated>
00003: '     This code was generated by a tool.
00004: '     Runtime Version:2.0.50727.1433
00005: '
00006: '     Changes to this file may cause incorrect behavior and will be lost if
00007: '     the code is regenerated.
00008: ' </auto-generated>
00009: '------------------------------------------------------------------------------
00010: 
00011: Option Strict Off
00012: Option Explicit On
00013: 
00014: Imports Microsoft.VisualStudio.TestTools.WebTesting
00015: Imports Microsoft.VisualStudio.TestTools.WebTesting.Rules
00016: Imports System
00017: Imports System.Collections.Generic
00018: Imports System.Text
00019: 
00020: Namespace TestProject1
00021: 
00022:     Public Class WebTest1Coded
00023:         Inherits ThreadedWebTest
00024: 
00025:         Public Sub New()
00026:             MyBase.New()
00027:             Me.PreAuthenticate = True
00028:         End Sub
00029: 
00030:         Public Overrides Sub Run()
00031:             Dim request1 As WebTestRequest = New WebTestRequest("http://localhost:1603/GISIS.WebSite/Terminal/Login.aspx")
00032:             request1.ThinkTime = 28
00033:             request1.Method = "POST"
00034:             Dim request1Body As FormPostHttpBody = New FormPostHttpBody
00035:             request1Body.FormPostParameters.Add("__EVENTTARGET", "")
00036:             request1Body.FormPostParameters.Add("__EVENTARGUMENT", "")
00037:             request1Body.FormPostParameters.Add("__VIEWSTATE", "/wEPDwUKMTIxMTc1NDQ4MA9kFgJmD2QWAgIDD2QWFgIDDw8WAh4LUG9zdEJhY2tVcmwFN2h0dHA6Ly9sb" & _
00038:                     "2NhbGhvc3Q6MTYwMy9HSVNJUy5XZWJTaXRlL1Rlcm1pbmFsL0xvZ2luLmFzcHhkZAIHDw8WAh4HVmlza" & _
00039:                     "WJsZWhkZAIJDw8WAh8BaGRkAgsPDxYCHwFoZGQCDQ8PFgIfAWhkZAIPDw8WAh8BaGRkAhEPDxYCHwFoZ" & _
00040:                     "GQCEw8PFgIfAWhkZAIVDw8WAh8ABQ5+L0RlZmF1bHQuYXNweGRkAhkPDxYCHgRUZXh0BQoyOC4wMS4yM" & _
00041:                     "DA4ZGQCGw8PFgIfAgUFMTQ6MThkZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WEQUmY" & _
00042:                     "3RsMDAkQ29udGVudFBsYWNlSG9sZGVyMSRJbWFnZUJ1dHRvbjEFJmN0bDAwJENvbnRlbnRQbGFjZUhvb" & _
00043:                     "GRlcjEkSW1hZ2VCdXR0b24yBSZjdGwwMCRDb250ZW50UGxhY2VIb2xkZXIxJEltYWdlQnV0dG9uMwUmY" & _
00044:                     "3RsMDAkQ29udGVudFBsYWNlSG9sZGVyMSRJbWFnZUJ1dHRvbjQFJmN0bDAwJENvbnRlbnRQbGFjZUhvb" & _
00045:                     "GRlcjEkSW1hZ2VCdXR0b241BSZjdGwwMCRDb250ZW50UGxhY2VIb2xkZXIxJEltYWdlQnV0dG9uNgUmY" & _
00046:                     "3RsMDAkQ29udGVudFBsYWNlSG9sZGVyMSRJbWFnZUJ1dHRvbjcFJmN0bDAwJENvbnRlbnRQbGFjZUhvb" & _
00047:                     "GRlcjEkSW1hZ2VCdXR0b244BSZjdGwwMCRDb250ZW50UGxhY2VIb2xkZXIxJEltYWdlQnV0dG9uOQUnY" & _
00048:                     "3RsMDAkQ29udGVudFBsYWNlSG9sZGVyMSRJbWFnZUJ1dHRvbjEwBSdjdGwwMCRDb250ZW50UGxhY2VIb" & _
00049:                     "2xkZXIxJEltYWdlQnV0dG9uMTEFJ2N0bDAwJENvbnRlbnRQbGFjZUhvbGRlcjEkSW1hZ2VCdXR0b24xM" & _
00050:                     "gUnY3RsMDAkQ29udGVudFBsYWNlSG9sZGVyMSRJbWFnZUJ1dHRvbjEzBSdjdGwwMCRDb250ZW50UGxhY" & _
00051:                     "2VIb2xkZXIxJEltYWdlQnV0dG9uMTQFDWN0bDAwJEdvTG9naW4FC2N0bDAwJEdvUmVnBQxjdGwwMCRHb" & _
00052:                     "01haW76xN3BypBvKJX/FvM1OeY0/KjXyA==")
00053:             request1Body.FormPostParameters.Add("__PREVIOUSPAGE", "DtsCjLRCx44X-yW0lipagNq-Fwca7C4vw-P5ncGBU0lLlf097NjPnhIuO684Zhu00")
00054:             request1Body.FormPostParameters.Add("__EVENTVALIDATION", "/wEWEgKdn6u3AQK9vIn8DAK9vI38DAK9vJH8DAK9vJX8DAK9vJn8DAK9vJ38DAK9vKH8DAK9vOX7DAK9v" & _
00055:                     "On7DAKCxtOnBAKdr/G8DgLM85f9DwLn3LWSCgKWodzSCwLxtfT4CwKu8KirCQKX+e3eBu8OjLESL3Jq5" & _
00056:                     "2kSAODc8h8tJTa8")
00057:             request1Body.FormPostParameters.Add("ctl00$GoLogin.x", "106")
00058:             request1Body.FormPostParameters.Add("ctl00$GoLogin.y", "33")
00059:             request1.Body = request1Body
00060:             Dim rule1 As ExtractHiddenFields = New ExtractHiddenFields
00061:             rule1.ContextParameterName = "1"
00062:             AddHandler request1.ExtractValues, AddressOf rule1.Extract
00063:             MyBase.Send(request1)
00064: 
00065:             Dim request2 As WebTestRequest = New WebTestRequest("http://localhost:1603/GISIS.WebSite/Terminal/Login.aspx")
00066:             request2.Method = "POST"
00067:             Dim request2Body As FormPostHttpBody = New FormPostHttpBody
00068:             request2Body.FormPostParameters.Add("__EVENTTARGET", "")
00069:             request2Body.FormPostParameters.Add("__EVENTARGUMENT", "")
00070:             request2Body.FormPostParameters.Add("__VIEWSTATE", Me.Context("$HIDDEN1.__VIEWSTATE").ToString)
00071:             request2Body.FormPostParameters.Add("ctl00$ContentPlaceHolder1$txtLogin", "1")
00072:             request2Body.FormPostParameters.Add("ctl00$ContentPlaceHolder1$txtPass", "1")
00073:             request2Body.FormPostParameters.Add("ctl00$ContentPlaceHolder1$txImagePass", "1")
00074:             request2Body.FormPostParameters.Add("ctl00$ContentPlaceHolder1$Enter", "Войти")
00075:             request2Body.FormPostParameters.Add("__PREVIOUSPAGE", Me.Context("$HIDDEN1.__PREVIOUSPAGE").ToString)
00076:             request2Body.FormPostParameters.Add("__EVENTVALIDATION", Me.Context("$HIDDEN1.__EVENTVALIDATION").ToString)
00077:             request2.Body = request2Body
00078:             MyBase.Send(request2)
00079:         End Sub
00080:     End Class
00081: End Namespace

Comments ( )