易語言編輯框框如何獲取超文本瀏覽框網頁文字的超鏈接

請您先在易語言中添加組件編輯框1、按鈕1和超文本瀏覽框1，再把下面的代碼復制到代碼編輯區裏。

.版本?2

.支持庫?HtmlView

.支持庫?internet

.程序集?窗口程序集

.子程序?__啟動窗口_創建完畢

超文本瀏覽框1.地址?＝?“”

.子程序?取指定內容,?文本型

.參數?完整內容,?文本型

.參數?左邊文本,?文本型

.參數?右邊文本,?文本型

.局部變量?臨時位置,?整數型

.局部變量?內容長度,?整數型

.局部變量?取出內容,?文本型

內容長度?＝?取文本長度?(完整內容)

臨時位置?＝?尋找文本?(完整內容,?左邊文本,?,?假)?＋?取文本長度?(左邊文本)

取出內容?＝?取文本中間?(完整內容,?臨時位置,?內容長度)

內容長度?＝?取文本長度?(取出內容)

臨時位置?＝?尋找文本?(取出內容,?右邊文本,?,?假)?－?1

取出內容?＝?取文本中間?(取出內容,?1,?臨時位置)

返回?(取出內容)

.子程序?_按鈕1_被單擊

.局部變量?文本,?文本型

文本?＝?到文本?(HTTP讀文件?(超文本瀏覽框1.地址))?'?讀取百度的HTML

.如果?(尋找文本?(文本,?“退出”,?,?假)?≠?-1)?'?如果登錄了百度，那麽就有“退出”這個鏈接

文本?＝?取指定內容?(文本,?“退出”,?“新聞”)?'?百度新聞的地址在“退出”和“新聞”之間

文本?＝?取指定內容?(文本,?“<a?href=”,?“>”)?'?連接前面有“<a?href=”，後面有“>”，而中間的就是新聞的連接了

.否則

文本?＝?取指定內容?(文本,?“點此進入?百度的空間”,?“新”)?'?如果沒有登錄百度，那麽在“新聞”前面的就是“點此進入?百度的空間”

文本?＝?取指定內容?(文本,?“href=”?＋?#引號,?#引號?＋?“>”)?'?這裏比上面的前後各多了引號

.如果結束

編輯框1.內容?＝?文本?'?將取到的地址輸出到編輯框上