delphi 自动登陆 读取网页信息

Question

我做了一个delphi自动登陆的软件，用webbrowser控件，现在可以自动登陆了，但我想获取登陆后网页的源码，和判断是否登陆成功？可以通过url来进行判断。还是有其他的方法。希望高手给予回答。
我放了一个按钮，来响应这些事件，而且这个网站在登陆成功后会跳转，怎么才能获得跳转后的网页源码呢？

Answer 1

点击登录以后，对webbrowser状态进行轮询，直到URL正确，且webbrowser状态为DOCUMENT_COMPLETE为止，然后取出网页内容。引用 MsHtml单元，

var
doc2: IHtmlDocument2;
begin
doc2 := (webbrowser.document as IHtmlDocument2);
content := doc2.innerHTMl;
end;
这个只能取到Body里的内容，如果想取到全部的，参看下文
http://www.wzsky.net/html/Program/Delphi/42994.html

参考资料：http://www.wzsky.net/html/Program/Delphi/42994.html

Answer 2

分析当前网页源码的关键字，在completedoucumant事件判断