delphi WebBrowser 自动登录

本文整理自网络，侵删。

 
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; 
 

相关阅读 >>

Delphi 坐标截图如何实现

Delphi 如何将颜色值转换为灰度颜色值？

unigui js操作Delphi控件赋值

Delphi edit,memo中禁用ctrl+v

Delphi mainmenu控件 checkde属性用法

Delphi sysutils.comparetext的注释

Delphi中如何实现模糊查找文件

Delphi - system.runerror

Delphi xe7实现手机上获取wifi信息的程序

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi WebBrowser 自动登录