获取IE浏览器Cookie信息的方法

【获取IE浏览器Cookie信息的方法】很多人不知道如何去获取IE浏览器中的Cookie信息，其实获取Cookie的方式很简单，只需要调用InternetGetCookie这个API就可以获得了。

InternetGetCookie的声明方式如下：
Private Declare Function InternetGetCookie Lib "wininet.dll" Alias "InternetGetCookieA" (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String, lpdwSize As Long) As Boolean
我们要获取www.baidu.com这个域名之下的Cookie信息可以这么写：
Dim buffer As String * 8096If InternetGetCookie("http://www.baidu.com", vbNullString, buffer, 8096) Then MsgBox "获取到的Cookie信息如下: " & vbCrLf & bufferEnd If
获取结果：
获取到的Cookie信息如下： bdshare_firstime=1385336980826; sug=3; sugstore=1; BD_TMP_CK=true; BAIDUID=F1F6DA77AD0E469EEF3301C98F1CB0A1:FG=1; cflag=65535:1; BAIDU_WISE_UID=wapp_1385534156727_907; locale=zh; bdime=0; NBID=D3EEB391CF4DCDA2ED0B6035E872886D:FG=1
在用InternetGetCookie获取Cookie信息有个缺点，它无法获得带有HTTP_ONLY标记的Cookie 。
针对这个问题的解决办法是使用InternetGetCookie这个API的扩展版InternetGetCookieEx来获取，不过它也有问题，对某些版本的IE支持不怎么好。
InternetGetCookieEx的声明方式如下：
Private Const INTERNET_COOKIE_HTTPONLY As Integer = 8192Private Declare Function InternetGetCookieEx Lib "wininet.dll" Alias "InternetGetCookieExA" (ByVal url As String, ByVal cookieName As String, ByVal cookieData As String, ByRef size As Integer, ByVal flags As Integer, ByVal pReserved As Long) As Boolean
调用方式也差不多：
Dim buffer As String * 8096If InternetGetCookieEx("http://www.baidu.com", vbNullString, buffer, 8096, INTERNET_COOKIE_HTTPONLY, 0) Then MsgBox "获取到的Cookie信息如下: " & vbCrLf & bufferEnd If
获取结果：
获取到的Cookie信息如下: bdshare_firstime=1385336980826; sug=3; sugstore=1; BD_TMP_CK=true; BAIDUID=F1F6DA77AD0E469EEF3301C98F1CB0A1:FG=1; cflag=65535:1; BAIDU_WISE_UID=wapp_1385534156727_907; locale=zh; bdime=0; NBID=D3EEB391CF4DCDA2ED0B6035E872886D:FG=1; BDUSS=EdwblA4akE5NjV-N3RPZFdjcW52VkJQQXBvbXhRMm5PaEXucy05am1MYkdjY0pTQVFBQUFBJCQAAAAAAAAAAAEAAAXDmn4UdDJubgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMbkmlLS5JpSe
这两个API各有优缺点，具体使用哪个得看具体情况选择了。

获取IE浏览器Cookie信息的方法

相关经验推荐

德云色谈常规赛最佳阵容：一阵上单大概率Bin，中单只能给Rookie

欧文4ncaa鞋底随机吗

珍珠蛋怎么煮比较硬珍珠太硬怎么办

天龙网游：为信仰而接手偶像之号，最后虽然放弃但绝不后悔

2022连云港高新区助企纾困举措一览连云港招商引资政策

比武大会冠军争夺战现场，【君临天下】队伍被2回合抬走

王者荣耀：元歌难度被过分高估、夸大但是用的玩家却不多

年度汇算清缴时间是什么时候

小个子女生怎么穿背带裤

盒饭|动漫中看似主角的路人，领完盒饭以后，才反应过来！

玄中记怎么封印三青鸟玄中记封印三青鸟方法

千古玦尘电视剧什么时候播千古玦尘的创作背景

键盘|微信大哥地位动摇？又一社交黑马出现，手机只要拨号就能视频通话

小米科技|小米12X：虽已少人问津，但都是为了给新机“面子”！

盐豆怎么炒

怎样忘记一段感情放下一个人怎样忘记一个人

宝宝吐奶怎么办宝宝漾奶吐奶呛奶不一样处理办法

以和为贵|日本奥运开挂了！为每个国家都设计了不同的动漫图像，中国的最帅

西红柿为什么叫洋柿子呢西红柿为什么叫洋柿子

苹果8怎么强制重启手机苹果8怎么强制重启