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 = 122Private Declare Function InternetSetCookie Lib "wininet.dll" _ Alias "InternetSetCookieA" _ (ByVal lpszUrlName As String, _ ByVal lpszCookieName As String, _ ByVal lpszCookieData As String) As BooleanPrivate Declare Function InternetGetCookie Lib "wininet.dll" _ Alias "InternetGetCookieA" _ (ByVal lpszUrlName As String, _ ByVal lpszCookieName As String, _ ByVal lpszCookieData As String, _ lpdwSize As Long) As BooleanPrivate 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 IfEnd SubPrivate 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 IfEnd SubPrivate Sub Form_Load()    WebBrowser1.Navigate "http://www.baidu.com"End Sub