利用Delphi的Olevariant类型操作WebBrowser

时间：2011/9/3 15:38:08 点击：

　　核心提示：单个frames的输入 var o : Olevariant; begin //找到登录用户名的输入框 o := WebBrowser.OleObject.document.all.item('Log...

单个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;