DZ论坛问题

student12355

原帖地址：http://bbs.125.la/forum.php?mod=viewthread&tid=14017508
版主帮我解答了下，然后问题来了，集_cookies在多线程下ck串了....
如果用局部变量 依旧会导致formhash的错误....有没有大牛帮忙解决下
给个测试帐号：帐号：niu392233@sina.com密码：asdf123456
原帖代码

  

用户名 ＝ 超级列表框.取标题 (0, 0)  ' 取用户名
密码 ＝ 超级列表框.取标题 (0, 1)  ' 取密码
返回文本1 ＝ 到文本 (网页_访问 (“https://passport.17173.com/sso/login?v=2&username=” ＋ 编码_URL编码 (用户名) ＋ “&password=” ＋ 取数据摘要 (到字节集 (密码)) ＋ “&validcode=” ＋ “&domain=17173.com&appid=10086&persistentcookie=0&callback=” ＋ callback, 0, , , cookies))
返回文本 ＝ 编码_usc2到ansi (返回文本1)
输出调试文本 (返回文本)
aaa ＝ 到文本 (网页_访问 (“http://bbs.17173.com/thread-9532866-1-1.html”, , , , ))
formhash ＝ 文本_取出中间文本 (aaa, #头, #尾 )
调试输出 (formhash)

i支持库列表	支持库注释
iext	扩展界面支持库一
dp1	数据操作支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 dp1<br /> .支持库 spec<br /> <br /> 用户名 ＝ 超级列表框.取标题 (0, 0)  ' 取用户名<br /> 密码 ＝ 超级列表框.取标题 (0, 1)  ' 取密码<br /> 返回文本1 ＝ 到文本 (网页_访问 (“https://passport.17173.com/sso/login?v=2&username=” ＋ 编码_URL编码 (用户名) ＋ “&password=” ＋ 取数据摘要 (到字节集 (密码)) ＋ “&validcode=” ＋ “&domain=17173.com&appid=10086&persistentcookie=0&callback=” ＋ callback, 0, , , cookies))<br /> 返回文本 ＝ 编码_usc2到ansi (返回文本1)<br /> 输出调试文本 (返回文本)<br /> aaa ＝ 到文本 (网页_访问 (“http://bbs.17173.com/thread-9532866-1-1.html”, , , , ))<br /> formhash ＝ 文本_取出中间文本 (aaa, #头, #尾)<br /> 调试输出 (formhash)

版主帮忙解决的代码
新建 易程序 (3).e (638.3 KB, 下载次数: 2)

2017-5-9 13:27 上传

点击文件名下载附件
{:soso__1039173773029404865_2:}{:soso__1039173773029404865_2:}{:soso__1039173773029404865_2:}{:soso__1039173773029404865_2:}

student12355

  

子程序名	返回值类型	公开	备 注
开始取formhash

变量名	类 型	静态	数组	备 注
ID表项记录

判断循环首 (序号 ≤ 超级列表框.取表项数 ())
如果 (线程数量 ＜ 到整数 (编辑框线程数.内容))  ' 判断线程数是否小于我们设定的数目
线程ID ＝ 线程_启动 (&取formhash, 线程ID)  ' 如果小于就执行创建
超级列表框.置标题 (ID表项记录, 4, “由线程：” ＋ 到文本 (线程ID) ＋ “正在处理”)  ' 记录该线程的ID 循环很快所以放在这记录
序号 ＝ 序号 ＋ 1
ID表项记录 ＝ ID表项记录 ＋ 1  ' 这个变量用来记录ID的表项 ，必须
输出调试文本 (线程ID)
线程数量 ＝ 线程数量 ＋ 1  ' 创建一次就+1  用来判断线程数量  于上面的如果对应
' 调试输出 (“aaa”)


延时 (2000)  ' 如果线程数量大于设定数量延时5秒等待线程处理完毕 在循环（考虑到实际操作程序中线程运转完毕没有那么快，特地延时，这个延时很有含义,同志们好好思考）

判断循环尾 ()
处理表项记录 ＝ 0  ' 清空记录
信息框 (“处理完毕”, 0, , )  ' 提示

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 开始取formhash<br /> .局部变量 ID表项记录<br /> <br /> <br /> .判断循环首 (序号 ≤ 超级列表框.取表项数 ())<br /> <br />     .如果 (线程数量 ＜ 到整数 (编辑框线程数.内容))  ' 判断线程数是否小于我们设定的数目<br />         线程ID ＝ 线程_启动 (&取formhash, 线程ID)  ' 如果小于就执行创建<br />         超级列表框.置标题 (ID表项记录, 4, “由线程：” ＋ 到文本 (线程ID) ＋ “正在处理”)  ' 记录该线程的ID 循环很快所以放在这记录<br />         序号 ＝ 序号 ＋ 1<br />         ID表项记录 ＝ ID表项记录 ＋ 1  ' 这个变量用来记录ID的表项 ，必须<br />         输出调试文本 (线程ID)<br />         线程数量 ＝ 线程数量 ＋ 1  ' 创建一次就+1  用来判断线程数量  于上面的如果对应<br />         ' 调试输出 (“aaa”)<br />     .否则<br /> <br />         延时 (2000)  ' 如果线程数量大于设定数量延时5秒等待线程处理完毕 在循环（考虑到实际操作程序中线程运转完毕没有那么快，特地延时，这个延时很有含义,同志们好好思考）<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> <br /> 处理表项记录 ＝ 0  ' 清空记录<br /> 信息框 (“处理完毕”, 0, , )  ' 提示

  

子程序名	返回值类型	公开	备 注
取formhash

变量名	类 型	静态	数组	备 注
用户名	文本型
密码	文本型
f	整数型
n	整数型
局_setcookies	文本型
局_formhash	文本型
局_URL	文本型
局_cookies	文本型
局_str	文本型

' ↓批量登录
a ＝ a ＋ 1
f ＝ a
用户名 ＝ 超级列表框.取标题 (f － 1, 0)  ' 取用户名
密码 ＝ 超级列表框.取标题 (f － 1, 1)  ' 取密码
局_URL ＝ “https://passport.17173.com/sso/login?v=2&username=” ＋ 编码_URL编码 (用户名, , ) ＋ “&password=” ＋ 取数据摘要 (到字节集 (密码)) ＋ “&validcode=” ＋ “&domain=17173.com&appid=10086&persistentcookie=0&callback=”
局_str ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (局_URL, 0, , 集_cookies, 局_setcookies, , , , , , , , , , , )))
集_cookies ＝ 网页_Cookie合并更新 (集_cookies, 局_setcookies)
调试输出 (局_str)
判断 (寻找文本 (局_str, “登录成功”, , 真) ≠ -1)
超级列表框.置标题 (f － 1, 5, “O”)
超级列表框.置标题 (f － 1, 5, “X”)

' ↓取局_formhash
局_str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://bbs.17173.com/thread-9532866-1-1.html”, 0, , 集_cookies, 局_setcookies, , , , , , , , , , , ))
集_cookies ＝ 网页_Cookie合并更新 (集_cookies, 局_setcookies)
局_str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://bbs.17173.com/thread-9532866-1-1.html”, 0, , 集_cookies, 局_setcookies, , , , , , , , , , , ))
集_cookies ＝ 网页_Cookie合并更新 (集_cookies, 局_setcookies)
局_formhash ＝ 文本_取出中间文本 (局_str, #头, #尾, , )
调试输出 (局_formhash)

i支持库列表	支持库注释
iext	扩展界面支持库一
dp1	数据操作支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 dp1<br /> .支持库 spec<br /> <br /> .子程序 取formhash<br /> .局部变量 用户名, 文本型<br /> .局部变量 密码, 文本型<br /> .局部变量 f, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 局_setcookies, 文本型<br /> .局部变量 局_formhash, 文本型<br /> .局部变量 局_URL, 文本型<br /> .局部变量 局_cookies, 文本型<br /> .局部变量 局_str, 文本型<br /> <br /> ' ↓批量登录<br /> a ＝ a ＋ 1<br /> f ＝ a<br /> 用户名 ＝ 超级列表框.取标题 (f － 1, 0)  ' 取用户名<br /> 密码 ＝ 超级列表框.取标题 (f － 1, 1)  ' 取密码<br /> 局_URL ＝ “https://passport.17173.com/sso/login?v=2&username=” ＋ 编码_URL编码 (用户名, , ) ＋ “&password=” ＋ 取数据摘要 (到字节集 (密码)) ＋ “&validcode=” ＋ “&domain=17173.com&appid=10086&persistentcookie=0&callback=”<br /> 局_str ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (局_URL, 0, , 集_cookies, 局_setcookies, , , , , , , , , , , )))<br /> 集_cookies ＝ 网页_Cookie合并更新 (集_cookies, 局_setcookies)<br /> 调试输出 (局_str)<br /> .判断开始 (寻找文本 (局_str, “登录成功”, , 真) ≠ -1)<br />     超级列表框.置标题 (f － 1, 5, “O”)<br /> .默认<br />     超级列表框.置标题 (f － 1, 5, “X”)<br /> .判断结束<br /> <br /> ' ↓取局_formhash<br /> 局_str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://bbs.17173.com/thread-9532866-1-1.html”, 0, , 集_cookies, 局_setcookies, , , , , , , , , , , ))<br /> 集_cookies ＝ 网页_Cookie合并更新 (集_cookies, 局_setcookies)<br /> 局_str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://bbs.17173.com/thread-9532866-1-1.html”, 0, , 集_cookies, 局_setcookies, , , , , , , , , , , ))<br /> 集_cookies ＝ 网页_Cookie合并更新 (集_cookies, 局_setcookies)<br /> 局_formhash ＝ 文本_取出中间文本 (局_str, #头, #尾, , )<br /> 调试输出 (局_formhash)

student12355

我现在的问题就是用局部变量的ck就会formhash取错 用程序集变量多线程就会串CK{:soso__12228820266772001718_1:}

漫步设计

建个许可证吧，我就是这样的

student12355

漫步设计 发表于 2017-5-9 21:33
建个许可证吧，我就是这样的

许可证我肯定建了啊

漫步设计

你确定进入许可证的地方没错？我的刚刚也是你这种情况，加了许可证要看你在哪儿进入，不然还是一样

student12355

  

子程序名	返回值类型	公开	备 注
开始取formhash

变量名	类 型	静态	数组	备 注
ID表项记录

进入许可区 (许可证)
判断循环首 (序号 ≤ 超级列表框.取表项数 ())
如果 (线程数量 ＜ 到整数 (编辑框线程数.内容))  ' 判断线程数是否小于我们设定的数目
线程ID ＝ 线程_启动 (&取formhash, 线程ID)  ' 如果小于就执行创建
超级列表框.置标题 (ID表项记录, 4, “由线程：” ＋ 到文本 (线程ID) ＋ “正在处理”)  ' 记录该线程的ID 循环很快所以放在这记录
序号 ＝ 序号 ＋ 1
ID表项记录 ＝ ID表项记录 ＋ 1  ' 这个变量用来记录ID的表项 ，必须
输出调试文本 (线程ID)
线程数量 ＝ 线程数量 ＋ 1  ' 创建一次就+1  用来判断线程数量  于上面的如果对应
' 调试输出 (“aaa”)


延时 (2000)  ' 如果线程数量大于设定数量延时5秒等待线程处理完毕 在循环（考虑到实际操作程序中线程运转完毕没有那么快，特地延时，这个延时很有含义,同志们好好思考）

判断循环尾 ()
处理表项记录 ＝ 0  ' 清空记录
信息框 (“处理完毕”, 0, , )  ' 提示
退出许可区 (许可证)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 开始取formhash<br /> .局部变量 ID表项记录<br /> <br /> 进入许可区 (许可证)<br /> .判断循环首 (序号 ≤ 超级列表框.取表项数 ())<br /> <br />     .如果 (线程数量 ＜ 到整数 (编辑框线程数.内容))  ' 判断线程数是否小于我们设定的数目<br />         线程ID ＝ 线程_启动 (&取formhash, 线程ID)  ' 如果小于就执行创建<br />         超级列表框.置标题 (ID表项记录, 4, “由线程：” ＋ 到文本 (线程ID) ＋ “正在处理”)  ' 记录该线程的ID 循环很快所以放在这记录<br />         序号 ＝ 序号 ＋ 1<br />         ID表项记录 ＝ ID表项记录 ＋ 1  ' 这个变量用来记录ID的表项 ，必须<br />         输出调试文本 (线程ID)<br />         线程数量 ＝ 线程数量 ＋ 1  ' 创建一次就+1  用来判断线程数量  于上面的如果对应<br />         ' 调试输出 (“aaa”)<br />     .否则<br /> <br />         延时 (2000)  ' 如果线程数量大于设定数量延时5秒等待线程处理完毕 在循环（考虑到实际操作程序中线程运转完毕没有那么快，特地延时，这个延时很有含义,同志们好好思考）<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> <br /> 处理表项记录 ＝ 0  ' 清空记录<br /> 信息框 (“处理完毕”, 0, , )  ' 提示<br /> 退出许可区 (许可证)

student12355

漫步设计 发表于 2017-5-9 21:51
你确定进入许可证的地方没错？我的刚刚也是你这种情况，加了许可证要看你在哪儿进入，不然还是一样{:4_271: ...

楼下你看看

漫步设计

你看这样放线程下面可以不

  

局_str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://bbs.17173.com/thread-9532866-1-1.html”, 0, , 集_cookies, 局_setcookies, , , , , , , , , , , ))
进入许可区 ()
集_cookies ＝ 网页_Cookie合并更新 (集_cookies, 局_setcookies)
局_formhash ＝ 文本_取出中间文本 (局_str, #头, #尾, , )
调试输出 (局_formhash)
退出许可区 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> 局_str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://bbs.17173.com/thread-9532866-1-1.html”, 0, , 集_cookies, 局_setcookies, , , , , , , , , , , ))<br /> 进入许可区 ()<br /> 集_cookies ＝ 网页_Cookie合并更新 (集_cookies, 局_setcookies)<br /> 局_formhash ＝ 文本_取出中间文本 (局_str, #头, #尾, , )<br /> 调试输出 (局_formhash)<br /> 退出许可区 ()

student12355

漫步设计 发表于 2017-5-10 20:56
你看这样放线程下面可以不
[e=0].版本 2
.支持库 EThread

依旧串ck