这篇文章将为大家详细讲解有关如何获取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%3A1; 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%3A1; BAIDU_WISE_UID=wapp_1385534156727_907; locale=zh; bdime=0; NBID=D3EEB391CF4DCDA2ED0B6035E872886D:FG=1; BDUSS=EdwblA4akE5NjV-N3RPZFdjcW52VkJQQXBvbXhRMm5PaEXucy05am1MYkdjY0pTQVFBQUFBJCQAAAAAAAAAAAEAAAXDmn4UdDJubgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMbkmlLS5JpSe

这两个API各有优缺点，具体使用哪个得看具体情况选择了。

关于“如何获取IE浏览器Cookie信息”这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，使各位可以学到更多知识，如果觉得文章不错，请把它分享出去让更多的人看到。

另外有需要云服务器可以了解下创新互联建站www.cdcxhl.com，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。