Delphi中TWebBrowser中注入Js
来源:互联网 发布:淘宝儿童玩具电子琴 编辑:程序博客网 时间:2024/05/22 13:17
最近帮朋友做一个软件,其中要自动化某网页中的操作,最简的操作是调用自己写的代码。
代码如下:
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
h:IHTMLHeaderElement;
o:OleVariant;
begin
o:=webbrowser1.OleObject.document.createElement('script');
o.type:='text/javascript';
o.text:='var a=1;alert(document);';
WebBrowser1.OleObject.document.getElementsByTagName('head').item(0).appendChild(o);
end;
注意:WebBrowser中的OleObject可是个好东西。功能非常强大,但其又是把双刃剑。一定要仔细使用。
- Delphi中TWebBrowser中注入Js
- Delphi中TWebBrowser的用法
- Delphi 中TWebBrowser的扩展控件TExWebBrowser
- delphi中TWebBrowser控件增强版
- delphi中TWebBrowser控件常用实例集锦
- Delphi 中TWebBrowser的扩展控件TExWebBrowser
- Delphi中使用TWebBrowser时存在内存泄漏问题
- Delphi中TWebBrowser的使用,实现IDocHostUIHandler接口
- Delphi 从 TWebBrowser中获得当前输入处的链接
- TWebbrowser 中设置referer
- TWebbrowser 中设置referer
- Delphi TWebBrowser
- Delphi TWebBrowser
- Delphi中实现事件“注入”
- Delphi中获取TWebBrowser中鼠标移动到超链接的URL
- delphi 将 HTML 代码直接加入到 TWebbrowser 组件中去
- delphi TWebBrowser 用法
- Delphi TWebBrowser(1)
- Nova object 模型介绍 (1)
- spring注解配置bean和注解配置aop
- 如何在eclipse里面进行PHP代码的调试(使用集成开发环境xampp)
- 不错的有关Python 函数笔记(转)
- pbc 库的 lua binding
- Delphi中TWebBrowser中注入Js
- java中final的意义
- Linux 经典书籍 推荐
- Thunderbird开机启动
- C++基础
- LOGCAT没有输出问题解决
- Swing —— 限制JTextArea只能输入浮点数
- 在编写xsd文件时,不能使用xml注释,否则会导致NetBeans没有代码提示功能
- Spring 知识点