循环登录第1个账号求原因帮修改 谢谢

晓风残影

只能循环登录第1个账号  不知道是几次循环的问题还是cookie没能清除的原因   请各位指点   初学好多地方不懂。。。没精币了。望各位大侠发扬下雷锋精神帮我修改下     附件为问题源码  同时我把源码贴出来 请各位指点


.版本 2
.支持库 iext
.支持库 spec
.子程序 __启动窗口_创建完毕
.局部变量 文本, 文本型
.局部变量 分割行, 文本型, , "0"
.局部变量 分割列, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\user.txt”))
分割行 ＝ 分割文本 (文本, #换行符, )
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (分割行), i)
    分割列 ＝ 分割文本 (分割行 [i], “----”, )
    超级列表框1.插入表项 (, , , , , )
    .计次循环首 (取数组成员数 (分割列), j)
        超级列表框1.置标题 (i － 1, j － 1, 分割列 [j])
        处理事件 ()
    .计次循环尾 ()
.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 登陆帐号, 文本型
.局部变量 登陆密码, 文本型
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 返回信息, 文本型
.局部变量 a, 文本型
.局部变量 form, 文本型

.计次循环首 (超级列表框1.取表项数 (), n)
    登陆帐号 ＝ 超级列表框1.取标题 (n － 1, 0)
    登陆密码 ＝ 超级列表框1.取标题 (n － 1, 1)
    ' *****************************************
    a ＝ 到文本 (网页_访问 (“http://www.rongame.com/”))
    form ＝ 文本_取出中间文本 (a, “formhash=”, “&s”)
    提交地址 ＝ “http://www.rongame.com/member.php?mod=logging&action=login&loginsubmit=yes&frommessage&loginhash=LmSIC&inajax=1”
    提交数据 ＝ “formhash=” ＋ form ＋ “&referer=http%3A%2F%2Fwww.rongame.com%2Fhome.php%3Fmod%3Dspace%26do%3Drgapp%26appid%3D10007&loginfield=username&username=” ＋ 编码_URL编码_UTF8 (登陆帐号) ＋ “&password=” ＋ 编码_URL编码_UTF8 (登陆密码) ＋ “&questionid=0&answer=&loginsubmit=%3CSTRONG%3E%E7%99%BB%E5%BD%95%3C%2FSTRONG%3E”
    ' *****************************************
    返回信息 ＝ 到文本 (网页_访问 (提交地址, 1, , , 提交数据, 1))
    .判断开始 (寻找文本 (返回信息, “欢迎您回来”, , 假) ≠ 1)
        ' 信息框 (“登录成功”, #信息图标, )
    .默认
        ' 信息框 (“登录失败”, #信息图标, )
    .判断结束
    调试输出 (返回信息)
    延时 (1000)
    处理事件 ()

.计次循环尾 ()
调试输出 (“所有帐号登陆完成,共” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “个”)

.子程序 __启动窗口_将被销毁
结束 ()

深藏功舆名ゐ

批登录.zip (1.24 MB, 下载次数: 194)

2012-3-16 12:52 上传

点击文件名下载附件

晓风残影

忘了 传附件  现补上

金哥专用

此电脑没E，无法修改。

晓风残影

金哥专用 发表于 2012-3-16 12:02
此电脑没E，无法修改。

呵呵  谢谢 {:3_244:}  我不急 。。。就是自己搞不明白这个

深藏功舆名ゐ

我有时间 帮你改改吧

晓风残影

易团雾 发表于 2012-3-16 12:52

谢谢  辛苦啦{:3_244:}