| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3299989
建立时间:2005年6月6日 |
| |
|
 [delpih编程]Delphi用WebBrowser编程-自动登录操作
软件技术
吕向阳 发表于 2009/3/12 12:05:37 |
| 利用Delphi的Olevariant类型===单个frames的输入varo : Olevariant;begino := 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的序号varo : 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; |
|
|