怎么利用易语言写Discuz! X2.5的论坛登录器和发帖器?最好有源码或教程

Question

如题所述

Answer 1

.版本 2
.子程序 _按钮1_被单击
POST提交 ()

.子程序 POST提交, 逻辑型, ,
.局部变量 局_提交地址, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_返回文本, 文本型
.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
.否则
信息框 (“不输入用户名密码怎么登陆吖！”, 64, “海浪淘沙友情提醒”)
.如果结束
局_提交地址 ＝ “http://域名/member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1”
局_提交数据 ＝ “username=” ＋ 编辑框1.内容 ＋ “&cookietime=2592000&password=” ＋ 编辑框2.内容 ＋ “&quickforward=yes&handlekey=ls”
局_返回文本 ＝ 到文本 (网页_访问 (局_提交地址, 1, , , 到字节集 (局_提交数据), )) ' 最后一个参数为返回的编码方式

.如果 (寻找文本 (a, 编辑框1.内容, , 真) ＞ 0)
载入 (窗口1, , 假)
销毁 ()
.否则
信息框 (“用户名或者密码错误”, 16, )
.如果结束

需要用到两个编辑框

Answer 2

.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 a, 文本型
a ＝ 到文本 (HTTP读文件 (“http://” ＋ “论坛地址” ＋ “/member.php?mod=logging&action=login&loginfield=username&username=” ＋ 编辑框1.内容 ＋ “&password=” ＋ 编辑框2.内容 ＋ “&questionid=” ＋ 到文本 (question.现行选中项) ＋ “&answer=” ＋ answertext.内容 ＋ “&loginsubmit=yes”))
.如果 (寻找文本 (a, 编辑框1.内容, , 真) ＞ 0)
载入 (窗口1, , 假)
销毁 ()
.否则
信息框 (“用户名或者密码错误”, 16, )
.如果结束
' 请修改论坛地址，谢谢！本回答被提问者和网友采纳