易语言,运行,执行,打开指定的网址命令的问题,急急!
有一个按钮,点击一下就自动运行,文件里的很多网址,文件是txt格是也可以运行列表里的网址,求代码!...
有一个按钮,点击一下就自动运行,文件里的很多网址,文件是txt格是也可以运行列表里的网址,求代码!
展开
3个回答
展开全部
.版本 2
.支持库 eAPI
.支持库 spec
.程序集 窗口程序集1, , , 用了子程序封装,其实还可以提取的,我就不搞了,你研究研究吧
.子程序 _按钮1_被单击
.局部变量 sz读入网址, 文本型
.局部变量 sz文本数组, 文本型, , "0"
.如果真 (取反 (文件是否存在 (“www.txt”))) ' 判断文件是否存在
信息框 (“文件不存在”, 0, )
返回 ()
.如果真结束
sz读入网址 = 到文本 (读入文件 (“www.txt”)) ' 读入文件
sz文本数组 = 分割文本 (sz读入网址, #换行符, ) ' 分割文本
OpenWWW (sz文本数组) ' 调用打开网页子程序
.子程序 OpenWWW, , , 打开网页子程序
.参数 网址文本数组, 文本型, 数组
.局部变量 iCount, 整数型
.如果真 (取数组成员数 (网址文本数组) = 0)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (网址文本数组), iCount)
打开指定网址 (网址文本数组 [iCount])
延迟 (10000)
.计次循环尾 ()
返回 ()
.支持库 eAPI
.支持库 spec
.程序集 窗口程序集1, , , 用了子程序封装,其实还可以提取的,我就不搞了,你研究研究吧
.子程序 _按钮1_被单击
.局部变量 sz读入网址, 文本型
.局部变量 sz文本数组, 文本型, , "0"
.如果真 (取反 (文件是否存在 (“www.txt”))) ' 判断文件是否存在
信息框 (“文件不存在”, 0, )
返回 ()
.如果真结束
sz读入网址 = 到文本 (读入文件 (“www.txt”)) ' 读入文件
sz文本数组 = 分割文本 (sz读入网址, #换行符, ) ' 分割文本
OpenWWW (sz文本数组) ' 调用打开网页子程序
.子程序 OpenWWW, , , 打开网页子程序
.参数 网址文本数组, 文本型, 数组
.局部变量 iCount, 整数型
.如果真 (取数组成员数 (网址文本数组) = 0)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (网址文本数组), iCount)
打开指定网址 (网址文本数组 [iCount])
延迟 (10000)
.计次循环尾 ()
返回 ()
追问
你的代码到这里我就看不懂了
OpenWWW (sz文本数组) ' 调用打开网页子程序
.参数 网址文本数组, 文本型, 数组
追答
这是一个子程序,用来打开分割好的数组,其实你的问题我回答了两个对吗
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询