易语言-post登陆百度

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

.程序集 窗口程序集1
.程序集变量 程序集_验证码, 文本型
.程序集变量 代码codeString, 文本型
.程序集变量 codestring, 文本型

.子程序 _按钮1_被单击
.局部变量 登陆账号地址, 文本型
.局部变量 POST_数据, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 类_json, 类_json
.局部变量 预_解析json内容, 文本型
.局部变量 解析状态, 逻辑型
.局部变量 返回内容, 文本型
.局部变量 登陆账号, 文本型
.局部变量 登陆密码, 文本型
.局部变量 验证码, 文本型

登陆账号地址 ＝ “https://passport.baidu.com/v2/api/?login”
登陆账号 ＝ “百度登陆账号”
登陆密码 ＝ “百度登陆密码”
验证码 ＝ “”

' POST_数据 ＝ “staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=utf-8&token=2690561bdc1b6f1d882d7a17e0672a1b&tpl=mn&apiver=v3&tt=1388841703734&codestring=&safeflg=0&u=http%3A%2F%2Fwww.baidu.com%2F&isPhone=false&quick_user=0&loginmerge=true&logintype=dialogLogin&splogin=newuser&username=百度登陆账号&password=百度登陆密码&verifycode=&mem_pass=on&ppui_logintime=41109&callback=parent.bd__pcbs__nsjheu”
POST_数据 ＝ “ppui_logintime=” ＋ 子程序_取随机数 (5) ＋ “&charset=utf-8&codestring=” ＋ 程序集_验证码 ＋ “&token=” ＋ 子程序_标识 () ＋ “&isPhone=false&index=0&u=&safeflg=0&staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fjump.html&loginType=1&tpl=mn&callback=parent.bdPass.api.login._postCallback&username=” ＋ 编码_URL编码 (编码_gb2312到utf8 (登陆账号)) ＋ “&password=” ＋ 登陆密码 ＋ “&verifycode=” ＋ 验证码 ＋ “&mem_pass=on”
返回内容 ＝ 到文本 (网页_访问 (登陆账号地址, 1, , , 返回Cookies, , 返回协议头, , 到字节集 (POST_数据), , ))
调试输出 (返回内容)
' 执行类_取百度token ()
' 调试输出 (子程序_标识 ())

.子程序 执行类_取百度token, 文本型
.局部变量 登陆账号地址, 文本型
.局部变量 预_解析json内容, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 解析状态, 逻辑型
.局部变量 类_json, 类_json
.局部变量 百度token, 文本型

' 登陆账号地址 ＝ “https://passport.baidu.com/v2/api/?login&class=login&tpl=mn&tangram=true”
登陆账号地址 ＝ “https://passport.baidu.com/v2/api/?login&tpl=mn”
预_解析json内容 ＝ 到文本 (网页_访问 (登陆账号地址, 0, , , 返回Cookies, , 返回协议头, , , , ))
' 调试输出 (预_解析json内容)
百度token ＝ 文本_取出中间文本 (预_解析json内容, “param1_contex : ” ＋ #引号 ＋ “”, “” ＋ #引号 ＋ “,”)
' 调试输出 (百度token)

返回 (百度token)

.子程序 子程序_标识, 文本型
.局部变量 局_源码, 文本型
.局部变量 局_标识, 文本型

局_源码 ＝ 到文本 (HTTP读文件 (“https://passport.baidu.com/v2/api/?getapi&class=login&tpl=mn&tangram=true”))
局_标识 ＝ 文本_取出中间文本 (局_源码, “login_token='”, “';”)
返回 (局_标识)

 

.子程序 子程序_取随机数, 文本型
.参数 位数, 整数型
.局部变量 局_计次, 整数型
.局部变量 局_输出, 文本型

置随机数种子 ()
.计次循环首 (位数, 局_计次)
    局_输出 ＝ 局_输出 ＋ 到文本 (取随机数 (0, 9))
.计次循环尾 ()
返回 (局_输出)

 

.子程序 子程序_取验证码
.局部变量 局_源码, 文本型

局_源码 ＝ 到文本 (HTTP读文件 (“https://passport.baidu.com/v2/api/?logincheck&callback=bdPass.api.login._needCodestringCheckCallback&tpl=mn&charset=utf-8&index=0&username=” ＋ 编码_URL编码 (编码_gb2312到utf8 (“百度登陆账号”)) ＋ “&isphone=false&time=” ＋ 时间_取现行时间戳 ()))

程序集_验证码 ＝ 文本_取出中间文本 (局_源码, #常量1, #常量2)
调试输出 (程序集_验证码)
图片框_验证码.图片 ＝ HTTP读文件 (“https://passport.baidu.com/cgi-bin/genimage?” ＋ 程序集_验证码 ＋ “&v=” ＋ 时间_取现行时间戳 ())

 

.子程序 子程序_取验证码new
.局部变量 局_源码, 文本型
.局部变量 地址, 文本型
.局部变量 返回文本, 文本型

' POST /v2/api/?login HTTP/1.1
' Accept: image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, */*
' Referer: http://www.baidu.com/
' Accept-Language: zh-cn
' User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; BTRS101170; EmbeddedWB 14.52 from: http://www.bsalsa.com/ EmbeddedWB 14.52; .NET CLR 2.0.50727)
' Content-Type: application/x-www-form-urlencoded
' Accept-Encoding: gzip, deflate
' Host: passport.baidu.com
' Content-Length: 1071
' Connection: Keep-Alive
' Cache-Control: no-cache
' Cookie: HOSUPPORT=1; UBI=fi_PncwhpxZ%7ETaNj29wcABaS5VlI33JM26kGraQxnBYhr4fZRdhmt5w4sGJKSFYBmuSX5m1tr2%7E%7EXAHxtDtkHQoD31Lh3JAJpAmfOrDHGr1b3ZutrarmDCeaXjnVTdX6Arqh-UV6qR6VOwVnz3wSr7Qq7kytlzxyTgUrfjU6EhfT7MbNuLgyvBrduakMmEynUStgqxXa0OiT19%7E-Vk%7E9TGhy9t5kg__; USERNAMETYPE=2; NEWUSER=1; Hm_lvt_90056b3f84f90da57dc0f40150f005d5=1389668049,1389668106,1389668212,1389668453; SAVEUSERID=33059145771bb275c004956099b60e6ba2a511f58d83; HISTORY=99c1ea368e48239562ea1c997556182989455ded688c69a8b243; H_PS_PSSID=4460_1451_4263_4989_4897_4759_4882_4678_4772; BAIDUID=05DCAA38FA6A7EB45C927CB559BF7DC8:FG=1; cflag=65535:1; locale=zh; _BDSC=1

' staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=utf-8&token=fdc5ef8d98648a6850c7ea4d42ddbcff&tpl=mn&apiver=v3&tt=1389705118468&codestring=captchaservice35633730486e5263634a4a4c55484b567458356379594c345a696666325576366e684a6a3968326b6b6d772f6d664b597a4a2f446a594977482f52644270446a726b5163332f4a322f47795975637249614a5a446d574259776d50717447345362507831594967517136544477333937394350525a5767465865333769435a325578654c637559436435546e4d472b5670362f575252615265496e38584c746e44725043494b534d424d6566797734563772636456306a486b432f632b6f7266325250726a6848794d716a38646c724942786c50313137384a78464f32385772747736585633374e356732714b384f4241374d3946796570512f75587a66653573497034756769316e55684578704833457a536f617732733832446538464b7a39575162754c53425155395a6d6a57613944597037336a356f38364c706f4841&safeflg=0&u=http%3A%2F%2Fwww.baidu.com%2F&isPhone=false&quick_user=0&loginmerge=true&logintype=dialogLogin&splogin=newuser&username=百度登陆账号&password=百度登陆密码&verifycode=ffff&mem_pass=on&ppui_logintime=3653468&callback=parent.bd__pcbs__fyaixw

' 局_源码 ＝ 到文本 (HTTP读文件 (“https://passport.baidu.com/v2/api/?logincheck&callback=bdPass.api.login._needCodestringCheckCallback&tpl=mn&charset=utf-8&index=0&username=” ＋ 编码_URL编码 (编码_gb2312到utf8 (“百度登陆账号”)) ＋ “&