|
发表于 2013-8-30 07:37:20
|
显示全部楼层
北京市北京市
.版本 2
.支持库 iext
.支持库 HtmlView
.计次循环首 (超级列表框1.取表项数 (), 局_计次)
.判断循环首 (网页填表.链接_点击 (“登录”) = 假)
网页填表.网页_跳转 (“http://tieba.baidu.com”)
网页填表.链接_点击 (“退出”)
网页填表公用.程序_延时 (6000)
.判断循环尾 ()
网页填表.链接_点击 (“登录”)
网页填表公用.程序_延时 (8000)
登录用户名 = 超级列表框1.取标题 (局_计次 - 1, 1)
登录密码 = 超级列表框1.取标题 (局_计次 - 1, 2)
' 调试输出 (登录用户名 + “ ” + 登录密码)
网页填表.文本框_写内容 (“userName”, 登录用户名)
网页填表.文本框_写内容 (“password”, 登录密码)
网页填表公用.程序_延时 (4000)
编辑框_状态.加入文本 (“第” + 到文本 (局_计次) + “个用户名密码填写完毕,准备登录” + #换行符)
网页填表.按钮_点击 (“1”)
网页填表公用.程序_延时 (3000)
网页填表公用.程序_延时 (5000)
网页源码 = 网页填表.网页_取源码 ()
.如果真 (寻找文本 (网页源码, 登录用户名, , 假) = -1)
编辑框_状态.加入文本 (“登录失败” + #换行符)
到循环尾 ()
.如果真结束
网页填表公用.程序_延时 (3000)
编辑框_状态.加入文本 (“登录成功” + #换行符)
.计次循环首 (取数组成员数 (学校信息数组), 局_学校_计次)
超文本浏览框1.地址 = “http://tieba.baidu.com/f?ie=utf-8&kw=” + 学校信息数组 [局_学校_计次]
网页填表公用.程序_延时 (3000)
网页文本 = 网页填表.网页_取文本 ()
.如果真 (寻找文本 (网页文本, “我关注”, , 假) ≠ -1)
网页填表.链接_点击 (“balv_dolike”)
网页填表公用.程序_延时 (3000)
.如果真结束
网页填表公用.程序_延时 (3000)
.计次循环尾 ()
网页填表公用.网页_清除Cookie (“baidu.com”)
超文本浏览框1.地址 = “http://tieba.baidu.com”
编辑框_状态.加入文本 (“准备退出” + #换行符)
网页填表.链接_点击 (“退出”)
网页填表公用.程序_延时 (15000)
.计次循环尾 ()
|
|