易语言 json 的post提交问题

y252999822

POST http://www.sicent.com/WebService.asmx/Login

Referer: http://www.sicent.com/SC_UserLogin.aspx

{userName:'aqxh-1902',pwd:'123456',checkNum:'1720'}

协议头部

Host: sicent.comUser-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:31.0) Gecko/20100101 Firefox/31.0Accept: application/jsonAccept-Language: zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3Accept-Encoding: gzip, deflateContent-Type: application/json; charset=UTF-8Pragma: no-cacheCache-Control: no-cacheReferer: https://sicent.com /registerContent-Length: 42Cookie: __utma=62339364.2128919624.1411957755.1411957755.1411957755.1; __utmb=62339364.1.10.1411957755; __utmc=62339364; __utmz=62339364.1411957755.1.1.utmcsr=baidu|utmccn=(organic)|utmcmd=organic|utmctr=%E6%98%93%E4%BF%A1; JSESSIONID=AC0D59DE08FF3E2323E76D30BB3459D5.yx114.popo.infra.mail-8114; __gsid__=57A669E00EBA2BCF5C9D1D0601527AB2.yx114.popo.infra.mail-8114Connection: keep-alive

用精易模块 如何提交，各位大神帮帮忙

寻找星空

具体请查看源码附件，POST登录成功的返回文本还有一个POST请自行理解和判断是否有作用(手动登录网页会默认POST)。
万象post.zip (154.37 KB, 下载次数: 609)

2014-9-29 11:44 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

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

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

POST提交 ()

子程序名	返回值类型	公开	备 注
POST提交

变量名	类 型	静态	数组	备 注
局_提交地址	文本型
局_提交数据	文本型
局_返回文本	文本型
提交验证码	文本型
提交协议	文本型
返回协议	文本型

图片框1.图片 ＝ 网页_访问 (“http://www1.sicent.com/handler/randomNum.ashx”)
判断循环首 (取文本长度 (编辑框1.内容) ≠ 4)
处理事件 ()
判断循环尾 ()
提交验证码 ＝ 编辑框1.内容
局_提交地址 ＝ “http://www1.sicent.com/WebService.asmx/Login”
局_提交数据 ＝ “{userName:'aqxh-1902',pwd:'123456',checkNum:'” ＋ 提交验证码 ＋ “'}”
提交协议 ＝ “Referer: http://www1.sicent.com/SC_UserLogin.aspx” ＋ #换行符 ＋ “Accept: application/json, text/javascript, */*; q=0.01” ＋ #换行符 ＋ “Content-Type: application/json” ＋ #换行符
局_返回文本 ＝ 到文本 (网页_访问 (局_提交地址, 1, 局_提交数据, , , 提交协议, 返回协议, ))
输出调试文本 (局_返回文本)  ' 如果前面2个没判断成功，把返回文件输出来
' {"d":"0"} = 登录成功？还是？
' {"d":"2"} = 验证码错误
' {"d":"3"} = 用户帐号或密码错误
' 调试输出 (返回协议)
局_返回文本 ＝ 编码_Utf8到Ansi (网页_访问 (“http://www1.sicent.com/uCenter.aspx”))  ' 这里有个POST.具体看常量2，自行理解、
判断 (寻找文本 (局_返回文本, “AQXH-1902”, , 假) ≠ -1 且 寻找文本 (局_返回文本, “退出登录”, , 假) ≠ -1)
调试输出 (“登录成功”)
调试输出 (“登录失败”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> POST提交 ()<br /> <br /> .子程序 POST提交<br /> .局部变量 局_提交地址, 文本型<br /> .局部变量 局_提交数据, 文本型<br /> .局部变量 局_返回文本, 文本型<br /> .局部变量 提交验证码, 文本型<br /> .局部变量 提交协议, 文本型<br /> .局部变量 返回协议, 文本型<br /> <br /> 图片框1.图片 ＝ 网页_访问 (“http://www1.sicent.com/handler/randomNum.ashx”)<br /> .判断循环首 (取文本长度 (编辑框1.内容) ≠ 4)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 提交验证码 ＝ 编辑框1.内容<br /> 局_提交地址 ＝ “http://www1.sicent.com/WebService.asmx/Login”<br /> 局_提交数据 ＝ “{userName:'aqxh-1902',pwd:'123456',checkNum:'” ＋ 提交验证码 ＋ “'}”<br /> 提交协议 ＝ “Referer: http://www1.sicent.com/SC_UserLogin.aspx” ＋ #换行符 ＋ “Accept: application/json, text/javascript, */*; q=0.01” ＋ #换行符 ＋ “Content-Type: application/json” ＋ #换行符<br /> 局_返回文本 ＝ 到文本 (网页_访问 (局_提交地址, 1, 局_提交数据, , , 提交协议, 返回协议, ))<br /> 输出调试文本 (局_返回文本)  ' 如果前面2个没判断成功，把返回文件输出来<br /> ' {"d":"0"} = 登录成功？还是？<br /> ' {"d":"2"} = 验证码错误<br /> ' {"d":"3"} = 用户帐号或密码错误<br /> ' 调试输出 (返回协议)<br /> 局_返回文本 ＝ 编码_Utf8到Ansi (网页_访问 (“http://www1.sicent.com/uCenter.aspx”))  ' 这里有个POST.具体看常量2，自行理解、<br /> .判断开始 (寻找文本 (局_返回文本, “AQXH-1902”, , 假) ≠ -1 且 寻找文本 (局_返回文本, “退出登录”, , 假) ≠ -1)<br />     调试输出 (“登录成功”)<br /> .默认<br />     调试输出 (“登录失败”)<br /> .判断结束

具体请查看源码附件，POST登录成功的返回文本还有一个POST请自行理解和判断是否有作用(手动登录网页会默认POST)。





补充内容 (2014-9-29 11:45):
{"d":"0"}，经过抓包判断确认是登录成功的返回值。

屎加豆

直接编码后提交啊。。。。。

y252999822

米和饭 发表于 2014-9-29 11:25
直接编码后提交啊。。。。。

怎么编码后提交？

y252999822

米和饭 发表于 2014-9-29 11:25
直接编码后提交啊。。。。。

可以麻烦写个例子么？谢谢！

Hwak

把你需要提交的数据utf8编码后提交