用webbrowser获取cookies信息。@H_502_1@

第一种：

Private Sub Command1_Click()
MsgBox WebBrowser1.Document.cookie '用webbrowser的document对象获取
End Sub

第二种：

Private Sub Command2_Click()
WebBrowser1.Navigate "javascript:alert(document.cookie)" '利用执行脚本获取
End Sub

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

End Sub