愿意用所有的分数来求这个题的答案，关于登陆问题。

Question

件写自动登陆程序，试图在登陆之后由IE弹出到目的地址，但有一些网站（比如chinaren），一旦弹出后IE后，便是未登陆状态，而在webbroswer中则已经是登陆过的。请教各位是否有解决的方法，使弹出的窗口为登陆以后的状态。
================================
我的部分代码如下：procedure TForm1.BitBtn1Click(Sender: TObject);
var
  o : Olevariant;
begin
  o := WebBrowser1.OleObject.document.all.item('username',0);
  o.value :=edit1.text;
  o := WebBrowser1.oleobject.document.all.item('Password',0);
  o.value :=edit2.text;
  o :=WebBrowser1.oleobject.document.all.item('FM',0);
  o.submit;
  shellexecute(handle,nil,'iexplore.exe',pchar('-new http://alumni.chinaren.com/class/class_index.jsp?c3979348034830'),nil,sw_shownormal);end;

Answer 1

新开的IE和已登陆的WebBrowser中的Cookie不一样，因此对应的Session也不一样。你不能用shellexecute来打开新的IE，而需要调用WebBrowser1来打开新的IE窗口，这样的Session才是一致的。