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

转载于:https://www.cnblogs.com/a-xu/p/3152303.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值