易語言瀏覽器源碼
❶ 易語言如何獲取網頁源碼的並展示出來
.版本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
就可以了
不過我可以給個辦法給你:
超文本瀏覽框.高度=取用戶區高度()
-
(如果有)你的工具條
寬度就用
取用戶區寬度()
這個,也是用上面的方式
明白沒有?