|
楼主 |
发表于 2014-9-25 09:52:41
|
显示全部楼层
广东省深圳市
.版本 2
.子程序 豆瓣登陆
.局部变量 验证, 文本型
.局部变量 验证码地址, 文本型
.局部变量 cap, 文本型
.局部变量 w, 文本型
验证 = 网页访问u (“http://www.douban.com/accounts/login”, 0)
cap = 文本_取出中间文本 (验证, “captcha-id” + #引号 + “ value=” + #引号, #引号 + “/>”, , )
' 调试输出 (cap)
.如果真 (寻找文本 (验证, “验证码”, , 假) ≥ 1)
验证码地址 = 文本_取出中间文本 (验证, “<img id=” + #引号 + “captcha_image” + #引号 + “ src=” + #引号, #引号 + “ alt=” + #引号 + “captcha” + #引号 + “ class=” + #引号 + “captcha_image” + #引号, , )
图片框1.图片 = 网页访问 (验证码地址, 0)
编辑框3.获取焦点 ()
.判断循环首 (开关 = 假)
程序_等待 (1000)
处理事件 ()
.判断循环尾 ()
开关 = 假
code = 编辑框3.内容
编辑框3.内容 = “”
图片框1.图片 = { }
' 调试输出 (code)
.如果真结束
w = 网页访问u (“https://www.douban.com/accounts/login”, 1, “source=None&redir=http%3A%2F%2Fwww.douban.com&form_email=yanpanjiao@163.com&form_password=a3255881&captcha-solution=” + code + “&captcha-id=” + 编码_URL编码 (cap) + “&login=%E7%99%BB%E5%BD%95”, ) |
|