求求求求求求求求求求求求求求求求求解决求解决求解决

心誓

  

调试输出 (帐号, 密码)
如果真 (寻找文本 (coo, “LGNJSESSIONID=”, , 假) ＝ 1)
列表.置标题 (参数, 3, “登陆超时”)
线程_初始化COM库 ()
调试输出 (帐号, 密码, coo)
如果真 (寻找文本 (coo, “yyuid=”, , 假) ＝ 1)
列表.置标题 (参数, 3, “登陆成功”)
子程序1 (coo, 封号原因3, 封号时间3, 识别结果)
如果真 (选择框1.选中 ＝ 真)
列表.置标题 (参数, 4, 封号时间3)
如果真 (识别结果 ＝ “识别失败”)
线程_启动 (&操作线程, 参数)
' 操作线程 (参数)
返回 ()
列表.置标题 (参数, 5, 封号原因3)
如果真 (选择框2.选中 ＝ 真)
查积分号码 (积分, 号码, coo)
列表.置标题 (参数, 6, 积分)
列表.置标题 (参数, 7, 号码)
线程数量 ＝ 线程数量 － 1
线程_取消COM库 ()

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

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> 调试输出 (帐号, 密码)<br /> .如果真 (寻找文本 (coo, “LGNJSESSIONID=”, , 假) ＝ 1)<br />     列表.置标题 (参数, 3, “登陆超时”)<br />     线程_初始化COM库 ()<br /> .如果真结束<br /> 调试输出 (帐号, 密码, coo)<br /> .如果真 (寻找文本 (coo, “yyuid=”, , 假) ＝ 1)<br />     列表.置标题 (参数, 3, “登陆成功”)<br /> .如果真结束<br /> 子程序1 (coo, 封号原因3, 封号时间3, 识别结果)<br /> .如果真 (选择框1.选中 ＝ 真)<br />     列表.置标题 (参数, 4, 封号时间3)<br />     .如果真 (识别结果 ＝ “识别失败”)<br />         线程_启动 (&操作线程, 参数)<br />         ' 操作线程 (参数)<br />         返回 ()<br />     .如果真结束<br />     列表.置标题 (参数, 5, 封号原因3)<br /> .如果真结束<br /> .如果真 (选择框2.选中 ＝ 真)<br />     查积分号码 (积分, 号码, coo)<br />     列表.置标题 (参数, 6, 积分)<br />     列表.置标题 (参数, 7, 号码)<br /> .如果真结束<br /> 线程数量 ＝ 线程数量 － 1<br /> 线程_取消COM库 ()

怎么让他在登录超时以后  不再继续登录超级列表框下一个帐号而是循环登录此帐号    直到登录循环到  次数 比如编辑框1的内容 100  他就循环100次   然后再登录下一个帐

silenter

你这个是分析登陆结果的源码。你可以将这个做个子程序，然后返回分析结果给登陆子程序
0，表示非超时，1表示超时
如果返回结果=1，就循环，否则就下一个号

  

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

变量名	类 型	静态	数组	备 注
帐号	文本型
密码	文本型
e	整数型
f	整数型

计次循环首 (, )
' 这里是循环你读取账号密码的程序
帐号 ＝ “”
密码 ＝ “”
f ＝ 到整数 (编辑框1.内容)
e ＝ 1
判断循环首 (子程序2 (帐号, 密码) ＝ 1)
如果真 (e ＞ f)  ' 超过编辑框1内的次数，就不再循环
跳出循环 ()
e ＝ e ＋ 1
判断循环尾 ()
' 当前登陆不为1，也就是没有超时，继续登陆下一个账号
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序2	整数型
参数名	类 型	参考	可空	数组	备 注
帐号	文本型
密码	文本型

调试输出 (帐号, 密码)
如果真 (寻找文本 (coo, “LGNJSESSIONID=”, , 假) ＝ 1)
列表.置标题 (参数, 3, “登陆超时”)
返回 (1)
线程_初始化COM库 ()
调试输出 (帐号, 密码, coo)
如果真 (寻找文本 (coo, “yyuid=”, , 假) ＝ 1)
列表.置标题 (参数, 3, “登陆成功”)
子程序1 (coo, 封号原因3, 封号时间3, 识别结果)
如果真 (选择框1.选中 ＝ 真)
列表.置标题 (参数, 4, 封号时间3)
如果真 (识别结果 ＝ “识别失败”)
线程_启动 (&操作线程, 参数)
' 操作线程 (参数)
返回 ()
列表.置标题 (参数, 5, 封号原因3)
如果真 (选择框2.选中 ＝ 真)
查积分号码 (积分, 号码, coo)
列表.置标题 (参数, 6, 积分)
列表.置标题 (参数, 7, 号码)
线程数量 ＝ 线程数量 － 1
线程_取消COM库 ()
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 帐号, 文本型<br /> .局部变量 密码, 文本型<br /> .局部变量 e, 整数型<br /> .局部变量 f, 整数型<br /> <br /> .计次循环首 (, )<br />     ' 这里是循环你读取账号密码的程序<br />     帐号 ＝ “”<br />     密码 ＝ “”<br />     f ＝ 到整数 (编辑框1.内容)<br />     e ＝ 1<br />     .判断循环首 (子程序2 (帐号, 密码) ＝ 1)<br />         .如果真 (e ＞ f)  ' 超过编辑框1内的次数，就不再循环<br />             跳出循环 ()<br />         .如果真结束<br />         e ＝ e ＋ 1<br />     .判断循环尾 ()<br />     ' 当前登陆不为1，也就是没有超时，继续登陆下一个账号<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 子程序2, 整数型<br /> .参数 帐号, 文本型<br /> .参数 密码, 文本型<br /> <br /> 调试输出 (帐号, 密码)<br /> .如果真 (寻找文本 (coo, “LGNJSESSIONID=”, , 假) ＝ 1)<br />     列表.置标题 (参数, 3, “登陆超时”)<br />     返回 (1)<br />     线程_初始化COM库 ()<br /> .如果真结束<br /> 调试输出 (帐号, 密码, coo)<br /> .如果真 (寻找文本 (coo, “yyuid=”, , 假) ＝ 1)<br />     列表.置标题 (参数, 3, “登陆成功”)<br /> .如果真结束<br /> 子程序1 (coo, 封号原因3, 封号时间3, 识别结果)<br /> .如果真 (选择框1.选中 ＝ 真)<br />     列表.置标题 (参数, 4, 封号时间3)<br />     .如果真 (识别结果 ＝ “识别失败”)<br />         线程_启动 (&操作线程, 参数)<br />         ' 操作线程 (参数)<br />         返回 ()<br />     .如果真结束<br />     列表.置标题 (参数, 5, 封号原因3)<br /> .如果真结束<br /> .如果真 (选择框2.选中 ＝ 真)<br />     查积分号码 (积分, 号码, coo)<br />     列表.置标题 (参数, 6, 积分)<br />     列表.置标题 (参数, 7, 号码)<br /> .如果真结束<br /> 线程数量 ＝ 线程数量 － 1<br /> 线程_取消COM库 ()<br /> 返回 (0)

taizixiaoer

你做一个收尾循环啊

精易求精了

可以用计次循环命令

taizixiaoer

taizixiaoer 发表于 2015-11-27 23:56
你做一个收尾循环啊

楼下的也可以，百度一下或者论坛一下就有了

一曲离歌

计次循环或者判断超级列表框数据操作，这个可以灵活些

沧海

如果真(登录超时 = 真)
启动线程(&登录)

旪彯っ旪楿儭

.版本 2

.计次循环首 (到整数 (编辑框1.内容), 计次)
    .如果 (寻找文本 (coo, “LGNJSESSIONID=”, , 假) ≠ -1)
        ' 这里是你循环的列表内容
    .否则
        跳出循环 ()
    .如果结束

.计次循环尾 ()