救救新手吧，一个循环登录的问题

乱世

RT

我直接上源码吧，那更直观点。
.版本 2
.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 返回文本, 文本型
.计次循环首 (超级列表框1.取表项数 (), n)
    返回文本 ＝ 彗星HTTP读文本 (“http://ashuade.cn/user/loginact.php”, “POST”, , , “username=” ＋ 超级列表框1.取标题 (n － 1, 0) ＋ “&password=” ＋ 超级列表框1.取标题 (n － 1, 1),)
    .判断开始 (寻找文本 (返回文本, “登录失败”, , 假) ≠ -1)
        ' ------这里不知道怎么写了，救救新手吧
    .默认
    .判断结束
.计次循环尾 ()

exit11

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 返回文本, 文本型

.计次循环首 (超级列表框1.取表项数 (), n)
    .如果真 (超级列表框1.取标题 (n － 1, 2) ＝ “” 或 超级列表框1.取标题 (n － 1, 2) ＝ “失败”)
        返回文本 ＝ 彗星HTTP读文本 (“http://ashuade.cn/user/loginact.php”, “POST”, , , “username=” ＋ 超级列表框1.取标题 (n － 1, 0) ＋ “&password=” ＋ 超级列表框1.取标题 (n － 1, 1),)
        .判断开始 (寻找文本 (返回文本, “登录失败”, , 假) ≠ -1)
            ' ------这里不知道怎么写了，救救新手吧
            超级列表框1.置标题 (n － 1, 2, “失败”)
        .默认
            超级列表框1.置标题 (n － 1, 2, “成功失败”)
        .判断结束

    .如果真结束

.计次循环尾 ()
.如果真 (超级列表框1.查找表项 (“”, , 真, 2) ≠ -1 或 超级列表框1.查找表项 (“失败”, , 真, 2) ≠ -1)
    _按钮1_被单击 ()

冰点

{:3_234:}我也不明白你说的这里改怎么写,登录失败了,你想怎么写呢...

登录成功了.你又要执行一些什么操作呢

厌彡

求登陆源码啊！！！