【改写批量】进来看一下

hxx311954

源码帖：https://bbs.125.la/forum.php?mod ... hlight=%BF%BC%BA%CB
虽然论坛也发布有批量的，但是他那个批量的带头像 而且编译 卡顿 延迟 窗口还未响应
我要求是改正成此图
我试了N遍 都失败了 反正代码简单一点就像 编译的时候不卡顿 速度一般就行 窗口不未响应的那种
把该删的代码也删了  万分感谢了

扯谈i

频道考核cha询源码.e (902.14 KB, 下载次数: 5)

2020-1-15 11:58 上传

点击文件名下载附件

扯谈i

吧你的模板发上来

hxx311954

更改附件

冷风丶

简单还是很简单的 但是得费点事 。

冷风丶

  

子程序名	返回值类型	公开	备 注
频道cha询
参数名	类 型	参考	可空	数组	备 注
表项索引	整数型

变量名	类 型	静态	数组	备 注
aa	文本型
原始	文本型
短位	文本型
频道转换	文本型
sid	文本型
频道信息	文本型
频道昵称	文本型
原始频道	文本型
是否达标	文本型
频道ID	文本型
考核积分	文本型

线程_初始化COM库 ()
频道ID ＝ 超级列表框1.取标题 (表项索引, 2)
aa ＝ 网页_访问S (“http://vip.yy.com/service/web/nicecode/checkScoreInfo?asid=” ＋ 频道ID ＋ “&_time=” ＋ 时间_取现行时间戳 (), , , 全局cookies)
aa ＝ 编码_utf8到gb2312 (aa)
频道转换 ＝ 网页_访问S (“http://www.yy.com/” ＋ 频道ID ＋ “/” ＋ 频道ID)
判断 (寻找文本 (频道转换, “ssid : ”, , 假) ≠ -1)
sid ＝ 文本_取出中间文本 (频道转换, #常量2, #引号 )


调试输出 (sid)
频道信息 ＝ 网页_访问S (“http://do.yy.duowan.com/user.php?sids=” ＋ sid ＋ “&_=29245”, , )
调试输出 (频道信息)
频道昵称 ＝ 编码_utf8到gb2312 (文本_取出中间文本 (频道信息, “snick” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”))
原始频道 ＝ sid
判断 (倒找文本 (aa, “无效短位频道号”, , 假) ≠ -1)
是否达标 ＝ “非短位频道”
判断 (倒找文本 (aa, “频道考核期已过”, , 假) ≠ -1)
是否达标 ＝ “超过考核期”
考核积分 ＝ “超过考核期”
判断 (倒找文本 (aa, “已达标”, , 假) ≠ -1)
是否达标 ＝ “已达标”
考核积分 ＝ “已达标”
判断 (倒找文本 (aa, “是您自己的频道短号，请在自己买页面购买”, , 假) ≠ -1)
是否达标 ＝ “请勿登录自己ow号来cha询”
判断 (倒找文本 (aa, “已达标”, , 假) ＝ -1 且 倒找文本 (aa, “频道考核期已过”, , 假) ＝ -1 且 文本_取出中间文本 (aa, “codelist” ＋ #引号 ＋ “:[”, “]”) ＝ “”)
如果真 (文本_取出中间文本 (aa, “codelist” ＋ #引号 ＋ “:[”, “]”) ＝ “”)
返回 ()

如果真 (文本_取出中间文本 (aa, “codelist” ＋ #引号 ＋ “:[”, “]”) ≠ “”)
原始 ＝ 文本_取出中间文本 (aa, “sid” ＋ #引号 ＋ “:”, “,”)
短位 ＝ 文本_取出中间文本 (aa, “asid” ＋ #引号 ＋ “:”, “,”)
aa ＝ 网页_访问S (“http://vip.yy.com/vip/vmall2/channeldetailpay?productId=2422&sid=” ＋ 原始 ＋ “&asid=” ＋ 短位 ＋ “&payfor=true”, 0, , 全局cookies)
是否达标 ＝ “未达标”
考核积分 ＝ 文本_取出中间文本 (aa, #总分, “</span>”) ＋ “  还差 ” ＋ 文本_取出中间文本 (aa, #需要分, “</span>”) ＋ “ 分达标”

超级列表框1.置标题 (表项索引, 1, 频道昵称)
超级列表框1.置标题 (表项索引, 3, 是否达标)
超级列表框1.置标题 (表项索引, 4, 考核积分)
线程_取消COM库 ()

子程序名	返回值类型	公开	备 注
_按钮_开始cha询_被单击

启动线程 (&多线程启动, , )

子程序名	返回值类型	公开	备 注
多线程启动

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (超级列表框1.取表项数 (), i)
线程_启动 (&频道cha询, i － 1)
程序_延时 (500)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .子程序 频道cha询<br /> .参数 表项索引, 整数型<br /> .局部变量 aa, 文本型<br /> .局部变量 原始, 文本型<br /> .局部变量 短位, 文本型<br /> .局部变量 频道转换, 文本型<br /> .局部变量 sid, 文本型<br /> .局部变量 频道信息, 文本型<br /> .局部变量 频道昵称, 文本型<br /> .局部变量 原始频道, 文本型<br /> .局部变量 是否达标, 文本型<br /> .局部变量 频道ID, 文本型<br /> .局部变量 考核积分, 文本型<br /> <br /> 线程_初始化COM库 ()<br /> 频道ID ＝ 超级列表框1.取标题 (表项索引, 2)<br /> aa ＝ 网页_访问S (“http://vip.yy.com/service/web/nicecode/checkScoreInfo?asid=” ＋ 频道ID ＋ “&_time=” ＋ 时间_取现行时间戳 (), , , 全局cookies)<br /> aa ＝ 编码_utf8到gb2312 (aa)<br /> 频道转换 ＝ 网页_访问S (“http://www.yy.com/” ＋ 频道ID ＋ “/” ＋ 频道ID)<br /> .判断开始 (寻找文本 (频道转换, “ssid : ”, , 假) ≠ -1)<br />     sid ＝ 文本_取出中间文本 (频道转换, #常量2, #引号)<br /> .默认<br /> <br /> .判断结束<br /> 调试输出 (sid)<br /> 频道信息 ＝ 网页_访问S (“http://do.yy.duowan.com/user.php?sids=” ＋ sid ＋ “&_=29245”, , )<br /> 调试输出 (频道信息)<br /> 频道昵称 ＝ 编码_utf8到gb2312 (文本_取出中间文本 (频道信息, “snick” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”))<br /> 原始频道 ＝ sid<br /> .判断开始 (倒找文本 (aa, “无效短位频道号”, , 假) ≠ -1)<br />     是否达标 ＝ “非短位频道”<br /> .判断 (倒找文本 (aa, “频道考核期已过”, , 假) ≠ -1)<br />     是否达标 ＝ “超过考核期”<br />     考核积分 ＝ “超过考核期”<br /> .判断 (倒找文本 (aa, “已达标”, , 假) ≠ -1)<br />     是否达标 ＝ “已达标”<br />     考核积分 ＝ “已达标”<br /> .判断 (倒找文本 (aa, “是您自己的频道短号，请在自己买页面购买”, , 假) ≠ -1)<br />     是否达标 ＝ “请勿登录自己ow号来cha询”<br /> .判断 (倒找文本 (aa, “已达标”, , 假) ＝ -1 且 倒找文本 (aa, “频道考核期已过”, , 假) ＝ -1 且 文本_取出中间文本 (aa, “codelist” ＋ #引号 ＋ “:[”, “]”) ＝ “”)<br />     .如果真 (文本_取出中间文本 (aa, “codelist” ＋ #引号 ＋ “:[”, “]”) ＝ “”)<br />         返回 ()<br />     .如果真结束<br /> <br /> .默认<br />     .如果真 (文本_取出中间文本 (aa, “codelist” ＋ #引号 ＋ “:[”, “]”) ≠ “”)<br />         原始 ＝ 文本_取出中间文本 (aa, “sid” ＋ #引号 ＋ “:”, “,”)<br />         短位 ＝ 文本_取出中间文本 (aa, “asid” ＋ #引号 ＋ “:”, “,”)<br />         aa ＝ 网页_访问S (“http://vip.yy.com/vip/vmall2/channeldetailpay?productId=2422&sid=” ＋ 原始 ＋ “&asid=” ＋ 短位 ＋ “&payfor=true”, 0, , 全局cookies)<br />         是否达标 ＝ “未达标”<br />         考核积分 ＝ 文本_取出中间文本 (aa, #总分, “</span>”) ＋ “  还差 ” ＋ 文本_取出中间文本 (aa, #需要分, “</span>”) ＋ “ 分达标”<br />     .如果真结束<br /> <br /> .判断结束<br /> 超级列表框1.置标题 (表项索引, 1, 频道昵称)<br /> 超级列表框1.置标题 (表项索引, 3, 是否达标)<br /> 超级列表框1.置标题 (表项索引, 4, 考核积分)<br /> 线程_取消COM库 ()<br /> <br /> .子程序 _按钮_开始cha询_被单击<br /> <br /> 启动线程 (&多线程启动, , )<br /> <br /> .子程序 多线程启动<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     线程_启动 (&频道cha询, i － 1)<br />     程序_延时 (500)<br /> .计次循环尾 ()

补充内容 (2020-1-15 00:45):
未实际测试。代码是这样写的。楼主自行摸索

hxx311954

冷风丶 发表于 2020-1-15 00:44
[e=0].版本 2
.支持库 iext
.支持库 spec

调试 有些会查不出来 不知道哪里的问题

hxx311954

扯谈i 发表于 2020-1-15 11:59

你没调试过吗，调试拖入文本出现错误代码，cha询按钮点击了也没反应

hxx311954

扯谈i 发表于 2020-1-15 11:59

这个无需登录吗 CK是什么   

扯谈i

hxx311954 发表于 2020-1-15 20:14
这个无需登录吗 CK是什么

cookie  我没有进行调试