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 edit控制字居中，居左，居右

Delphi 查看指定进程占用端口

Delphi 附加数据读取

Delphi 隐藏进程代码

Delphi内存映射大文件

Delphi 一个整数转其二进制表示的小函数

Delphi使用迅雷的开放下载引擎下载

Delphi内嵌汇编语言basm精要

Delphi下获取系统默认的useragent的方法

Delphi 下载并运行的代码

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

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