GetResponseHeader如何取得服务器返回的多个[set-cookie]问题!

[zgqtxwd]

使用WinHttp.WinHttpRequest.5.1控件，读取数据时返回多行set-cookie

但是用.GetResponseHeader("Set-Cookie")只能读取到每一行

如何取到每二个Set-Cookie，第三个Set-Cookie呢？



以下为返回的头信息
HTTP/1.1 200 OK
Date: Sat, 24 Sep 2011 22:17:26 GMT
Server: xxx Login Server/2.0.0
P3P: CP="CAO PSA OUR"
Set-Cookie: ads=12331414; ads=Fri, 02-Jan-2010 00:00:00 GMT; PATH=/; DOMAIN=xxx.com;
Set-Cookie: uin=3213120414; PATH=/; DOMAIN=xxx.com;
Set-Cookie: aes=@SpAofUf9z; PATH=/; DOMAIN=xxx.com;


可以QQ或QQ邮箱上告诉我哦！63272765

[dahual]

字符串处理而已，可以自己写个。

'自定义函数，返回数组集合
Function GetResponseHeader(ResponseHeaders,Header)
	Dim hs,h
	Dim fs
	Dim rs(),rc
	hs=Split(ResponseHeaders,vbCrLf)
	ReDim rs(UBound(hs))
	For Each h In hs
		If Len(h)>0 Then 
			fs=Split(h,": ")
			If StrComp(fs(0),Header,vbTextCompare)=0 Then
				rs(rc)=fs(1)
				rc=rc+1
			End If
		End If
	Next
	
	If (rc>0) Then
		ReDim Preserve rs(rc-1)
		GetResponseHeader=rs
	End If
End Function


'示例
Dim r,v
Dim HttpRequest
Set HttpRequest=CreateObject("WinHttp.WinHttpRequest.5.1")'WinHttp.WinHttpRequest.5.1
With HttpRequest
	.Open "GET","http://www.163.com"
	.Send
	r=GetResponseHeader(.GetAllResponseHeaders(),"Vary")
	If IsEmpty(r) Then
		MsgBox "未找到！"
	Else
		For Each v In r
			MsgBox v
		Next
	End If
End With
Set HttpRequest=Nothing

[专注VB编程开发20年]

GetAllResponseHeaders,这样就好了

[oh_ku]

楼主有答案了没，我也想知道