vb6 获取 http only 的 Cookie

Option Explicit

' No more data is available.
Const ERROR_NO_MORE_ITEMS = 259

' The data area passed to a system call is too small.
Const ERROR_INSUFFICIENT_BUFFER = 122

Private Declare Function InternetSetCookie Lib "wininet.dll" _
 Alias "InternetSetCookieA" _
 (ByVal lpszUrlName As String, _
 ByVal lpszCookieName As String, _
 ByVal lpszCookieData As String) As Boolean

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

Private Sub Command1_Click()
    Dim bRet As Boolean
    bRet = InternetSetCookie("http://xxxx/xxxx.htm", "Test", "Sent as Test via VB")
    If bRet = False Then
        MsgBox "Failed"
    End If
End Sub

Private Sub Command2_Click()
    Dim sCookieVal As String * 256
    Dim bRet As Boolean
    bRet = InternetGetCookie("http://wwww.baidu.com", "Test", sCookieVal, 255)
    If bRet = False Then
      MsgBox "Failed"
    Else
      Debug.Print sCookieVal
    End If
End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.baidu.com"
End Sub

 

你可能感兴趣的:(vb6 获取 http only 的 Cookie)