.版本 2
.支持库 HtmlView
.子程序 _超文本浏览框1_即将打开新窗口, 逻辑型
.如果真 (link ≠ “”)
载入 (窗口1, , 假)
窗口1.超文本浏览框1.地址 = link
输出调试文本 (link)
.如果真结束
返回 (假)
.子程序 _超文本浏览框1_状态文本被改变
.如果真 (取文本左边 (超文本浏览框1.状态条文本, 4) = “http”)
link = 超文本浏览框1.状态条文本
重启看看。。。。