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

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

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

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

我们要获取baidu.com这个域名之下的Cookie信息可以这么写：

Dim buffer As String * 8096If InternetGetCookie("http://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://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-N3RPZFdjcW52VkJQQXBvbXhRMm5PaEXucy05am1MYkdjY0pTQVFBQUFBJCQAAAAAAAAAAAEAAAXDmn4UdDJubgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhttp://AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMbkmlLS5JpSe

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。