精易论坛

标题: 萌新菜鸟做一个精易论坛的登录器 [打印本页]
作者: shifanjian    时间: 2019-4-8 10:14
标题: 萌新菜鸟做一个精易论坛的登录器
    首先感谢精易论坛让我能学习易语言和POST的知识，其次感谢“之乎者也”的视频教学入了POST的门，最后感谢“萌新学e”同志的帖子“https://125.confly.eu.org/thread-14342741-1-1.html”让我能测试我的这个登录器。
   菜鸟写的，大神请轻拍！

  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
XP风格 (1)
按钮2_回帖.禁止 ＝ 真
动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_访问 (“https://125.confly.eu.org/misc.php?mod=seccode&update=36464&idhash=cSALwOfzM”, , , , , , , , , , , ), -2)
子程序名返回值类型公开备 注
获取图片验证码  
' '图片框1.图片 ＝ 网页_访问 (“https://125.confly.eu.org/misc.php?mod=seccode&update=42533&idhash=cSe8WAQ1”)
 ' 动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_访问 (“https://125.confly.eu.org/misc.php?mod=seccode&update=42533&idhash=cSe8WAQ1”), -2)
动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_访问 (“https://125.confly.eu.org/misc.php?mod=seccode&update=36464&idhash=cSALwOfzM”), -2)
子程序名返回值类型公开备 注
_动画框1_物体左键被按下  
参数名类 型参考可空数组备 注
物体标识值整数型
获取图片验证码 ()
子程序名返回值类型公开备 注
MD5加密文本型 
参数名类 型参考可空数组备 注
文本文本型
返回 (取数据摘要 (到字节集 (文本)))
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
账号文本型 
加密密码文本型 
返回文本文本型 
精币文本型 
交易币文本型 
好评文本型 
诚信度文本型 
荣誉文本型 
加密密码 ＝ MD5加密 (编辑框2.内容)
账号 ＝ “formhash=e4f93001&referer=https%3A%2F%2F125.confly.eu.org%2F&loginfield=username&username=” ＋ 编码_URL编码 (编辑框1.内容, , ) ＋ “&password=” ＋ 加密密码 ＋ “&questionid=0&answer=&seccodehash=cSAR4eRFm&seccodemodid=member%3A%3Alogging&seccodeverify=” ＋ 编辑框3.内容
返回文本 ＝ 到文本 (网页_访问 (“https://125.confly.eu.org/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://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量5, #常量4, , )
精币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量3, #常量4, , )
好评 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )
诚信度 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )
荣誉 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量8, #常量9, , )
标签4.标题 ＝ “交易币：” ＋ 交易币 ＋ #换行符 ＋ “精币：” ＋ 精币 ＋ #换行符 ＋ “好评：” ＋ 好评 ＋ #换行符 ＋ “诚信度：” ＋ 诚信度 ＋ #换行符 ＋ “荣誉：” ＋ 荣誉
子程序名返回值类型公开备 注
_按钮2_回帖_被单击  
变量名类 型静态数组备 注
帖子ID文本型 
帖子内容文本型 
签到内容文本型 
精币文本型 
交易币文本型 
好评文本型 
诚信度文本型 
荣誉文本型 
帖子ID ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/thread-14342741-1-1.html”, , , , , , , , , , , ))), #常量1, #常量2, , )
帖子内容 ＝ “message=” ＋ 编码_URL编码 (编辑框5.内容, 真, 假) ＋ “&posttime=1554266022&formhash=” ＋ 帖子ID ＋ “&usesig=&subject=++”
编辑框6.内容 ＝ 到文本 (网页_访问 (“https://125.confly.eu.org/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://125.confly.eu.org/plugin.php?id=dsu_paulsign:sign&operation=qiandao&infloat=0”, 1, 签到内容, , , , , , , , , )), “您今日已经签到，请明天再来！”, , ) ≠ -1)
编辑框6.加入文本 ( #换行符 ＋ “你已经顺利签到！”)


交易币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量5, #常量4, , )
精币 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量3, #常量4, , )
好评 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )
诚信度 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量6, #常量4, , )
荣誉 ＝ 文本_取出中间文本 (到文本 (网页_GZIP解压 (网页_访问 (“https://125.confly.eu.org/home.php?mod=spacecp&ac=credit&showcredit=1&inajax=1&ajaxtarget=extcreditmenu_menu”, , , , , , , , , , , ))), #常量8, #常量9, , )
标签4.标题 ＝ “交易币：” ＋ 交易币 ＋ #换行符 ＋ “精币：” ＋ 精币 ＋ #换行符 ＋ “好评：” ＋ 好评 ＋ #换行符 ＋ “诚信度：” ＋ 诚信度 ＋ #换行符 ＋ “荣誉：” ＋ 荣誉
编辑框6.加入文本 (到文本 (网页_访问 (“https://125.confly.eu.org/plugin.php?id=dsu_paulsign:sign&operation=qiandao&infloat=0”, 1, 签到内容, , , , , , , , , )))
子程序名返回值类型公开备 注
_按钮3_被单击  



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

作者: shifanjian    时间: 2019-4-8 10:37
不知道怎么上传程序，有个gzip.dll的文件需要和该程序放在一起运行，不然报错！
作者: 山河皆无恙    时间: 2019-4-8 10:52
shifanjian 发表于 2019-4-8 10:37
不知道怎么上传程序，有个gzip.dll的文件需要和该程序放在一起运行，不然报错！

在协yi头里吧gzip去掉 应该就不用解压了
作者: 天上下雪了    时间: 2019-4-8 10:54
1. 为什么不用变量保存网页访问的内容  每次都获取太浪费时间和资源了
作者: JinZ    时间: 2019-4-8 11:04
协yi头去掉gzip，登录成功一句寻找文本，欢迎回来就行了，没有弄那么复杂
作者: 曰神    时间: 2019-4-8 11:09
论坛现在禁止发精易登陆帖子，否则会被封号~~，建议自学
https://125.confly.eu.org/thread-14259847-1-1.html
作者: HeraLess    时间: 2019-4-8 11:11
你不会传到网盘，发链接出来吗？蓝奏，百度，云盘都行的
作者: shifanjian    时间: 2019-4-8 11:17
天上下雪了 发表于 2019-4-8 10:54
1. 为什么不用变量保存网页访问的内容  每次都获取太浪费时间和资源了

坑爹的易语言回车后添加的是参数，导致我程序一直输出不了内容，后来才找到应该用变量的，后期我优化一下，规范一下程序~
作者: shifanjian    时间: 2019-4-8 11:21
@大司马   把这个帖子删除了吧，我不知道论坛不让发精易的登录源码！谢谢~
作者: shifanjian    时间: 2019-4-8 11:23
﹏゛伱微笑時很 发表于 2019-4-8 10:52
在协yi头里吧gzip去掉 应该就不用解压了

请详细说明，在哪个语句里面把gzip去掉？谢谢了，学习一下~
作者: 梦带我旅行i    时间: 2019-4-8 11:40
可以的!
作者: o413386301    时间: 2019-4-8 14:08
我上次测试了下精艺的post,然后就被封了
作者: kyo9766    时间: 2019-4-8 15:52
你可以吧网站，改个别的 使用 Discuz模板的就没事了
作者: sos120    时间: 2019-4-8 23:20
你只学了2个月？就学到这个程度了？
作者: a3960382663    时间: 2019-4-9 03:02
作者: 北方seo    时间: 2019-4-9 03:58
感觉正则会比较快  估计你还没学到
作者: shifanjian    时间: 2019-4-9 08:06
sos120 发表于 2019-4-8 23:20
你只学了2个月？就学到这个程度了？

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

为什么不上传源码，而是直接把代码复制上来
作者: LYForever    时间: 2019-4-9 17:28
我学易语言两年了我都不会
作者: LYForever    时间: 2019-4-9 17:34
sos120 发表于 2019-4-9 09:26
为什么不上传源码，而是直接把代码复制上来

常量
作者: uxdxdg    时间: 2019-4-23 20:06
oooooooooooooooooooooo



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4