|
发表于 2018-5-24 16:31:24
|
显示全部楼层
广东省广州市
- .版本 2
- .支持库 EThread
- .支持库 iext
- .支持库 spec
- .子程序 _按钮1_被单击
- 启动线程 (&子程序1, , )
- .子程序 子程序1
- .局部变量 a, 文本型, , "0", 地址
- .局部变量 b, 文本型, , , 源码
- .局部变量 c, 整数型, , , 索引
- .局部变量 i, 整数型
- a = 分割文本 (#地址, #换行符, )
- .计次循环首 (取数组成员数 (a), i)
- c = 超级列表框1.插入表项 (, , , , , )
- 超级列表框1.置标题 (c, 0, a [i]) ' 地址
- b = 网页_访问S (a [i])
- .如果 (寻找文本 (b, “百度网盘-链接不存在”, , 假) = -1)
- 超级列表框1.置标题 (c, 1, “正常”) ' 状态
- 超级列表框1.置标题 (c, 2, 文本_取出中间文本 (b, “<title>”, “免费高速下载|百度网盘-分享无限制</title>”)) ' 标题
- .否则
- 超级列表框1.置标题 (c, 1, “失效”) ' 状态
- .如果结束
- .计次循环尾 ()
- 调试输出 (“OK”)
复制代码
补充内容 (2018-5-24 16:32):
举哑铃手累了抽空给你写了个例子,最佳吧! |
|