如何使用excel vba获取cookie信息

Option Explicit

Declare PtrSafe Function InternetGetCookie Lib "wininet.dll" _
    Alias "InternetGetCookieA" (ByVal sUrl As String, ByVal sCookieData As String, ByRef lpcbCookieData As Long) As Boolean

Sub GetCookieInfo()
    Dim url As String
    Dim cookieData As String
    Dim bufferSize As Long
    Dim success As Boolean
    
    url = "https://example.com" ' 替换为你想要获取Cookie信息的网址
    
    bufferSize = 1024 ' 缓冲区大小，根据需要进行调整
    
    cookieData = Space(bufferSize)
    
    success = InternetGetCookie(url, cookieData, bufferSize)
    
    If success Then
        cookieData = Left(cookieData, bufferSize)
        MsgBox "Cookie信息：" & vbCrLf & cookieData
    Else
        MsgBox "无法获取Cookie信息。"
    End If
End Sub