超级列表框

冰岛

循环里读取超级列表框内容，运行一段时间就提示：易语言已停止工作！

694336034

运用.rar (4.03 KB, 下载次数: 9)

2013-9-23 14:47 上传

点击文件名下载附件

SourceCode

撸主  上源码啊   

怪咖咖

源码诶。。

唐老湿

代码问题呗  死循环

Hoibben

你代码没处理好吧，呵呵。。。

洃铯‰感伤

楼上说的很清楚路过。

wt5861

源码 看看

冰岛

莫愁湖畔 发表于 2013-9-23 12:57
撸主  上源码啊

[e]
.版本 2
.支持库 iext
.支持库 spec

.局部变量 username, 文本型
.局部变量 password, 文本型
.局部变量 url, 文本型
.局部变量 return, 文本型
.局部变量 postdata, 文本型
.局部变量 i, 整数型
.局部变量 cookie, 文本型

.计次循环首 (超级列表框1.取表项数 (), i)

' 邮箱登陆
username ＝ 超级列表框1.取标题 (i － 1, 1)
password ＝ 超级列表框1.取标题 (i － 1, 2)
url ＝ “https://ssl.mail.163.com/entry/c ... p;style=-1&uid=” ＋ username
postdata ＝ “savelogin=0&url2=http%3A%2F%2Fmail.163.com%2Ferrorpage%2Ferr_163.htm&username=” ＋ 文本_取左边 (username, “@”) ＋ “&password=” ＋ password
return ＝ 网页_访问s (url, 1, postdata)
' 调试输出 (return)
.如果 (寻找文本 (return, “http://twebmail.mail.163.com/js5/main.jsp?sid=”, , 假) ≠ -1)
调试输出 (“登陆成功”)
url ＝ “https://reg.163.com/logins.jsp”
postdata ＝ “username=” ＋ username ＋ “&password=” ＋ password ＋ “&product=mail163&url=http%3A%2F%2Fclub.mail.163.com%2Fjifen%2Findex.do%23&savelogin=”
return ＝ 网页_访问s (url, 1, postdata, )


.否则
' 调试输出 (“登陆失败”)


.如果结束
延时 (500)
.计次循环尾 ()

[/e]

冰岛

cfsdfds 发表于 2013-9-23 13:01
源码诶。。

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

.局部变量 username, 文本型
.局部变量 password, 文本型
.局部变量 url, 文本型
.局部变量 return, 文本型
.局部变量 postdata, 文本型
.局部变量 i, 整数型
.局部变量 cookie, 文本型

.计次循环首 (超级列表框1.取表项数 (), i)

    ' 邮箱登陆
    username ＝ 超级列表框1.取标题 (i － 1, 1)
    password ＝ 超级列表框1.取标题 (i － 1, 2)
    url ＝ “https://ssl.mail.163.com/entry/c ... p;style=-1&uid=” ＋ username
    postdata ＝ “savelogin=0&url2=http%3A%2F%2Fmail.163.com%2Ferrorpage%2Ferr_163.htm&username=” ＋ 文本_取左边 (username, “@”) ＋ “&password=” ＋ password
    return ＝ 网页_访问s (url, 1, postdata)
    ' 调试输出 (return)
    .如果 (寻找文本 (return, “http://twebmail.mail.163.com/js5/main.jsp?sid=”, , 假) ≠ -1)
        调试输出 (“登陆成功”)
        url ＝ “https://reg.163.com/logins.jsp”
        postdata ＝ “username=” ＋ username ＋ “&password=” ＋ password ＋ “&product=mail163&url=http%3A%2F%2Fclub.mail.163.com%2Fjifen%2Findex.do%23&savelogin=”
        return ＝ 网页_访问s (url, 1, postdata, )


    .否则
        ' 调试输出 (“登陆失败”)


    .如果结束
    延时 (500)
.计次循环尾 ()