|
|
发表于 2012-10-6 01:58:48
|
显示全部楼层
河南省洛阳市
.程序集 窗口程序集1
.程序集变量 dzzy, 整数型, , , 动作片转页
.程序集变量 dzp, 文本型, , "0", 动作片分页ID
.程序集变量 ID, 整数型
.程序集变量 play, 文本型
.子程序 _按钮1_被单击
时钟1.时钟周期 = 1000
.子程序 动作片
.局部变量 playzz, 正则表达式, , , 播放正则
.局部变量 playjg, 搜索结果, , "0", 播放地址结果
.局部变量 x, 整数型
.局部变量 播放地址, 文本型
playzz.创建 (“qvod://(.*?)” + “</a></td></tr>”, 假) ' >qvod://333902420|BD0F6283C8A4B796278A1443949A21278354AB7D|无敌车队DVD.rmvb|</a></td></tr>
playjg = playzz.搜索全部 (play)
调试输出 (playjg)
.计次循环首 (取数组成员数 (playjg), x)
编辑框1.加入文本 (“qvod://” + playjg [x].取子匹配文本 (play, 1, ) + #换行符)
.计次循环尾 ()
.子程序 处理数据
.局部变量 zz, 正则表达式, , , 正则
.局部变量 jg, 搜索结果, , "0", 正则结果
.局部变量 dz, 文本型, , , 网站地址
.局部变量 sy, 整数型, , , 索引
.局部变量 dzk, 文本型, , "0", 动作片分页
.局部变量 表达, 文本型
.局部变量 x, 整数型
清除数组 (dzp)
dz = 到文本 (HTTP读文件 (编辑框2.内容 + 到文本 (ID)))
zz.创建 (“/movie.asp\?ID=” + “([0-9]{2,})”, 假) ' <td align="center"><a href="
jg = zz.搜索全部 (dz)
.计次循环首 (取数组成员数 (jg), sy)
加入成员 (dzp, jg [sy].取匹配文本 (dz, ))
.计次循环尾 ()
.计次循环首 (取数组成员数 (dzp), x)
play = 到文本 (HTTP读文件 (“http://www.qvodzy.com.cn” + dzp [x]))
动作片 ()
.计次循环尾 ()
.子程序 _时钟1_周期事件
ID = ID + 1
处理数据 ()
动作片 ()
.判断开始 (到文本 (ID) = 编辑框3.内容)
时钟1.时钟周期 = 0
.默认
.判断结束
.子程序 _按钮2_被单击
写到文件 (取运行目录 () + “\动作片.txt”, 到字节集 (编辑框1.内容))
|
|