delphi 操作 TWebBrowser 实现自动填表(JQuery脚本与 OleVariant 方法)

版本:DELPHI XE8

操作交通银行信用卡申请表单(2016-03-23),网址如下:

https://creditcardapp.bankcomm.com/applynew/front/apply/new/identity.html

本次操作的难点是“省份”与“城市”这两个<select>标签,当选择了“省份”时,“城市”会自动变更。

但,用普通的方法去改变“省份”的值,不能触发“城市”自动更新事件。

经过尝试,发现用JQUERY脚本可以达到效果。代码如下:

var
  BDoc: IHTMLDocument2; //需要 USES MSHTML
  sJs1: string;
  sJs2: string;
begin
  BDoc := WebBrowser1.Document as IHTMLDocument2;

  sJs1 := ‘$("#mrm_ddlProvince").find("option").eq(14).attr("selected","selected");‘;
  sJs1 := sJs1 + ‘$("#mrm_ddlProvince").find("option").eq(14).change();‘;

  sJs2 := ‘$("#mrm_ddlCity").find("option").eq(3).attr("selected","selected");‘;
  sJs2 := sJs2 + ‘$("#mrm_ddlCity").find("option").eq(3).change();‘;

  BDoc.parentWindow.execScript(sJs1, ‘JavaScript‘);
  BDoc.parentWindow.execScript(sJs2, ‘JavaScript‘);

end;

另外,再介绍一种操作网页元素的方法。

var
  BDoc: IHTMLDocument2;
  e: OleVariant;
  s: string;
begin
  BDoc := WebBrowser1.Document as IHTMLDocument2;
  e := BDoc.all.item(‘元素的ID‘, 0); // 假设此元素是一个 </A>标签
  s := e.href; //这个是强制取 href 这个属性的值,也可以是一个函数,当然你也可以胡乱写一个,编译时是不会出错的。
  // 当 IHTMLELEMENT 没有定义这些元素时,就可以用此“万能”方法。
  ShowMessage(s);
  e.href:=‘www.xxx.com‘; //你也可以给 href 赋值
end;

TWebBrowser 与 IE 同为一源,如果不追求集成效果,也可以直接去操作IE,只需要事先获取到IE页面的 IHTMLDocumnet2 接口就可以了。

http://www.cnblogs.com/lackey/p/5310212.html

时间: 2024-10-12 23:19:19

delphi 操作 TWebBrowser 实现自动填表(JQuery脚本与 OleVariant 方法)的相关文章

黄聪:WebBrowser执行和安装jQuery脚本(IEBrowse)

上一文章说明了如何让 js 脚本访问 .NET 中的类, 这次希望给大家说明一下在任意页面中安装 jQuery 脚本, 并操作页面上的元素. 其实在第一篇关于 IEBrowser 的文章当中, 已经有了一段 jQuery 的示例, 但可能由于篇幅原因, 没有过多的解释, 所以决定单独写一篇来重新说明. 这次准备的例子也是较为简单的, 实现了模拟用户搜索百度, 请大家看下面的代码: if ( string.IsNullOrEmpty ( this.txtKeyword.Text ) ) retur

自动加域脚本,bat和vbs配合使用,使加域操作更简单

我的实验:编写自动加域脚本(总结)1.自动加域脚本的目的.A.减少重复繁杂的必要操作,提高工作效率.B.使加域操作更简单,更有乐趣. 2.自动加域的实现方式,分为三个步骤.A.使用bat和vbs相互配合.(因为本人编程水平不高)B.更改电脑名字.(不需要重启电脑)C.更改电脑IP地址及DSN.(选择自动获取还使手动配置)D.调用Vbs文件完成自动加域操作.(不解释为什么要调用vbs,而不直接用bat完成) 3.相关文件.A.链接:https://pan.baidu.com/s/1sZmCisS1

使用jQuery动态加载js脚本文件的方法

动态加载Javascript是一项非常强大且有用的技术.这方面的主题在网上已经讨论了不少,我也经常会在一些个人项目上使用RequireJS和Dojo加载js 它们很强大,但有时候也会得不偿失.如果你使用的是jQuery,它里面有一个内置的方法可以用来加载单个js文件.当你需要延迟加载一些js插件或其它类型的文件时,可以使用这个方法.下面就介绍一下如何使用它! 一.jQuery getScript()方法加载JavaScript jQuery内置了一个方法可以加载单一的js文件:当加载完成后你可以

Delphi操作XML - 冰雪傲骨

Delphi操作XMl,只要使用 NativeXml.我是用的版本是4.02.NativeXML的使用方法比较简单,但是功能很强大. XE2的话,要在simdesign.inc后面加上: // Delphi XE2 / 16 {$ifdef VER230} {$define D7UP} {$define D10UP} {$define D15UP} {$endif} 一.使用 1) Copy the NativeXml files from the NativeXml directory int

Selenium2学习-014-WebUI自动化实战实例-012-Selenium 操作下拉列表实例-div+{js|jquery}

之前已经讲过了 Selenium 操作 Select 实现的下拉列表:Selenium2学习-010-WebUI自动化实战实例-008-Selenium 操作下拉列表实例-Select,但是在实际的日常网页开发中,实现下拉列表的方法.样式.特效有 N 多种,但是无论实现的方法有多少不同,其都会遵循一定的规律,在此我就不再赘述了(有兴趣的小主,可以找有经验的前段请教一下).同时,此类实现的下拉列表在使用 Selenium 进行定位时,往往不尽如人意,定位比较繁琐. 此文仅以 淘宝网账户注册时选择手

windows 10 如何设定计划任务自动执行 python 脚本?

我用 python 写了一些脚本,有一些是爬虫脚本,比如爬取知乎特定话题的热门问题,有一些是定期的统计分析脚本,输出统计结果到文档中.之前我都是手动执行这些脚本,现在我希望如何这些脚本能自动定时执行.那么,windows 10 操作系统如何定时自动执行 python 脚本? 我的设备是 windows 10操作系统,自带的"计划任务"可以满足我的需求,具体操作步骤,整理如下. 步骤1:打开 "计算机管理" 界面 点击电脑左下角的windows图标,或者键盘的wind

Delphi 操作 XML(一)

一.欢迎 本帮助文件提供从SimDesign BV的NativeXml组件的信息. 二.购买NativeXml! NativeXml现在是开源的,但支持是仅专门适用于购买NativeXml的客户. 您可以通过此链接购买NativeXml:http://www.simdesign.nl/xml.html 价格:29.95欧元 采购NativeXml的优势: 两年的通过电子邮件或特殊的"NativeXml Source"论坛支持,接收测试和修正,并从"NativeXml Sour

delphi 操作 XML (二)

在装有Win7 32位系统的台式机上 先卸载旧驱动,再重新安装. 对设备管理器里的U转串口设备从本地更新驱动,选择下图文件 系统弹出红色提示框(是否安装XXXX驱动),选择安装,随后该设备由无法启动变为工作正常. 在Win8 64位系统上 安装驱动后,出现下图情况,设备无法启动(错误代码10) 选择08年的驱动后,串口恢复正常. 总结 这些驱动有很多不兼容的,特别是在高级Windows版本或64位系统上,解决的思路就是多尝试安装各种版本,并根据串口状态调整安装策略. delphi 操作 XML

经典实用的自动创建Bash脚本文件头的脚本

今天给大家展示一下,我自己写的一个自动创建Bash脚本文件头的脚本(名为create),希望能对初学脚本者带来一定的思维提示.毕竟对于一个经常写脚本的运维人员来说,每次写脚本的时候都需要重复的去写一遍文件头,也是一件很累赘的事情,既然我们学了脚本,为什么不让它来为我们减轻一下负担了.所以一个自动创建Bash脚本文件头的想法在我脑海里面产生了. 本脚本所需要实现的功能: 1,能够自动创建一个标准的Bash脚本文件头,带有详细注释信息 2,能够给新建完成的Bash脚本文件自动添加执行权限 [[ema