萌新菜鸟做一个精易论坛的登录器

shifanjian

    首先感谢精易论坛让我能学习易语言和POST的知识，其次感谢“之乎者也”的视频教学入了POST的门，最后感谢“萌新学e”同志的帖子“https://bbs.125.la/thread-14342741-1-1.html”让我能测试我的这个登录器。
   菜鸟写的，大神请轻拍！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

XP风格 (1)
按钮2_回帖.禁止 ＝ 真
动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_访问 (“https://bbs.125.la/misc.php?mod=seccode&update=36464&idhash=cSALwOfzM”, , , , , , , , , , , ), -2)

子程序名	返回值类型	公开	备 注
获取图片验证码

' '图片框1.图片 ＝ 网页_访问 (“https://bbs.125.la/misc.php?mod=seccode&update=42533&idhash=cSe8WAQ1”)
' 动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_访问 (“https://bbs.125.la/misc.php?mod=seccode&update=42533&idhash=cSe8WAQ1”), -2)
动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_访问 (“https://bbs.125.la/misc.php?mod=seccode&update=36464&idhash=cSALwOfzM”), -2)

子程序名	返回值类型	公开	备 注
_动画框1_物体左键被按下
参数名	类 型	参考	可空	数组	备 注
物体标识值	整数型

获取图片验证码 ()

子程序名	返回值类型	公开	备 注
MD5加密	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

返回 (取数据摘要 (到字节集 (文本)))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
账号	文本型
加密密码	文本型
返回文本	文本型
精币	文本型
交易币	文本型
好评	文本型
诚信度	文本型
荣誉	文本型

加密密码 ＝ MD5加密 (编辑框2.内容)
账号 ＝ “formhash=e4f93001&referer=https%3A%2F%2Fbbs.125.la%2F&loginfield=username&username=” ＋ 编码_URL编码 (编辑框1.内容, , ) ＋ “&password=” ＋ 加密密码 ＋ “&questionid=0&answer=&seccodehash=cSAR4eRFm&seccodemodid=member%3A%3Alogging&seccodeverify=” ＋ 编辑框3.内容
返回文本 ＝ 到文本 (网页_访问 (“https://bbs.125.la/member.php?mod=logging&action=login&loginsubmit=yes&handlekey=login&loginhash=Lw77V&inajax=1”, 1, 账号))
' 调试输出 (返回文本)
如果 (寻找文本 (返回文本, “欢迎您回来，初识易语言”, , 假) ≠ -1 或 寻找文本 (返回文本, “欢迎您回来，易语言菜鸟”, , 假) ≠ -1 或 寻找文本 (返回文本, “欢迎您回来，易语言学徒”, , 假) ≠ -1 或 寻找文本 (返回文本, “欢迎您回来，易语言入门”, , 假) ≠ -1 或 寻找文本 (返回文本, “欢迎您回来，易语言起步”, , 假) ≠ -1)
信息框 (“你已经成功登陆精易论坛”, 0, , )
按钮2_回帖.禁止 ＝ 假
信息框 (“登录失败”, 0, , )
按钮2_回帖.禁止 ＝ 真
编辑框4.内容 ＝ 到文本 (返回文本)
交易币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量5, #常量4, , )
精币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量3, #常量4, , )
好评 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )
诚信度 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )
荣誉 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量8, #常量9, , )
标签4.标题 ＝ “交易币：” ＋ 交易币 ＋ #换行符 ＋ “精币：” ＋ 精币 ＋ #换行符 ＋ “好评：” ＋ 好评 ＋ #换行符 ＋ “诚信度：” ＋ 诚信度 ＋ #换行符 ＋ “荣誉：” ＋ 荣誉

子程序名	返回值类型	公开	备 注
_按钮2_回帖_被单击

变量名	类 型	静态	数组	备 注
帖子ID	文本型
帖子内容	文本型
签到内容	文本型
精币	文本型
交易币	文本型
好评	文本型
诚信度	文本型
荣誉	文本型

帖子ID ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/thread-14342741-1-1.html”, , , , , , , , , , , ))), #常量1, #常量2, , )
帖子内容 ＝ “message=” ＋ 编码_URL编码 (编辑框5.内容, 真, 假) ＋ “&posttime=1554266022&formhash=” ＋ 帖子ID ＋ “&usesig=&subject=++”
编辑框6.内容 ＝ 到文本 (网页_访问 (“https://bbs.125.la/forum.php?mod=post&action=reply&fid=27&tid=14342741&extra=page%3D1&replysubmit=yes&infloat=yes&handlekey=fastpost&inajax=1”, 1, 帖子内容, , , , , , , , , ))
调试输出 (文本_寻找文本 (到文本 (编辑框6.内容), “回复发布成功”, , ))
如果 (文本_寻找文本 (到文本 (编辑框6.内容), “回复发布成功”, , ) ≠ -1)
编辑框6.加入文本 ( #换行符 ＋ “你已经顺利回复帖子”)
编辑框6.加入文本 (“回复帖子失败”)
签到内容 ＝ “formhash=” ＋ 帖子ID ＋ “&qdxq=ch&targerurl=”
如果 (文本_寻找文本 (到文本 (网页_访问 (“https://bbs.125.la/plugin.php?id=dsu_paulsign:sign&operation=qiandao&infloat=0”, 1, 签到内容, , , , , , , , , )), “您今日已经签到，请明天再来！”, , ) ≠ -1)
编辑框6.加入文本 ( #换行符 ＋ “你已经顺利签到！”)


交易币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量5, #常量4, , )
精币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量3, #常量4, , )
好评 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )
诚信度 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )
荣誉 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量8, #常量9, , )
标签4.标题 ＝ “交易币：” ＋ 交易币 ＋ #换行符 ＋ “精币：” ＋ 精币 ＋ #换行符 ＋ “好评：” ＋ 好评 ＋ #换行符 ＋ “诚信度：” ＋ 诚信度 ＋ #换行符 ＋ “荣誉：” ＋ 荣誉
编辑框6.加入文本 (到文本 (网页_访问 (“https://bbs.125.la/plugin.php?id=dsu_paulsign:sign&operation=qiandao&infloat=0”, 1, 签到内容, , , , , , , , , )))

子程序名	返回值类型	公开	备 注
_按钮3_被单击

i支持库列表	支持库注释
xplib	XP风格界面库
iext2	扩展界面支持库二
dp1	数据操作支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 xplib<br /> .支持库 iext2<br /> .支持库 dp1<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> XP风格 (1)<br /> 按钮2_回帖.禁止 ＝ 真<br /> 动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_访问 (“https://bbs.125.la/misc.php?mod=seccode&update=36464&idhash=cSALwOfzM”, , , , , , , , , , , ), -2)<br /> <br /> .子程序 获取图片验证码<br /> <br /> ' '图片框1.图片 ＝ 网页_访问 (“https://bbs.125.la/misc.php?mod=seccode&update=42533&idhash=cSe8WAQ1”)<br /> ' 动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_访问 (“https://bbs.125.la/misc.php?mod=seccode&update=42533&idhash=cSe8WAQ1”), -2)<br /> 动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_访问 (“https://bbs.125.la/misc.php?mod=seccode&update=36464&idhash=cSALwOfzM”), -2)<br /> <br /> .子程序 _动画框1_物体左键被按下<br /> .参数 物体标识值, 整数型<br /> <br /> 获取图片验证码 ()<br /> <br /> .子程序 MD5加密, 文本型<br /> .参数 文本, 文本型<br /> <br /> 返回 (取数据摘要 (到字节集 (文本)))<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 账号, 文本型<br /> .局部变量 加密密码, 文本型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 精币, 文本型<br /> .局部变量 交易币, 文本型<br /> .局部变量 好评, 文本型<br /> .局部变量 诚信度, 文本型<br /> .局部变量 荣誉, 文本型<br /> <br /> 加密密码 ＝ MD5加密 (编辑框2.内容)<br /> 账号 ＝ “formhash=e4f93001&referer=https%3A%2F%2Fbbs.125.la%2F&loginfield=username&username=” ＋ 编码_URL编码 (编辑框1.内容, , ) ＋ “&password=” ＋ 加密密码 ＋ “&questionid=0&answer=&seccodehash=cSAR4eRFm&seccodemodid=member%3A%3Alogging&seccodeverify=” ＋ 编辑框3.内容<br /> 返回文本 ＝ 到文本 (网页_访问 (“https://bbs.125.la/member.php?mod=logging&action=login&loginsubmit=yes&handlekey=login&loginhash=Lw77V&inajax=1”, 1, 账号))<br /> ' 调试输出 (返回文本)<br /> .如果 (寻找文本 (返回文本, “欢迎您回来，初识易语言”, , 假) ≠ -1 或 寻找文本 (返回文本, “欢迎您回来，易语言菜鸟”, , 假) ≠ -1 或 寻找文本 (返回文本, “欢迎您回来，易语言学徒”, , 假) ≠ -1 或 寻找文本 (返回文本, “欢迎您回来，易语言入门”, , 假) ≠ -1 或 寻找文本 (返回文本, “欢迎您回来，易语言起步”, , 假) ≠ -1)<br />     信息框 (“你已经成功登陆精易论坛”, 0, , )<br />     按钮2_回帖.禁止 ＝ 假<br /> .否则<br />     信息框 (“登录失败”, 0, , )<br />     按钮2_回帖.禁止 ＝ 真<br /> .如果结束<br /> 编辑框4.内容 ＝ 到文本 (返回文本)<br /> 交易币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量5, #常量4, , )<br /> 精币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量3, #常量4, , )<br /> 好评 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )<br /> 诚信度 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )<br /> 荣誉 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量8, #常量9, , )<br /> 标签4.标题 ＝ “交易币：” ＋ 交易币 ＋ #换行符 ＋ “精币：” ＋ 精币 ＋ #换行符 ＋ “好评：” ＋ 好评 ＋ #换行符 ＋ “诚信度：” ＋ 诚信度 ＋ #换行符 ＋ “荣誉：” ＋ 荣誉<br /> <br /> .子程序 _按钮2_回帖_被单击<br /> .局部变量 帖子ID, 文本型<br /> .局部变量 帖子内容, 文本型<br /> .局部变量 签到内容, 文本型<br /> .局部变量 精币, 文本型<br /> .局部变量 交易币, 文本型<br /> .局部变量 好评, 文本型<br /> .局部变量 诚信度, 文本型<br /> .局部变量 荣誉, 文本型<br /> <br /> <br /> 帖子ID ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/thread-14342741-1-1.html”, , , , , , , , , , , ))), #常量1, #常量2, , )<br /> 帖子内容 ＝ “message=” ＋ 编码_URL编码 (编辑框5.内容, 真, 假) ＋ “&posttime=1554266022&formhash=” ＋ 帖子ID ＋ “&usesig=&subject=++”<br /> 编辑框6.内容 ＝ 到文本 (网页_访问 (“https://bbs.125.la/forum.php?mod=post&action=reply&fid=27&tid=14342741&extra=page%3D1&replysubmit=yes&infloat=yes&handlekey=fastpost&inajax=1”, 1, 帖子内容, , , , , , , , , ))<br /> 调试输出 (文本_寻找文本 (到文本 (编辑框6.内容), “回复发布成功”, , ))<br /> .如果 (文本_寻找文本 (到文本 (编辑框6.内容), “回复发布成功”, , ) ≠ -1)<br />     编辑框6.加入文本 (#换行符 ＋ “你已经顺利回复帖子”)<br /> .否则<br />     编辑框6.加入文本 (“回复帖子失败”)<br /> .如果结束<br /> 签到内容 ＝ “formhash=” ＋ 帖子ID ＋ “&qdxq=ch&targerurl=”<br /> .如果 (文本_寻找文本 (到文本 (网页_访问 (“https://bbs.125.la/plugin.php?id=dsu_paulsign:sign&operation=qiandao&infloat=0”, 1, 签到内容, , , , , , , , , )), “您今日已经签到，请明天再来！”, , ) ≠ -1)<br />     编辑框6.加入文本 (#换行符 ＋ “你已经顺利签到！”)<br /> .否则<br /> <br /> .如果结束<br /> 交易币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量5, #常量4, , )<br /> 精币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量3, #常量4, , )<br /> 好评 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )<br /> 诚信度 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )<br /> 荣誉 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://bbs.125.la/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量8, #常量9, , )<br /> 标签4.标题 ＝ “交易币：” ＋ 交易币 ＋ #换行符 ＋ “精币：” ＋ 精币 ＋ #换行符 ＋ “好评：” ＋ 好评 ＋ #换行符 ＋ “诚信度：” ＋ 诚信度 ＋ #换行符 ＋ “荣誉：” ＋ 荣誉<br /> <br /> 编辑框6.加入文本 (到文本 (网页_访问 (“https://bbs.125.la/plugin.php?id=dsu_paulsign:sign&operation=qiandao&infloat=0”, 1, 签到内容, , , , , , , , , )))<br /> <br /> .子程序 _按钮3_被单击

uxdxdg

oooooooooooooooooooooo

LYForever

sos120 发表于 2019-4-9 09:26
为什么不上传源码，而是直接把代码复制上来

常量

LYForever

我学易语言两年了我都不会

sos120

shifanjian 发表于 2019-4-9 08:06
断断续续的学的，有时候解决一个问题得一两天的时间，比如gzip的问题查了好久的资料！

为什么不上传源码，而是直接把代码复制上来

shifanjian

sos120 发表于 2019-4-8 23:20
你只学了2个月？就学到这个程度了？

断断续续的学的，有时候解决一个问题得一两天的时间，比如gzip的问题查了好久的资料！

北方seo

感觉正则会比较快  估计你还没学到

a3960382663

sos120

你只学了2个月？就学到这个程度了？

kyo9766

你可以吧网站，改个别的 使用 Discuz模板的就没事了