Question

delphi的webbrowser操作网页，自动登录后怎么继续在登进去的页面再次操作网页?

procedure TForm1.btnLoginClick(Sender: TObject);
var
UserEdt, UserPwd, LogBtn: IHTMLELEMENT;
begin
WebBrowser.Navigate(edtUrl.Text);
while WebBrowser.busy do
Application.ProcessMessages;
while WebBrowser.ReadyState <>READYSTATE_COMPLETE do
Application.ProcessMessages;

//具体的用户名，密码，登录按钮的名称，根据登录页面表单而定
UserEdt := (WebBrowser.Document as IHTMLDOCUMENT2).all.item('userid',emptyParam) as IHTMLELEMENT;
UserPwd := (WebBrowser.Document as IHTMLDOCUMENT2).all.item('pwd',emptyParam) as IHTMLELEMENT;
LogBtn := (WebBrowser.Document as IHTMLDOCUMENT2).all.item('submit',emptyParam) as IHTMLELEMENT;

UserEdt.setAttribute('value', edtUserName.Text,0);
UserPwd.setAttribute('value', edtPassword.Text,0);
LogBtn.Click;
end;

部分源码如上，执行 LogBtn.Click;将自动登录，成功登录进去后要怎么继续操作网页

Answer 1

item :=WebBrowser.OleObject.Document.all.tags('b').item(0);
if item <> Null then
item.click;
示例是查找控件显示的网页上第一个<b></b>的元素，点击它
其他类似，元素的序号你可以查看网页源码，自己数