.版本 2
.支持库 eAPI
.支持库 spec
.程序集 窗口程序集1, , , 用了子程序封装,其实还可以提取的,我就不搞了,你研究研究吧
.子程序 _按钮1_被单击
.局部变量 sz读入网址, 文本型
.局部变量 sz文本数组, 文本型, , "0"
.如果真 (取反 (文件是否存在 (“www.txt”))) ' 判断文件是否存在
信息框 (“文件不存在”, 0, )
返回 ()
.如果真结束
sz读入网址 = 到文本 (读入文件 (“www.txt”)) ' 读入文件
sz文本数组 = 分割文本 (sz读入网址, #换行符, ) ' 分割文本
OpenWWW (sz文本数组) ' 调用打开网页子程序
.子程序 OpenWWW, , , 打开网页子程序
.参数 网址文本数组, 文本型, 数组
.局部变量 iCount, 整数型
.如果真 (取数组成员数 (网址文本数组) = 0)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (网址文本数组), iCount)
打开指定网址 (网址文本数组 [iCount])
延迟 (10000)
.计次循环尾 ()
返回 ()
下载精易模块,里面有这个命令,现在精易免费了,还提供源码
1.读入文件()给变量,并 到文本()
2.分割读入的文件给一个数组
3.计次循环(),中间加一行 打开指定网址(数组变量[i])