Private Sub Command1_Click()
Dim strURL As String
strURL = "http://reg.qq.com/"
Inet1.Execute strURL, "GET"
Do Until Inet1.StillExecuting = False 
DoEvents
LoopPrint Inet1.GetHeade'这样获取的是网页接收到的数据,我要的是发送时的cookie
我用抓包工具抓到的get数据
HTTP/1.1 200 OK
Date: Thu, 01 Jul 2010 01:32:49 GMT
Server: Apache
Pragma: no-cache
Cache-Control: no-cache, must-revalidate
Set-Cookie: ptcz=1fd9aceda8001140f3574cf92acf38bf287b92a0517e1f00e7f98152338861f1; EXPIRES=Sat, 01 Jan 2050 00:00:01 GMT; PATH=/; DOMAIN=qq.com;
Set-Cookie: AREACODE=1|33|3; EXPIRES=Sat, 01 Jan 2050 00:00:01 GMT; PATH=/; DOMAIN=qq.com;
Set-Cookie: PCCOOKIE=307844cedcb00ea020b955aa67ea4ec5d53737f46e5c1418e99783cc53366df9; EXPIRES=Sat, 01 Jan 2050 00:00:01 GMT; PATH=/; DOMAIN=qq.com;
Set-Cookie: PCCOOKIE2=2046231329; EXPIRES=Sat, 01 Jan 2050 00:00:01 GMT; PATH=/; DOMAIN=qq.com;
Content-Length: 7705
Content-Type: text/html; charset=utf-8
也就是我怎么用vb自己获取上面的内容