[HTML] 纯文本查看 复制代码
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 登陆结果, 文本型
.局部变量 cookie1, 文本型
.局部变量 cookie2, 文本型
.局部变量 json, 类_json
cookie1 = cookie ()
调试输出 (cookie1)
json.解析 (信息 (cookie1), )
编辑框1.内容 = json.取通用属性 (“msg”, )
.子程序 cookie, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 局_返回cookie, 文本型
' http://mgpx.mgedu.com.cn/login/login.ajaxLogin.do
局_网址 = “http://mgpx.mgedu.com.cn/login/login.ajaxLogin.do”
局_方式 = 1
ADD_数据包.添加 (“corpCode”, “magang”, )
ADD_数据包.添加 (“loginName”, 编辑框_账号.内容, )
ADD_数据包.添加 (“password”, 编辑框_密码.内容, )
ADD_数据包.添加 (“continueLogin”, “true”, )
局_提交数据 = ADD_数据包.获取Post数据 ()
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.67 Safari/537.36 Edg/87.0.664.47”, )
局_提交协议头 = ADD_协议头.获取协议头数据 ()
局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , 局_返回cookie, 局_提交协议头, , , , , , , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回cookie)
.子程序 信息, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。
.参数 cookie, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交数据, 文本型
.局部变量 局_提交cookie, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
' http://mgpx.mgedu.com.cn/login/login.loginV4.do
局_网址 = “http://mgpx.mgedu.com.cn/login/login.loginV4.do”
局_方式 = 1
局_提交cookie = cookie
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.67 Safari/537.36 Edg/87.0.664.47”, )
局_提交协议头 = ADD_协议头.获取协议头数据 ()
局_结果 = 网页_访问_对象 (局_网址, 局_方式, , 局_提交cookie, , 局_提交协议头, , , , , , , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回)