提示验证码获取错误

weather123

提示验证码错误，理论上应该没错，求大神更正

sasa丶

.版本 2
.支持库 dp1

fh ＝ 网页_访问S (“http://bbs.125.la/member.php?mod ... =fwin_content_login”, , , r_cookie, , )

formhash ＝ 文本_取出中间文本 (fh, #fohash_head, #引号)

idhash ＝ 文本_取出中间文本 (fh, #_idhash_head, #引号)


处理事件 ()

.循环判断首 ()
    _启动窗口.编辑框3.内容 ＝ “”
    _启动窗口.图片框1.图片 ＝ 网页_访问 (“http://bbs.125.la/misc.php?mod=s ... e=78094&idhash=” ＋ idhash, , , r_cookie, )
    .循环判断首 ()
        程序_延时 (1000)
    .循环判断尾 (取文本长度 (_启动窗口.编辑框3.内容) ≠ 4)
    fh ＝ 网页_访问S (“http://bbs.125.la/misc.php?mod=s ... logging&idhash=” ＋ idhash ＋ “&secverify=” ＋ _启动窗口.编辑框3.内容, , , r_cookie, )

.循环判断尾 (文本_取出中间文本 (fh, “[CDATA[”, “]”) ＝ “invalid”)

data ＝ “formhash=” ＋ formhash ＋ “&referer=http%3A%2F%2Fbbs.125.la%2F&loginfield=username&username=” ＋ 编码_URL编码 (_启动窗口.编辑框1.内容, 真, 假) ＋ “&password=” ＋ 取数据摘要 (到字节集 (_启动窗口.编辑框2.内容)) ＋ “&questionid=0&answer=&seccodehash=” ＋ idhash ＋ “&seccodemodid=member%3A%3Alogging&seccodeverify=” ＋ _启动窗口.编辑框3.内容
fh ＝ 网页_访问S (“http://bbs.125.la/member.php?mod ... =Lm0J0&inajax=1”, 1, data, r_cookie, , )
.判断开始 (寻找文本 (fh, “欢迎您回来”, , 假) ≠ -1)
    返回 (0)
.默认
    返回 (1)
.判断结束