.版本 2
.支持库 HtmlView
.程序集 窗口程序集1
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.子程序 _编辑框1_内容被改变
.子程序 _超文本浏览框1_即将跳转, 逻辑型
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
_按钮1_被单击 ()
.如果真结束
.子程序 _按钮1_被单击
.参数 a, 文本型
a = 取文本左边 (编辑框1.内容, 4)
.如果真 (a ≠ “http”)
编辑框1.内容 = “http://” + 编辑框1.内容
.如果真结束
超文本浏览框1.地址 = 编辑框1.内容
这是个简单浏览器
|