开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

12
返回列表 发新帖
楼主: 典範
收起左侧

[易语言] 有没有办法取非IE内核的地址栏地址呢

[复制链接]
结帖率:33% (7/21)
发表于 2013-2-2 21:18:28 | 显示全部楼层   广东省清远市
[e]
.版本 2
.支持库 eAPI
.支持库 HtmlView

.程序集 窗口程序集1
.程序集变量 tb1, 网页填表
.程序集变量 tb2, 网页填表
.程序集变量 当前网页地址, 文本型
.程序集变量 外部浏览器句柄, 整数型

.子程序 __启动窗口_创建完毕

打开指定网址 (“www.euudy.com”)
.判断开始 (进程_是否存在 (“QQ.exe”))
    时钟1.时钟周期 = 30000
    超文本浏览框1.跳转 (“http://127.0.0.1”, , )
.默认
    结束 ()
.判断结束


.子程序 _时钟1_周期事件
.局部变量 枚举窗口信息, 精易_窗口信息, , "0"
.局部变量 o, 整数型
.局部变量 标题1, 文本型
.局部变量 句柄1, 整数型
.局部变量 影片内容, 文本型
.局部变量 次数, 整数型

窗口_枚举 (枚举窗口信息)
影片内容 = “高清在线观看-”

.计次循环首 (取数组成员数 (枚举窗口信息), o)
    标题1 = 枚举窗口信息 [o].窗口标题
    句柄1 = 枚举窗口信息 [o].窗口句柄
    .判断开始 (寻找文本 (标题1, 影片内容, , 假) ≠ -1)
        时钟1.时钟周期 = 0
        .如果 (信息框 (“是否分享当前影片到QQ空间?”, 1 + 65536, ) = #确认钮)
            外部浏览器句柄 = 句柄1
            外部浏览器初始化 ()
        .否则
            tb1.销毁 ()
            tb2.销毁 ()
            结束 ()
        .如果结束

    .默认

    .判断结束

.计次循环尾 ()
次数 = 次数 + 1
.如果真 (次数 = 30)
    tb1.销毁 ()
    tb2.销毁 ()
    结束 ()

.如果真结束


.子程序 外部浏览器初始化, , , 取得当前页面的地址

.判断开始 (tb1.初始化 (外部浏览器句柄, , ))
    当前网页地址 = tb1.网页_取地址 ()
    tb1.销毁 ()
    内部浏览器初始化 ()
.默认
    外部浏览器初始化 ()
.判断结束


.子程序 内部浏览器初始化

.判断开始 (tb2.初始化 (超文本浏览框1.取窗口句柄 ()))
    tb2.网页_跳转 (“http://sns.qzone.qq.com/cgi-bin/qzshare/cgi_qzshare_onekey?url=” + 当前网页地址)
    tb2.就绪判断_智能 (超文本浏览框1.取窗口句柄 (), 5000, )
    tb2.按钮_点击 (“value==快速登录”)
    tb2.就绪判断_智能 (超文本浏览框1.取窗口句柄 (), 5000, )
    tb2.链接_点击 (“Id==postButton”)
    程序_延时 (10000)
    tb2.销毁 ()
    结束 ()
.默认
    内部浏览器初始化 ()
.判断结束


[/e]
回复

使用道具 举报

结帖率:33% (7/21)
发表于 2013-2-2 21:20:10 | 显示全部楼层   广东省清远市
刚写的一个软件,可以获取到所有浏览器的IE地址。
方法是使用精易的填表。不懂的可以问我QQ279509072

QQ分享.zip

163.3 KB, 下载次数: 44

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表