Microsoft application center test...oRespons e.body parsing

[cpavon]

Hello everyone,

I am fairly new to MACT, I am currently trying to parse the
oResponse.Body to retrive a dynamic values...store in an array and then
randomly post those values.

Does anyone have any sample code on how to parse the oResponse.Body?

This is what I have so far but I cannot seem to get the value I'm
trying to pick up.
I have been struguling on getting this values for a couple of days now.

The line of source code I'm trying to pickup displays as follows:
<form name="form2" action="/emobile/l.cfm" method="post">
<input type="hidden" name="params"
value="RAND;392 8;P_TYPE;0;MYST ATUS;5;AREA;2;S D;0;SEARCH;Sear ch;"/>

I would like to grab value and store it somewhere.

Thanks in advance.

'--------------------------------------------
' Here I'm posting my random search critieria
' and then it will return a page with the results in a form
' of links. The links area property address'
'

Sub SendRequest9()
Dim oConnection, oRequest, oResponse, oHeaders, strStatusCode
If fEnableDelays = True then Test.Sleep (20051)
Set oConnection = Test.CreateConn ection(sSiteNam e, 80, false)
If (oConnection is Nothing) Then
Test.Trace "Error: Unable to create connection to " & sSiteName
Else
Set oRequest = Test.CreateRequ est
oRequest.Path = "/emobile/l.cfm"
oRequest.Verb = "POST"
oRequest.HTTPVe rsion = "HTTP/1.0"
oRequest.Encode Body = False
set oHeaders = oRequest.Header s
oHeaders.Remove All
oHeaders.Add "Accept", "image/gif, image/x-xbitmap, image/jpeg,
image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel,
application/vnd.ms-powerpoint, application/msword, */*"
oHeaders.Add "Referer", "http://" & sSiteName &
"/emobile/cr.cfm"
oHeaders.Add "Accept-Language", "en-us"
oHeaders.Add "Content-Type",
"applicatio n/x-www-form-urlencoded"
oHeaders.Add "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0;
Windows NT 5.1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; .NET CLR
2.0.50215)"
'oHeaders.Add "Host", sSiteName
oHeaders.Add "Host", "(automatic )"
oHeaders.Add "Pragma", "no-cache"
oHeaders.Add "Cookie", "(automatic )"
oHeaders.Add "Content-Length", "(automatic )"
' Test.TraceLevel = -1
oRequest.Body = "rand=8833&p_ty pe=" & GetRandomProper tyType &
"mystatus=" & GetRandomStatus & "area=" & GetRandomArea &
"st=&street nu"
oRequest.Body = oRequest.Body + "m1=&streetnum2 =&zip_code=&lp1 =" &
GetRandomPrice1 & "lp2=" & GetRandomPrice2 & "br1=" & GetRandomBed1
oRequest.Body = oRequest.Body + "br2="& GetRandomBed2& "ba1=" &
GetRandomBath1 & "ba2=" & GetRandomBath2 &
"sf1=&sf2=&lsz1 =&lsz2=&unt1=&u nt2"
oRequest.Body = oRequest.Body + "=&sd=0&Search= Search"
Set oResponse = oConnection.Sen d(oRequest)
If (oResponse is Nothing) Then
Test.Trace "Error: Failed to receive response for URL to "
+ "/emobile/l.cfm"
Else
strStatusCode = oResponse.Resul tCode
End If
oConnection.Clo se
End If
End Sub
'---------------------
' here I am trying to parse the oResponse.body but get
' nothing using the InStr towards the end of the Sub. I also tried
' the code on the sub above right after the If (oResponse Nothing)
' Then
Else
'Begin params parsing

Sub SendRequest10()
Dim oConnection, oRequest, oResponse, oHeaders, strStatusCode
Dim oUser, Pos1, Pos2, sParams
If fEnableDelays = True then Test.Sleep (287)
Set oConnection = Test.CreateConn ection(sSiteNam e, 80, false)
If (oConnection is Nothing) Then
Test.Trace "Error: Unable to create connection to " & sSiteName
Else
Set oRequest = Test.CreateRequ est
Set oUser = Test.GetCurrent User
oRequest.Path = "/emobile/l.cfm"
oRequest.Verb = "GET"
oRequest.HTTPVe rsion = "HTTP/1.0"
set oHeaders = oRequest.Header s
oHeaders.Remove All
oHeaders.Add "Accept", "*/*"
'Test.Trace("** *************** *********" & oUser.Name & "
RETRIEVING RESULTS******** *************** ***")
oHeaders.Add "Referer", "http://" & sSiteName &
"/emobile/l.cfm"
oHeaders.Add "Accept-Language", "en-us"
oHeaders.Add "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0;
Windows NT 5.1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; .NET CLR
2.0.50215)"
'oHeaders.Add "Host", sSiteName
oHeaders.Add "Host", "(automatic )"
oHeaders.Add "Cookie", "(automatic )"
Set oResponse = oConnection.Sen d(oRequest)
If (oResponse is Nothing) Then
Test.Trace "Error: Failed to receive response for URL to "
+ "/CFIDE/debug/images/topdoc.gif"
Else
'Begin params parsing
If InStr(oResponse .Body, "params") Then
Pos1 = InStr(InStr(oRe sponse.Body, "params"), oResponse.Body,
"value=")
Pos2 = InStr(Pos1, oResponse.Body, "/>")
sParams = Mid(oResponse.B ody, Pos1, Pos2)
Test.Trace "params 2= " & sParams
End If
strStatusCode = oResponse.Resul tCode
'Test.Trace "params = " & sParams
End If
oConnection.Clo se
End If
End Sub