.版本 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)) .如果真结束