Question

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

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

Answer 1

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

Answer 2

取句柄那里加上iexplore.exe