PPTV POST登录源码

.版本 2
.支持库 script
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 cookies, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 url, 文本型

url ＝ “http://user.vas.pptv.com/api/vcode.php?type=login&v=”
图片框1.图片 ＝ 网页_访问_对象 (url, , , cookies)

.子程序 _按钮1_被单击
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 str, 文本型
.局部变量 use, 文本型
.局部变量 pwd, 文本型
.局部变量 code, 文本型
.局部变量 params, 文本型
.局部变量 time, 文本型

use ＝ “12312312”
pwd ＝ “123123123”
code ＝ 编辑框1.内容
time ＝ 时间_取现行时间戳 ()
url ＝ “http://user.vas.pptv.com/api/vcode.php?type=login&action=check&vcode=” ＋ code ＋ “&_=” ＋ time ＋ “&cb=jsonp2”
网页_访问_对象 (url, , , cookies)
data ＝ “type=ajax&from=wap&username=” ＋ use ＋ “&password=” ＋ pwd ＋ “&vcode=” ＋ code ＋ “&appplt=wap&appid=vas&channel=208000201037&sceneFlag=2”
脚本组件1.执行 (#js)
params ＝ 脚本组件1.运行 (“rsa”, 编码_URL编码 (data, 真, 真), “ppvaslogin”)
url ＝ “http://user.vas.pptv.com/api/login.php?params=” ＋ params ＋ “&_=” ＋ time ＋ “&cb=jsonp3”
str ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (url, , , cookies)))
调试输出 (str)

@yunying