post判断用户组来登录论坛

今非昔

post判断用户组来登录论坛


本人现在技术有限，望哪位高手帮忙修改下E代码，已打包上传。

在线求解！！！感谢！！

QQ：349744350

玩世不恭KISS

给最佳吧！！

fengfeng12321

什么也没看出来，，光给了账号密码，不知道什么论坛，没办法抓包，不知道哪里的问题。。。抱歉了

今非昔

fengfeng12321 发表于 2013-2-13 17:29
什么也没看出来，，光给了账号密码，不知道什么论坛，没办法抓包，不知道哪里的问题。。。抱歉了

晕，源码里有的啊。

finemi

加QQ 787450379

今非昔

[e]
.版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 POST地址, 文本型
.局部变量 POST数据, 文本型
.局部变量 返回信息, 文本型
.局部变量 结果内容, 文本型

POST地址 ＝ “http://hbxingyu.qj171.wshost.cc/ ... hash=LjFNR&inajax=1”
POST数据 ＝ “formhash=5cf11759&referer=http%3A%2F%2Fhbxingyu.qj171.wshost.cc%2Fbbs%2Fforum.php&loginfield=username&username=” ＋ 编码_URL编码_GBK (删首尾空 (编辑框1.内容)) ＋ “&password=” ＋ 删首尾空 (编辑框2.内容) ＋ “&questionid=0&answer=”
返回信息 ＝ 彗星HTTP读文本 (POST地址, “POST”, , , POST数据)
结果内容 ＝ 到文本 (网页_访问 (“http://hbxingyu.qj171.wshost.cc/ ... pacecp&ac=usergroup”))
.判断开始 (编辑框1.内容 ＝ “”)
状态条1.置文本 (1, “请输入正确的帐号！”)
.判断 (编辑框1.内容 ＝ “”)
状态条1.置文本 (1, “请输入正确的密码！”)
.判断 (寻找文本 (POST数据, “欢迎您回来”, , 假) ＞ 0)
编辑框3.内容 ＝ 文本_取出中间文本 (结果内容, “<h4>我的主用户组 - ”, “</h4></th>”)
.判断 (编辑框3.内容 ＝ “注册会员”)
状态条1.置文本 (1, “恭喜你登录成功！欢迎使用辅助软件！”)
载入 (窗口1, , 假)
销毁 ()
.默认
状态条1.置文本 (1, “抱歉！你的权限不够，无法登录！”)

.判断结束



[/e]

玩世不恭KISS

给个帐号呀

玩世不恭KISS

能登陆的 帐号   ！！

Bay

哇俄方的 发表于 2013-2-13 17:56
给最佳吧！！

我草，还要下载快压才能打开，聚啃

ljmst

这样也行。。。。。