精易论坛

标题: 循环过程卡死其中一条数据不往下跳 [打印本页]

作者: samat88    时间: 2023-2-7 21:48
标题: 循环过程卡死其中一条数据不往下跳
  
子程序名返回值类型公开备 注
开始扫描  
线程_初始化COM库 ()
按钮3.禁止 = 真
局_网址 = “http://192.168.2.1”
局_方式 = 1
编辑框1每行内容 = 分割文本 (编辑框1.内容, #换行符, )
编辑框2每行内容 = 分割文本 (编辑框2.内容, #换行符, )
计次循环首 (取数组成员数 (编辑框1每行内容), i)
isim = 编辑框1每行内容 [i]
计次循环首 (取数组成员数 (编辑框2每行内容), j)
mima = 编辑框2每行内容 [j]
' ’发送数据
' ’开始扫描 (账号, 密码, i)
' 调试输出 (账号, 密码)
' 发送数据
ADD_数据包.添加 (“name”, isim)
ADD_数据包.添加 (“pass”, mima)
局_提交数据 = ADD_数据包.获取Post数据 ()
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; rv:46.0) Gecko/20100101 Firefox/46.0”)
局_提交协yi头 = ADD_协yi头.获取协yi头数据 ()
局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协yi头, , , , , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果))
' 调试输出 (局_返回)
json.解析 (局_返回)
code = json.取属性 (“code”).取数据文本 ()
如果真 (code = “200”)
索引 = 超级列表框1.插入表项 (, 到文本 (i + j), , , , )
name = json.取通用属性 (“name”)
pass = json.取通用属性 (“pass”)
超级列表框1.置标题 (索引, 1, name)
超级列表框1.置标题 (索引, 2, pass)
如果真 (code = “100”)
索引 = 超级列表框1.插入表项 (, 到文本 (索引), , , , )
name = json.取通用属性 (“name”)
pass = json.取通用属性 (“pass”)
超级列表框1.置标题 (索引, 1, name)
超级列表框1.置标题 (索引, 2, pass)
超级列表框1.**显示 ()
计次循环尾 ()
计次循环尾 ()
按钮3.禁止 = 假
线程_取消COM库 ()


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



数据发送过程中跑到不到一半就卡死其中一条《编辑框1》的数据不往下跳一直发送这个卡死 的用户名   但是去掉post请求那段代码直接输出它能跑完 不会卡  是怎么解决?



作者: liyanyu    时间: 2023-2-7 21:56
为什么不加许可 操作超级列表框 置标题 为啥不加许可呢
作者: 朱悟能    时间: 2023-2-7 22:19
1,线程池操作
2,线程总任务=账号密码数
3,1个子线程提交1个任务
4,登录接口建议新建一个子程序供子线程调用。
作者: samat88    时间: 2023-2-7 23:57
朱悟能 发表于 2023-2-7 22:19
1,线程池操作
2,线程总任务=账号密码数
3,1个子线程提交1个任务

麻烦代码帖出来哦




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4