點擊鏈接直接下載如何實現？

.版本 2.支持庫 HtmlView.支持庫 internet.子程序 _超文本瀏覽框1_即將跳轉, 邏輯型.局部變量 擴展名, 文本型擴展名 ＝ 到小寫 (取文本右邊 (超文本瀏覽框1.地址, 4)).如果 (擴展名 ＝ “.rar” 或 擴展名 ＝ “.zip” 或 擴展名 ＝ “.apk”) 下載 (超文本瀏覽框1.地址) 返回 (假).否則 返回 (真).如果結束.子程序 下載.參數 URL, 文本型.局部變量 字節集, 字節集.局部變量 文件名, 文本型文件名 ＝ 取文本右邊 (URL, 取文本長度 (URL) － 倒找文本 (URL, “/”, , 真))輸出調試文本 (“DOWN:” ＋ URL ＋ “ -> ” ＋ 文件名)字節集 ＝ HTTP讀文件 (URL)寫到文件 (“C:\” ＋ 文件名, 字節集)