精易论坛

标题: 求帮忙求解决求解决啊 [打印本页]

作者: wjfdmd 时间: 2013-1-8 18:38
标题: 求帮忙求解决求解决啊
为什么批量登陆不了呢，求解决，难道是他的网站有问题吗，求解决

版本 2
.支持库 iext
.支持库 spec

.子程序 _按钮批量登陆_被单击

.如果真 (超级列表框1.取表项数 () ＝ 0)
信息框 (“请先导入至少一条帐号哦！！！否则软件无法运行的哦！”, 0, “温馨提示”)
返回 ()

.如果真结束

启动线程 ()

.子程序启动线程
.局部变量 t, 整数型
.局部变量临时帐号, 文本型
.局部变量临时密码, 文本型
.局部变量临时返回, 文本型
.局部变量网页超做, 网页操作类
.局部变量 h, 整数型
.局部变量提交文本, 文本型

.计次循环首 (超级列表框1.取表项数 (), t)
临时帐号＝超级列表框1.取标题 (t － 1, 1)
临时密码＝超级列表框1.取标题 (t － 1, 2)
临时返回＝到文本 (网页_访问 (“http://epoint.pampers.com.cn/system/Login2.aspx”, 1, , , , , , “email=” ＋编码_URL解码UTF8 (临时帐号) ＋ “&password=” ＋编码_URL解码UTF8 (临时密码) ＋ “&fromweb=ECRM&url=https%3A%2F%2Fepoint.pampers.com.cn%2Fsystem%2Faction.aspx%3Fu%3Dhttp%253a%252f%252fepoint.pampers.com.cn%252findex.aspx%253fr%253d634932281097045552”, , , 假))

输出调试文本 (编码_URL解码UTF8 (临时返回))

.如果真 (寻找文本 (临时返回, “错误的用户名、密码或您不是此类型用户”, , 假) ≠ -1)
      超级列表框1.置标题 (t － 1, 3, “帐号或密码错误”)
      到循环尾 ()
.如果真结束

.如果真 (寻找文本 (临时返回, “Object moved”, , 假) ≠ -1)
      超级列表框1.置标题 (t － 1, 3, “登陆成功”)
.如果真结束

延迟 (100)
.计次循环尾 ()

欢迎光临精易论坛 (https://125.confly.eu.org/)