劳烦指点下易语言POST操作问题

1024340498 · 发表于 2019-9-21 02:00:06

感谢大牛在百忙之中查阅到这份帖子我尝试易语言post数据到网站的过程中遇到一些问题劳烦大牛帮忙下万分感谢
post网址:https://cas.hzc.edu.cn/lyuapServ ... u.cn/login_cas.aspx

子程序名	返回值类型	公开	备注
验证码

图片框1.图片＝网页_访问_对象 (“https://cas.hzc.edu.cn/lyuapServer/captcha.jsp”, , , JSESSIONID)
cookie ＝文本_取右边 (JSESSIONID, “JSESSIONID=”)
web_data ＝网页_访问S (“https://cas.hzc.edu.cn/lyuapServ ... u.cn/login_cas.aspx”, , , , , “Cookie:” ＋ JSESSIONID ＋ #换行符＋ “Host: cas.hzc.edu.cn”)
lt ＝文本_取出中间文本 (web_data, #lt前, #lt后 )
execution ＝文本_取出中间文本 (web_data, #execution前, #execution后 )

子程序名	返回值类型	公开	备注
功能_网页访问	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。

id ＝编辑框1.内容
password ＝编辑框2.内容
captcha ＝编辑框3.内容
web_data ＝网页_访问S (“https://cas.hzc.edu.cn/lyuapServ ... u.cn/login_cas.aspx”, 1, “username=” ＋ id ＋ “&password=” ＋ password ＋ “&captcha=” ＋ captcha ＋ “&warn=true<=” ＋ lt ＋ “&execution=” ＋ execution ＋ “&_eventId=submit&submit=%E7%99%BB%E5%BD%95”, JSESSIONID, , “Host: cas.hzc.edu.cn”)

以上操作会返回新的cookie和重定向到一个新的网址CASPRIVACY=true; Path=/lyuapServer/; CASTGC=null

Troubled · 发表于 2019-9-21 02:00:07

窗口程序集名	保留	保留	备注
hzc
变量名	类型	数组	备注
http	WinHttpR
warn	文本型
lt	文本型
execution	文本型
eventId	文本型
submit	文本型
username	文本型
key	文本型

子程序名	返回值类型	公开	备注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备注
Init	逻辑型		初始化

http.Rest ()
http.Auto (真)
http.AutoCookies (1)
http.SetRedirect (假)
http.Open (“GET”, “https://cas.hzc.edu.cn/lyuapServer/login”)
http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)
http.Send ()
warn ＝文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “warn” ＋ #引号＋ “ value=” ＋ #引号, #引号 )
lt ＝文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “lt” ＋ #引号＋ “ value=” ＋ #引号, #引号 )
execution ＝文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “execution” ＋ #引号＋ “ value=” ＋ #引号, #引号 )
eventId ＝文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “_eventId” ＋ #引号＋ “ value=” ＋ #引号, #引号 )
submit ＝文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “submit” ＋ #引号＋ “ accesskey=” ＋ #引号＋ “l” ＋ #引号＋ “ value=” ＋ #引号, #引号 )
' 调试输出 (warn, lt, execution, eventId, submit)
返回 (warn ≠ “” 且 lt ≠ “” 且 execution ≠ “” 且 eventId ≠ “” 且 submit ≠ “”)

子程序名	返回值类型	公开	备注
Captcha	字节集		验证码

http.Open (“GET”, “https://cas.hzc.edu.cn/lyuapServer/captcha.jsp”)
http.SetAccept (“image/webp,image/apng,image/*,*/*;q=0.8”)
http.SetReferer (“https://cas.hzc.edu.cn/lyuapServer/login”)
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)
http.Send ()
返回 (http.GetResponseBody ())

子程序名	返回值类型	公开	备注
Login	逻辑型		登录
参数名	类型	参考	可空	数组	备注
user	文本型
pass	文本型
code	文本型
RetStr	文本型

变量名	类型	静态	数组	备注
Location	文本型

http.Open (“POST”, “https://cas.hzc.edu.cn/lyuapServer/login”)
http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)
http.SetContentType (“application/x-www-form-urlencoded”)
http.SetReferer (“https://cas.hzc.edu.cn/lyuapServer/login”)
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)
http.Send (“username=” ＋ user ＋ “&password=” ＋ pass ＋ “&captcha=” ＋ code ＋ “&warn=” ＋ warn ＋ “<=” ＋ lt ＋ “&execution=” ＋ execution ＋ “&_eventId=” ＋ eventId ＋ “&submit=” ＋ URLEncodeUtf8 (submit))
Location ＝ http.GetResponseLocation (真)

如果真 (Location ＝ “”)

RetStr ＝文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “”, “
”)

如果真 (RetStr ＝ “”)

RetStr ＝ “登录错误”

' 调试输出 (RetStr)

返回 (假)

判断循环首 (1 ＝ 1)

http.Open (“GET”, Location)

http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)

http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)

http.Send ()

Location ＝ http.GetResponseLocation (真)

如果真 (Location ＝ “” 且寻找文本 (http.GetResponseTextUtf8ToAnsi (), “修改密码”, , 假) ＝ -1)

RetStr ＝ “重定向地址获取失败”

返回 (假)

如果真 (寻找文本 (http.GetResponseTextUtf8ToAnsi (), “修改密码”, , 假) ≠ -1)

跳出循环 ()

TimeDelay (100) ' // 延迟

处理事件 ()

判断循环尾 ()
username ＝文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “username=”, “&key”)
key ＝文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “&key=”, “'>”)
' 调试输出 (username, key)
RetStr ＝ “登录成功”
返回 (username ≠ “” 且 key ≠ “”)

子程序名	返回值类型	公开	备注
XsuserInfo			信息
参数名	类型	参考	可空	数组	备注
学号	文本型
姓名	文本型
身份	文本型
性别	文本型
学院	文本型
上次登录时间	文本型
上次登录IP	文本型

变量名	类型	静态	数组	备注
Exp	Expressions
str	文本型

http.Open (“GET”, “http://portal.hzc.edu.cn/”)
http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)
http.Send ()
Exp.Establish (“上次登录：(.*?)[\s\S]*?上次登录IP：(.*?)”)
Exp.SearchAll (http.GetResponseTextUtf8ToAnsi ())
上次登录时间＝ Exp.GetSubMatchesText (1, 1)
上次登录IP ＝ Exp.GetSubMatchesText (1, 2)
' 调试输出 (上次登录时间, 上次登录IP)
http.Open (“GET”, “http://portal.hzc.edu.cn/user/xsuserinfo?username=” ＋ username ＋ “&key=” ＋ key)
http.SetAccept (“application/json, text/javascript, */*; q=0.01”)
http.SetReferer (“http://portal.hzc.edu.cn/”)
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)
http.SetXMLHttpRequest ()
http.Send ()
str ＝子文本替换 (http.GetResponseTextUtf8ToAnsi (), #引号, “”, , , 真)
' 调试输出 (str)
学号＝ username
姓名＝文本_取中间 (str, “username:”, “,”)
身份＝文本_取中间 (str, “personcard:”, “,”)
性别＝文本_取中间 (str, “sex:”, “,”)
学院＝文本_取中间 (str, “orgname:”, “}”)
' 调试输出 (学号, 姓名, 身份, 性别, 学院)

.版本 2<br />
<br />
.程序集 hzc<br />
.程序集变量 http, WinHttpR<br />
.程序集变量 warn, 文本型<br />
.程序集变量 lt, 文本型<br />
.程序集变量 execution, 文本型<br />
.程序集变量 eventId, 文本型<br />
.程序集变量 submit, 文本型<br />
.程序集变量 username, 文本型<br />
.程序集变量 key, 文本型<br />
<br />
.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br />
<br />
<br />
<br />
.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br />
<br />
<br />
<br />
.子程序 Init, 逻辑型, 公开, 初始化<br />
<br />
http.Rest ()<br />
http.Auto (真)<br />
http.AutoCookies (1)<br />
http.SetRedirect (假)<br />
<br />
http.Open (“GET”, “https://cas.hzc.edu.cn/lyuapServer/login”)<br />
http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)<br />
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)<br />
http.Send ()<br />
<br />
warn ＝ 文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “warn” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)<br />
lt ＝ 文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “lt” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)<br />
execution ＝ 文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “execution” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)<br />
eventId ＝ 文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “_eventId” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)<br />
submit ＝ 文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “submit” ＋ #引号 ＋ “ accesskey=” ＋ #引号 ＋ “l” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)<br />
' 调试输出 (warn, lt, execution, eventId, submit)<br />
返回 (warn ≠ “” 且 lt ≠ “” 且 execution ≠ “” 且 eventId ≠ “” 且 submit ≠ “”)<br />
<br />
.子程序 Captcha, 字节集, 公开, 验证码<br />
<br />
http.Open (“GET”, “https://cas.hzc.edu.cn/lyuapServer/captcha.jsp”)<br />
http.SetAccept (“image/webp,image/apng,image/*,*/*;q=0.8”)<br />
http.SetReferer (“https://cas.hzc.edu.cn/lyuapServer/login”)<br />
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)<br />
http.Send ()<br />
返回 (http.GetResponseBody ())<br />
<br />
.子程序 Login, 逻辑型, 公开, 登录<br />
.参数 user, 文本型<br />
.参数 pass, 文本型<br />
.参数 code, 文本型<br />
.参数 RetStr, 文本型, 参考 可空<br />
.局部变量 Location, 文本型<br />
<br />
http.Open (“POST”, “https://cas.hzc.edu.cn/lyuapServer/login”)<br />
http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)<br />
http.SetContentType (“application/x-www-form-urlencoded”)<br />
http.SetReferer (“https://cas.hzc.edu.cn/lyuapServer/login”)<br />
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)<br />
http.Send (“username=” ＋ user ＋ “&password=” ＋ pass ＋ “&captcha=” ＋ code ＋ “&warn=” ＋ warn ＋ “<=” ＋ lt ＋ “&execution=” ＋ execution ＋ “&_eventId=” ＋ eventId ＋ “&submit=” ＋ URLEncodeUtf8 (submit))<br />
<br />
Location ＝ http.GetResponseLocation (真)<br />
.如果真 (Location ＝ “”)<br />
    RetStr ＝ 文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “”, “<br />
”)<br />
    .如果真 (RetStr ＝ “”)<br />
        RetStr ＝ “登录错误”<br />
    .如果真结束<br />
    ' 调试输出 (RetStr)<br />
    返回 (假)<br />
.如果真结束<br />
<br />
.判断循环首 (1 ＝ 1)<br />
    http.Open (“GET”, Location)<br />
    http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)<br />
    http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)<br />
    http.Send ()<br />
    Location ＝ http.GetResponseLocation (真)<br />
    .如果真 (Location ＝ “” 且 寻找文本 (http.GetResponseTextUtf8ToAnsi (), “修改密码”, , 假) ＝ -1)<br />
        RetStr ＝ “重定向地址获取失败”<br />
        返回 (假)<br />
    .如果真结束<br />
    .如果真 (寻找文本 (http.GetResponseTextUtf8ToAnsi (), “修改密码”, , 假) ≠ -1)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    TimeDelay (100)  ' //  延迟<br />
    处理事件 ()<br />
.判断循环尾 ()<br />
<br />
username ＝ 文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “username=”, “&key”)<br />
key ＝ 文本_取中间 (http.GetResponseTextUtf8ToAnsi (), “&key=”, “'>”)<br />
' 调试输出 (username, key)<br />
RetStr ＝ “登录成功”<br />
返回 (username ≠ “” 且 key ≠ “”)<br />
<br />
.子程序 XsuserInfo, , 公开, 信息<br />
.参数 学号, 文本型, 参考 可空<br />
.参数 姓名, 文本型, 参考 可空<br />
.参数 身份, 文本型, 参考 可空<br />
.参数 性别, 文本型, 参考 可空<br />
.参数 学院, 文本型, 参考 可空<br />
.参数 上次登录时间, 文本型, 参考 可空<br />
.参数 上次登录IP, 文本型, 参考 可空<br />
.局部变量 Exp, Expressions<br />
.局部变量 str, 文本型<br />
<br />
http.Open (“GET”, “http://portal.hzc.edu.cn/”)<br />
http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)<br />
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)<br />
http.Send ()<br />
<br />
Exp.Establish (“上次登录：(.*?)[\s\S]*?上次登录IP：(.*?)”)<br />
Exp.SearchAll (http.GetResponseTextUtf8ToAnsi ())<br />
上次登录时间 ＝ Exp.GetSubMatchesText (1, 1)<br />
上次登录IP ＝ Exp.GetSubMatchesText (1, 2)<br />
' 调试输出 (上次登录时间, 上次登录IP)<br />
<br />
http.Open (“GET”, “http://portal.hzc.edu.cn/user/xsuserinfo?username=” ＋ username ＋ “&key=” ＋ key)<br />
http.SetAccept (“application/json, text/javascript, */*; q=0.01”)<br />
http.SetReferer (“http://portal.hzc.edu.cn/”)<br />
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)<br />
http.SetXMLHttpRequest ()<br />
http.Send ()<br />
str ＝ 子文本替换 (http.GetResponseTextUtf8ToAnsi (), #引号, “”, , , 真)<br />
' 调试输出 (str)<br />
<br />
学号 ＝ username<br />
姓名 ＝ 文本_取中间 (str, “username:”, “,”)<br />
身份 ＝ 文本_取中间 (str, “personcard:”, “,”)<br />
性别 ＝ 文本_取中间 (str, “sex:”, “,”)<br />
学院 ＝ 文本_取中间 (str, “orgname:”, “}”)<br />
' 调试输出 (学号, 姓名, 身份, 性别, 学院)

窗口程序集名	保留	保留	备注
窗口程序集_窗口1
变量名	类型	数组	备注
hzc	hzc

子程序名	返回值类型	公开	备注
_图片框1_鼠标左键被放开	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

判断 (取反 (hzc.Init ()))

信息框 (“初始化失败!”, 0, , )

图片框1.图片＝ hzc.Captcha ()

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

变量名	类型	静态	数组	备注
bool	逻辑型
retStr	文本型
学号	文本型
姓名	文本型
身份	文本型
性别	文本型
学院	文本型
上次登录时间	文本型
上次登录IP	文本型

bool ＝ hzc.Login (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, retStr)
信息框 (retStr, 0, , )

如果真 (bool)

hzc.XsuserInfo (学号, 姓名, 身份, 性别, 学院, 上次登录时间, 上次登录IP)

retStr ＝ “学号：” ＋学号

retStr ＝ retStr ＋ #换行符＋ “姓名：” ＋姓名

retStr ＝ retStr ＋ #换行符＋ “身份：” ＋身份

retStr ＝ retStr ＋ #换行符＋ “性别：” ＋性别

retStr ＝ retStr ＋ #换行符＋ “学院：” ＋学院

retStr ＝ retStr ＋ #换行符＋ “上次登录时间：” ＋上次登录时间

retStr ＝ retStr ＋ #换行符＋ “上次登录IP：” ＋上次登录IP

信息框 (retStr, 0, , )

Dome.zip (82.69 KB, 下载次数: 7)

1024340498 · 发表于 2019-9-21 02:02:26

取验证码
https://cas.hzc.edu.cn/lyuapServer/captcha.jsp //取验证码cookie 字节集文件 JSESSIONID是获取验证码时得到的cookie

取网页源码
https://cas.hzc.edu.cn/lyuapServer/login?service=http://t.hzc.edu.cn/login_cas.aspx //置cookie:JSESSIONID Host:t.hzc.edu.cn
post提交
https://cas.hzc.edu.cn/lyuapServer/login?service=http://t.hzc.edu.cn/login_cas.aspx //置入cookie:JSESSIONID Host:t.hzc.edu.cn
提交参数
username=学号
password=密码
captcha=验证码
warn=true
lt
execution
_eventId=submit
submit=登录 //建议url编码再post

1024340498 · 发表于 2019-9-21 02:02:54

将取到的页面源码用正则取出 lt、execution的value

1024340498 · 发表于 2019-9-21 02:03:38

post操作后会返回新的cookie和协yi头
cookie：CASPRIVACY=true; Path=/lyuapServer/; CASTGC=null //CASTGC一般为.org结尾的文本
协yi头: 取Location //Location一般为 : http://t.hzc.edu.cn/login_cas.aspx?ticket=ST-随机字符串.example.org

1024340498 · 发表于 2019-9-21 02:04:58

cookie:ASP.NET_SessionId; route
这个才是最要命的不访问 http://t.hzc.edu.cn/login_cas.aspx?ticket=ST-随机字符串.example.org 这个链接就得不到cookie 访问了就给你拒接验证

问题应该就出在这里

yang670555064 · 发表于 2019-9-21 02:46:38

有点乱, 直接发网站链接好点

		自动登录	找回密码
密码			注册

[已解决] 劳烦指点下易语言POST操作问题

最佳答案

评分

浏览过的版块