cookieContainer应用

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