.版本 2
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 _临时子程序
' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
打开指定网址 (“
http://www.dywt.com.cn/”, 真, 真)
信息框 (“载入完毕”, 0, )
.子程序 打开指定网址
.参数 网址, 文本型, , 欲指定打开的网址
.参数 离线打开, 逻辑型, 可空, 脱机浏览,一般用不到,大家自行修改
.参数 载入完毕后返回, 逻辑型, 可空, 载入完毕后才返回
.局部变量 对象, 对象
对象.创建 (“InternetExplorer.Application”, )
对象.写属性 (“offline”, 离线打开)
对象.数值方法 (“navigate”, 网址)
.判断循环首 (对象.读数值属性 (“ReadyState”, ) ＜ 4 且 载入完毕后返回)
.判断循环尾 ()
对象.清除 ()
' 只要对象所属的组件不被禁用,就不会有错.
.子程序 打开指定网址2, 逻辑型
.参数 网址, 文本型
.局部变量 路径, 文本型
路径 ＝ “SOFTWARE\Clients\StartMenuInternet\”
返回 (运行 (取文本注册项 (#本地机器, 路径 ＋ 取文本注册项 (#本地机器, 路径, “IEXPLORE.EXE”) ＋ “\shell\open\command\”, ) ＋ “ ” ＋ 网址, 假, ))
' 此法也可打开网址,只是从注册表里取出默认打开ie的程序,然后在后面加参数
