易语言浏览器源码
❶ 易语言如何获取网页源码的并展示出来
.版本2
.支持库RegEx
.支持库internet
.支持库iext
.子程序_按钮1_被单击
.局部变量网页文本,文本型
.局部变量表达式,正则表达式
.局部变量搜索结果,搜索结果,,"0"
.局部变量计次变量,整数型
.局部变量文本,文本型
网页文本=到文本(HTTP读文件(编辑框1.内容))
网页文本=子文本替换(网页文本,#引号,“'”,0,,真)
网页文本=到小写(网页文本)
透明标签1.标题=取中间文(网页文本,“<title>”,“</title>”)
表达式.创建(“meta(.*?)>”,假)
搜索结果=表达式.搜索全部(网页文本)
.计次循环首(取数组成员数(搜索结果),计次变量)
文本=搜索结果[计次变量].取子匹配文本(网页文本,1,)
.判断开始(寻找文本(文本,“name='keywords'”,1,假)>0)
透明标签2.标题=取中间文(文本,“content='”,“'”)
.判断(寻找文本(文本,“name='description'”,1,假)>0)
透明标签3.标题=取中间文(文本,“content='”,“'”)
.默认
.判断结束
.计次循环尾()
.子程序取中间文,文本型
.参数全文,文本型
.参数左文,文本型
.参数右文,文本型
.局部变量位置,整数型
.局部变量总长度,整数型
.局部变量文本,文本型
总长度=取文本长度(全文)
位置=寻找文本(全文,左文,,假)
.如果真(位置<0)
返回(“”)
.如果真结束
位置=位置+取文本长度(左文)
文本=取文本中间(全文,位置,总长度)
总长度=取文本长度(文本)
位置=寻找文本(文本,右文,,假)-1
.如果真(位置<0)
返回(“”)
.如果真结束
文本=取文本中间(文本,1,位置)
返回(文本)
❷ 易语言多页浏览器源码
喜欢就拿去吧 望采纳!
❸ 求易语言制作简单浏览器源码(打开链接不弹出别的浏览器)
.版本 2
.支持库 HtmlView
.子程序 _超文本浏览框1_即将打开新窗口, 逻辑型
返回 (假)
超文本浏览框1.地址 = 超文本浏览框1.状态条文本
'标签的我不会- -
❹ 求易语言制作简单浏览器源码(打开链接不弹出别的浏览器)
.版本
2
.支持库
HtmlView
.子程序
_超文本浏览框1_即将打开新窗口,
逻辑型
返回
(假)
超文本浏览框1.地址
=
超文本浏览框1.状态条
文本
'标签的我不会-
-
❺ 易语言取当前浏览器网页地址和网页源码
procere TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := WebBrowser1.LocationURL;
Memo1.Lines := IdHTTP1.Get('www.qq.com');
end;
❻ 易语言浏览器源码
服了楼主。。。
首先 超文本浏览框1.地址 = 到文本 (编辑框1.内容) 里的到文本()是无意义的,因为 编辑框1.内容 本来就是文本型
还有尺寸被改变那里
不用加个变量,直接 超文本浏览框.高度=_启动窗口.高度 - 65 就可以了
不过我可以给个办法给你:
超文本浏览框.高度=取用户区高度() - (如果有)你的工具条
宽度就用 取用户区宽度() 这个,也是用上面的方式
明白没有?
❼ 易语言多页浏览器易程序(.e) (有源码的)
易语言完整版 例子里面有个 易语言浏览器 有多页的。
❽ 【易语言】谁有高仿360的易语言浏览器源码啊
很难实现。
1.就算有人有也不会发给你的
2.就算有用易语言做的浏览器也不会多好,毕竟易语言做出来的程序会被报毒,占空间
3.如果你会易语言,建议转VB,和易语言很像,VB语言熟了再转高级一点的语言……
❾ 易语言浏览器代码怎么做
组件:编辑框 +超级文本浏览框+按钮
(按钮)代码:
超级文本浏览框.地址=编辑框1.内容
❿ 易语言浏览器源码
服了楼主。。。
首先
超文本浏览框1.地址
=
到文本
(编辑框1.内容)
里的到文本()是无意义的,因为
编辑框1.内容
本来就是文本型
还有尺寸被改变那里
不用加个变量,直接
超文本浏览框.高度=_启动窗口.高度
-
65
就可以了
不过我可以给个办法给你:
超文本浏览框.高度=取用户区高度()
-
(如果有)你的工具条
宽度就用
取用户区宽度()
这个,也是用上面的方式
明白没有?