源码下载：http://download.csdn.net/detail/friendan/9378686
-------------------------------------------------------------------------------------------------------------
.版本 2
.支持库 spec
.支持库 HtmlView
.程序集 窗口程序集_启动窗口
.子程序 _选择框_窗口置顶_被单击
.如果 (选择框_窗口置顶.选中)
_启动窗口.总在最前 ＝ 真
.否则
_启动窗口.总在最前 ＝ 假
.如果结束
.子程序 __启动窗口_创建完毕
.局部变量 txtURL, 文本型
_启动窗口.总在最前 ＝ 真
选择框_窗口置顶.选中 ＝ 真
g_iniPath ＝ 取运行目录 () ＋ “\Config.ini”
调试输出 (g_iniPath)
txtURL ＝ 读配置项 (g_iniPath, “Web”, “URL”, “www.baidu.com”)
编辑框_URL.内容 ＝ txtURL
超文本浏览框1.地址 ＝ 编辑框_URL.内容
.子程序 _按钮_浏览_被单击, , , 浏览
.局部变量 msg, 文本型
' msg ＝ 到文本 (_启动窗口.左边) ＋ “ ” ＋ 到文本 (_启动窗口.顶边) ＋ “ ” ＋ 到文本 (_启动窗口.宽度) ＋ “ ” ＋ 到文本 (_启动窗口.高度)
' 信息框 (msg, 0, , )
超文本浏览框1.地址 ＝ 编辑框_URL.内容
写配置项 (g_iniPath, “Web”, “URL”, 编辑框_URL.内容)
.子程序 __启动窗口_尺寸被改变
' 窗口自适应大小
编辑框_URL.宽度 ＝ _启动窗口.宽度 － 按钮_浏览.宽度 － 编辑框_URL.左边 － 30
按钮_浏览.左边 ＝ 编辑框_URL.左边 ＋ 编辑框_URL.宽度 ＋ 5
超文本浏览框1.左边 ＝ 0 ' X坐标
超文本浏览框1.顶边 ＝ 编辑框_URL.高度 ＋ 20 ' Y坐标
超文本浏览框1.宽度 ＝ _启动窗口.宽度 － 20
超文本浏览框1.高度 ＝ _启动窗口.高度 － 超文本浏览框1.顶边 － 45