post精易论坛回帖问题求大神

hyp83050859 · 发表于 2015-10-10 18:46:38

老是提示验证码输错，查了半天了也没看出问题出在哪？下面是全部代码

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

.程序集窗口程序集_启动窗口

.子程序 _登陆_被单击

.判断开始 (登陆论坛 (帐号.内容, 密码.内容))
用户信息 ()
.默认
信息框 (“登陆失败”, 0, , )
.判断结束

.子程序登陆论坛, 逻辑型, 公开
.参数帐号, 文本型
.参数密码, 文本型
.局部变量返回内容, 文本型

密码＝取数据摘要 (到字节集 (密码))
返回内容＝网页访问s (“http://bbs.125.la/member.php?mod ... it=yes&inajax=1”, “POST”, “username=” ＋帐号＋ “&password=” ＋密码＋ “&quickforward=yes&handlekey=ls”)
返回内容＝网页访问s (“http://bbs.125.la/”)
.判断开始 (寻找文本 (返回内容, 帐号, , 假) ≠ -1)
返回 (真)
.默认
返回 (假)
.判断结束

.子程序用户信息, , 公开
.局部变量正则, 正则表达式类
.局部变量 str, 文本型
.局部变量 n, 整数型

str ＝网页访问s (“http://bbs.125.la/home.php?mod=s ... =extcreditmenu_menu”)
正则.创建 (#正则信息, str, 真, 真)
.计次循环首 (正则.取匹配数量 (), n)
用户信息.标题＝用户信息.标题＋正则.取子匹配文本 (n, 1) ＋正则.取子匹配文本 (n, 2) ＋ #换行符＋ #换行符

.计次循环尾 ()

.子程序 _发帖_被单击

回帖 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容)

.子程序回帖, 逻辑型, 公开
.参数回帖地址, 文本型
.参数回帖内容, 文本型
.参数 yan, 文本型
.局部变量 formhash, 文本型
.局部变量 str, 文本型
.局部变量 fid, 文本型
.局部变量 tid, 文本型
.局部变量 posttime, 文本型

str ＝网页访问s (回帖地址)
fid ＝取文本中间1 (str, #fid前, #fid后)
tid ＝取文本中间1 (str, #tid前, #tid后)
formhash ＝取文本中间1 (str, #formhash前, #formhash后)
posttime ＝取文本中间1 (str, #posttime前, #posttime后)
str ＝网页访问s (“http://bbs.125.la/forum.php?mod=post&action=reply&fid=” ＋ fid ＋ “&tid=” ＋ tid ＋ “&extra=page%3D1&replysubmit=yes&infloat=yes&handlekey=fastpost&inajax=1”, “POST”, “message=” ＋ URL编码 (回帖内容) ＋ “&seccodehash=cSbZ07oR&seccodemodid=forum%3A%3Aviewthread&seccodeverify=” ＋ yan ＋ “&posttime=” ＋ posttime ＋ “&formhash=” ＋ formhash ＋ “&usesig=&subject=++”)
调试输出 (str)
.判断开始 (寻找文本 (str, “回复发布成功”, , 假) ≠ -1)
返回 (真)
.默认
返回 (假)
.判断结束

.子程序验证码

验证码.图片＝网页访问 (“http://bbs.125.la/plugin.php?id= ... fined&refresh=1”)

.子程序 __启动窗口_创建完毕

验证码 ()

.子程序 _验证码_鼠标左键被按下, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型

验证码 ()