dz论坛post的问题
我登录成功后点击转账 总是提示未登录 换了很多方法 换cookies 提示未登录要不就是提示“您当前的访问请求当中含有非法字符，已经被系统拒绝” 求大神帮忙！！！.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 cookies, 文本型
.程序集变量 idhash, 文本型
.程序集变量 formhash, 文本型
.程序集变量 _idhash, 文本型
.程序集变量 转账登录_cookies, 文本型
.程序集变量 欢迎_cookies, 文本型
.子程序 getcode
.局部变量 str, 文本型
.局部变量 setcookies, 文本型
.局部变量 update, 文本型
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://wuaiyiku.tk/lt/misc.php?mod=seccode&action=update&idhash=cSbICWuw&0.3062804259466836&modid=member::logging”, , , cookies, setcookies, , ))
cookies ＝ 网页_Cookie合并更新 (cookies, setcookies)
_idhash ＝ 文本_取出中间文本 (str, “updateseccode(\'”, “\'”)
update ＝ 文本_取出中间文本 (str, “&update=”, “&”)
调试输出 (_idhash, update, setcookies)
图片框1.图片 ＝ 网页_访问_对象 (“http://wuaiyiku.tk/lt/misc.php?mod=seccode&update=” ＋ update ＋ “&idhash=” ＋ _idhash, , , cookies, setcookies, )
cookies ＝ 网页_Cookie合并更新 (cookies, setcookies)
.子程序 login
.局部变量 str, 文本型
.局部变量 t, 文本型
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://wuaiyiku.tk/lt/member.php?mod=logging&action=login&loginsubmit=yes&loginhash=LyiNC&inajax=1”, 1, “formhash=” ＋ formhash ＋ “&referer=http%3A%2F%2Fwuaiyiku.tk%2Flt%2F.%2F&loginfield=username&username=” ＋ 编码_URL编码 (编辑框_user.内容, 真, 真) ＋ “&password=” ＋ 编辑框_pass.内容 ＋ “&questionid=0&answer=&seccodehash=” ＋ _idhash ＋ “&seccodemodid=member%3A%3Alogging&seccodeverify=” ＋ 编辑框_code.内容, cookies, 转账登录_cookies, , , ))
.判断开始 (寻找文本 (str, “欢迎您回来”, , 假) ＝ -1)
信息框 (“登录失败”, 0, , )
.默认
信息框 (“登录成功”, 0, , )
' 载入 (窗口1, , 假)
输出调试文本 (“----------------------------------”)
输出调试文本 (cookies)
输出调试文本 (转账登录_cookies)
输出调试文本 (“----------------------------------”)
t ＝ 转账登录_cookies
输出调试文本 (编码_Utf8到Ansi (网页_访问_对象 (“http://wuaiyiku.tk/lt/”, , , , 欢迎_cookies)))
' 欢迎_cookies ＝ 转账登录_cookies
转账登录_cookies ＝ “GEuf_2132_saltkey=” ＋ 文本_取出中间文本 (cookies, “GEuf_2132_saltkey=”, “;”) ＋ “;”
转账登录_cookies ＝ 转账登录_cookies ＋ “GEuf_2132_auth=” ＋ 文本_取出中间文本 (t, “GEuf_2132_auth=”, “;”) ＋ “;”
输出调试文本 (转账登录_cookies)
.判断结束
' 调试输出 (str)
.子程序 __启动窗口_创建完毕
.局部变量 str, 文本型
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://wuaiyiku.tk/lt/member.php?mod=logging&action=login”, , , , cookies, ))
' 置剪辑板文本 (str)
idhash ＝ 文本_取出中间文本 (str, “updateseccode('”, “'”, , )
formhash ＝ 文本_取出中间文本 (str, “formhash” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , )
调试输出 (idhash, cookies, formhash)
getcode ()
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
getcode ()
.子程序 _按钮_login_被单击
login ()
.子程序 _按钮1_被单击
退出 ()
.子程序 退出
.局部变量 str, 文本型
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://wuaiyiku.tk/lt/member.php?mod=logging&action=logout&formhash=” ＋ formhash, 1, “mod=logging&action=logout&formhash=” ＋ formhash, cookies, , , ))
' 调试输出 (str)
.子程序 _按钮2_被单击
.局部变量 str, 文本型
.局部变量 form, 文本型
.局部变量 局_formhash, 文本型
str ＝ 编码_Utf8到Ansi (网页_访问 (“http://wuaiyiku.tk/lt/home.php?mod=spacecp&ac=credit&op=transfer”, , , 转账登录_cookies))
' 输出调试文本 (form)
局_formhash ＝ 文本_取出中间文本 (str, “formhash” ＋ #引号 ＋ “ value=” ＋ #引号, #引号 ＋ “ />”)
输出调试文本 (局_formhash)
str ＝ 编码_Utf8到Ansi (网页_访问 (“http://wuaiyiku.tk/lt/home.php?mod=spacecp&ac=credit&op=transfer”, 1, “formhash=” ＋ formhash ＋ “&transfersubmit=true&handlekey=transfercredit&transferamount=” ＋ 编辑框1.内容 ＋ “&to=” ＋ 编码_URL编码 (“admin”, 真) ＋ “&password=” ＋ 编辑框_pass.内容 ＋ “&transfermessage=%E7%9C%8B%E4%BA%86xx%E8%A7%86%E9%A2%91&transfersubmit_btn=true”, 欢迎_cookies, , , ))
输出调试文本 (str)
.判断开始 (寻找文本 (str, “积分转帐成功”, , 假) ≠ -1)
信息框 (“转帐成功！”, 0, , )
.默认
.判断结束
有人不？？？ formhash 不对 揰掵佲 发表于 2017-8-10 22:08
formhash 不对
formhash 不是这样取的么？ 揰掵佲 发表于 2017-8-10 22:08
formhash 不对
可以帮我修改下么？ 没人了吗？
页:
[1]