PublicSharedFunctionGetCookiesSetByPage(ByVal strUrl AsString,ByVal cookieToProvide AsString)AsIEnumerable(OfString)
Dim req AsSystem.Net.HttpWebRequest
Dim res AsSystem.Net.HttpWebResponse
Dim sr AsSystem.IO.StreamReader
'--notice that the instance is created using webrequest
'--thisis what microsoft recomends
req =System.Net.WebRequest.Create(strUrl)
'set the standard header information
req.Accept="*/*"
req.UserAgent="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)"
req.ContentType="application/x-www-form-urlencoded"
req.AllowAutoRedirect=False
req.Headers.Add(HttpRequestHeader.Cookie, cookieToProvide)
res = req.GetResponse()
'read in the page
sr =NewSystem.IO.StreamReader(res.GetResponseStream())
Dim strResponse AsString= sr.ReadToEnd
'Get the cooking from teh response
Dim strCookie AsString= res.Headers(System.Net.HttpResponseHeader.SetCookie)
Dim strRedirectLocation AsString= res.Headers(System.Net.HttpResponseHeader.Location)
Dim result AsNewList(OfString)
IfNot strCookie =NothingThen
result.Add(strCookie)
EndIf
result.Add(strRedirectLocation)
Return result
EndFunction