|
楼主 |
发表于 2020-6-30 23:55:33
|
显示全部楼层
福建省三明市
- .版本 2
- .支持库 spec
- .子程序 引导页访问, 文本型
- .局部变量 局_网址, 文本型
- .局部变量 局_方式, 整数型
- .局部变量 局_提交数据, 文本型
- .局部变量 ADD_协议头, 类_POST数据类
- .局部变量 局_提交协议头, 文本型
- .局部变量 局_是否重定向, 逻辑型
- .局部变量 局_结果, 字节集
- .局部变量 局_返回, 文本型
- 局_网址 = 编辑框1.内容
- 局_方式 = 1
- 局_提交数据 = “wd=” + 编辑框2.内容
- ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.116 Safari/537.36”)
- 局_提交协议头 = ADD_协议头.获取协议头数据 ()
- 局_是否重定向 = 真
- 局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , 局_是否重定向, , , , , , , , )
- 局_返回 = 到文本 (编码_编码转换对象 (局_结果))
- 局_返回 = 文本_取出中间文本 (局_返回, “<iframe src=” + #引号, #引号, , )
- 返回 (局_返回)
- .子程序 登入账号, 逻辑型
- .局部变量 局_网址, 文本型
- .局部变量 局_方式, 整数型
- .局部变量 局_提交数据, 文本型
- .局部变量 ADD_协议头, 类_POST数据类
- .局部变量 局_提交协议头, 文本型
- .局部变量 局_是否重定向, 逻辑型
- .局部变量 局_结果, 字节集
- .局部变量 局_返回, 文本型
- 局_网址 = 引导页访问 ()
- 局_方式 = 1
- 局_提交数据 = “txt_U_name=” + 编辑框_用户名.内容 + “&txt_U_Password=” + 编辑框_密码.内容 + “&txt_validate=” + 编辑框_验证码.内容
- ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.116 Safari/537.36”)
- 局_提交协议头 = ADD_协议头.获取协议头数据 ()
- 局_是否重定向 = 真
- 局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , 局_是否重定向, , , , , , , , , , )
- 局_返回 = 到文本 (编码_编码转换对象 (局_结果))
- 调试输出 (局_返回)
- 返回 (真)
- .子程序 验证码, 字节集
- .局部变量 局_网址, 文本型
- .局部变量 局_方式, 整数型
- .局部变量 局_提交数据, 文本型
- .局部变量 验证码图, 字节集
- 局_网址 = “https://52j-dgw.yn523.com/cp05_05_mb/checknum.aspx?ts=” + 时间_取现行时间戳 ()
- 局_方式 = 0
- 验证码图 = 网页_访问_对象 (局_网址, 局_方式, , Cookies, )
- 返回 (验证码图)
复制代码 |
|