webbrowser 设置cookie 哈哈

http://bbs.csdn.net/topics/290039166

 

我问了好多问题，虽然回答的答案并不一定能解决问题但也谢谢各位论坛上的朋友热心回答。。现在我也回报一下我的学习知识。希望能帮助楼主 ,请看我的备注

首先声明一个全局变量

 Doc : IHTMLDocument2; 
      注意头部要加上mshtml

 连接我就简单说一下吧
  按钮
   WebBrowser1.Navigate(Edit1.Text);

 在webbrowser1的DocumentComplete事件中加入以下代码  ---取cookie值 
  Doc:=WebBrowser1.Document as IHTMLDocument2;  //获得 一个IHTMLDocument2对象
  edit2.Text:=Doc.cookie;    //Doc.cookie就是页面COOKIE信息了 

 在webbrowser1的ProgressChange事件中加入以下代码 
 if WebBrowser1.LocationURL <> 'about:blank' then
    edit1.Text := WebBrowser1.LocationURL //请注意此处为地址栏,当你点击其他页面的时候也要让他跟着变
  else                                      //要不然当你想修改COOKIE的时候会发现无法修改  
    Edit1.Text := '';

 
 修改COOKIE按钮一个
 在按钮中声明一个SList: TStrings;
 然后在begin和end插入
 if Edit2.Text = '' then Exit;
 SList := TStringList.Create; {修改浏览器的Cookies}
 Slist.CommaText := Edit2.Text;
 for i := 0 to SList.Count - 1 do {将Cookies分段提交给浏览器}
  Doc.cookie := SList.Strings[i];
 Webbrowser1.Refresh; {修改后Cookies后刷新浏览器}
 SList.Free; {释放}