易语言取当前浏览器网页地址和网页源码

Posted 2023-04-25

下面是由精易模块写出来的代码.版本 2.程序集 窗口程序集1.程序集变量 网页文本, 普通填表.程序集变量 浏览器句柄, 整数型.子程序 _时钟1_周期事件浏览器句柄 ＝ 窗口_取句柄_模糊 (, “Internet Explorer_Server”)浏览器句柄 ＝ 窗口_取IE窗口句柄 (浏览器句柄)网页文本.初始化 (浏览器句柄)编辑框1.内容 ＝ 到文本 (浏览器句柄)编辑框2.内容 ＝ 网页文本.网页_取页面地址 ()编辑框3.内容 ＝ 网页文本.网页_取源码 ()用上面这种方法当时能正确的取出来，但是有一点问题，如果开了QQ或者其他聊天工具的话取出的网页地址和源码就会出问题，总会取些QQ表情网页的地址或者QQ右下角弹出来的广告地址，根本没有取出当前浏览器的网页地址和源码，这样的问题应该怎么解决呢？

参考技术A procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := WebBrowser1.LocationURL;
Memo1.Lines := IdHTTP1.Get('www.qq.com');
end;

参考资料：大仙

参考技术B 取句柄那里加上iexplore.exe

易语言大漠插件绑定窗口问题

hwnd有输出 但是bindwindow不显示。大漠插件有版本号

易语言用大漠后台绑定窗口以后，一开始工作就会连启动窗口也给绑定。求解。
下面是源码大概的意思：

.版本 2
.支持库 dm
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 A, 整数型
.程序集变量 B, 整数型
.程序集变量 大漠, 大漠
.程序集变量 hwnd
.子程序 __启动窗口_创建完毕
大漠.创建 ()
.如果 (文件是否存在 (取运行目录 () ＋ “\大漠.bat”))
运行 (取运行目录 () ＋ “\大漠.bat”, 假, 1)
.否则
信息框 (“缺少关键文件”, 48, “错误”)
结束 ()
.如果结束
A ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键)
B ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键)
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.判断开始 (参数一 ＝ A)
延时 (300)
hwnd ＝ 大漠.窗口_取鼠标所指窗口句柄 ()
大漠.后台_绑定窗口 (hwnd, “normal”, “dx”, “dx”, 0)
延时 (3000)

.默认
.判断结束
.判断开始 (参数一 ＝ B)
时钟1.时钟周期 ＝ 0
大漠.后台_解除绑定窗口 ()

.默认
.判断结束

.子程序 _时钟1_周期事件
.局部变量 组队人数, 整数型

大漠.键鼠_鼠标移动 (113, 92)

延时 (500)
大漠.键鼠_鼠标移动 (715, 97)

延时 (500)
.子程序 _按钮1_被单击
延时 (300)
时钟1.时钟周期 ＝ 1000
.子程序 _按钮2_被单击
延时 (300)
结束 () 参考技术A 调试输出看看，返回值是不是等于0 参考技术B 有得到窗口的句柄吗，绑定后测试是否成功