获取腾讯视频首页轮播海报图

获取腾讯视频首页轮播海报图

其实就是获取V.qq.com 首页当天轮播的图

模块用的是精易模块 然后用正则匹配出来

.版本 2
.支持库 EThread
.支持库 iext
.支持库 internet
.支持库 eAPI

.程序集 主窗口

.子程序 _主窗口_创建完毕

启动线程 (&qq, , )

.子程序 qq
.局部变量 i, 整数型
.局部变量 b, 文本型, , "0"
.局部变量 a, 文本型, , "0"
.局部变量 正则, 正则表达式类
.局部变量 o, 整数型
.局部变量 fh, 文本型
.局部变量 id, 整数型

处理事件 ()
fh ＝ 网页_访问S (“https://v.qq.com/”, , , , , , , , , , , , , , , , , , , , )
正则.创建 (#qq1, fh)
.计次循环首 (正则.取匹配数量 (), i)
    处理事件 ()
    加入成员 (a, 正则.取子匹配文本 (i, 1, ))
.计次循环尾 ()
正则.创建 (#qq2, fh)
i ＝ 1
.计次循环首 (正则.取匹配数量 (), i)
    处理事件 ()
    .如果 (正则.取子匹配文本 (i － 1, 1) ＝ “”)

    .否则
        加入成员 (b, 正则.取子匹配文本 (i － 1, 1))
    .如果结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (b), o)
    处理事件 ()
    id ＝ 超级列表框_海报.插入表项 (, , , , , )
    超级列表框_海报.置标题 (id, 0, 到文本 (o))
    超级列表框_海报.置标题 (id, 1, “v.qq.com”)
    超级列表框_海报.置标题 (id, 2, b [o])
    超级列表框_海报.置标题 (id, 3, “https:” ＋ a [o ＋ 1])
.计次循环尾 ()

.子程序 _超级列表框_海报_左键单击表项

图片框_海报.图片 ＝ HTTP读文件 (超级列表框_海报.取标题 (超级列表框_海报.现行选中项, 3))

.子程序 _超级列表框_海报_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 局_表项索引, 整数型

局_表项索引 ＝ 超级列表框_海报.现行选中项
.如果真 (局_表项索引 ≠ -1)
    打开指定网址 (超级列表框_海报.取标题 (局_表项索引, 3))
.如果真结束

@shane