WebBrowser自动登录

复制代码

单个frames的输入

var

o : Olevariant;

begin

o := WebBrowser.OleObject.document.all.item('LoginUserID',0);    //找到登录用户名的输入框

o.value := 'TEST';

o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //找到登录密码的输入框

o.value := 'TEST'

WebBrowser.oleobject.document.Forms.Item(0, 0).submit;           //第一个表单提交

{

o :=WebBrowser.oleobject.document.all.item('Login',0);           //或者用指定表单名称提交

o.Click;   //点击操作，对其它对象也可同样操作

}

end;

多个frames的输入，FrameIndex为Frame的序号

var

o : Olevariant;

begin

//找到登录用户名的输入框

o := WebBrowser.oleobject.document.documentelement.document.frames.item(FrameIndex).document.all.item('LoginUserID',0);

o.value := 'TEST';

//找到登录密码的输入框

o := WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item('LoginPassword',0);

o.value := 'TEST'

//第一个表单提交

WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0, 0).submit;

{

//或者用指定表单名称提交

o :=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex)..document.all.item('Login',0);

o.Click;    //点击操作，对其它对象也可同样操作

}

end;