易语言-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 (“百度登陆账号”)) ＋ “&isphone=false&time=” ＋ 时间_取现行时间戳 ()))

' 程序集_验证码 ＝ 文本_取出中间文本 (局_源码, #常量1, #常量2)
调试输出 (程序集_验证码)
' 图片框_验证码.图片 ＝ HTTP读文件 (“https://passport.baidu.com/cgi-bin/genimage?” ＋ 程序集_验证码 ＋ “&v=” ＋ 时间_取现行时间戳 ())
地址 ＝ “https://passport.baidu.com/v2/api/?logincheck&username=” ＋ “百度登陆账号”
返回文本 ＝ 到文本 (HTTP读文件 (地址))
调试输出 (返回文本)
代码codeString ＝ 文本_取出中间文本 (返回文本, #引号 ＋ “codestring” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”)
调试输出 (代码codeString)
图片框_验证码.图片 ＝ HTTP读文件 (“https://passport.baidu.com/cgi-bin/genimage?” ＋ 代码codeString)

.子程序 _按钮2_被单击
.局部变量 访问地址, 文本型

访问地址 ＝ “http://passport.baidu.com/center”
调试输出 (到文本 (编码_Utf8到Ansi (HTTP读文件 (访问地址))))

.子程序 _按钮3_被单击
.局部变量 访问地址, 文本型
.局部变量 POST数据, 文本型
.局部变量 返回内容, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型

访问地址 ＝ “https://passport.baidu.com/v2/?ucenterset”
POST数据 ＝ “jump_url=http%3A%2F%2Fwww.baidu.com%2Fp%2Fsetting%2Fprofile%2Fproxy&bdstoken=” ＋ 取_个人设置_BDSTOKEN () ＋ “&tpl=pcs&ie=utf8&passport_userdetail=%E5%93%88%E5%93%88%E5%93%88bddd&passport_reside_else=&passport_reside_district=%E9%B9%BF%E5%AF%A8%E5%8E%BF&passport_reside_city=%E6%9F%B3%E5%B7%9E&passport_reside_province=%E5%B9%BF%E8%A5%BF&passport_hometown_else=&passport_hometown_district=%E9%B9%BF%E5%AF%A8%E5%8E%BF&passport_hometown_city=%E6%9F%B3%E5%B7%9E&passport_hometown_province=%E5%B9%BF%E8%A5%BF&passport_blood=3&passport_birthday_day=12&passport_birthday_month=12&passport_birthday_year=1989&passport_sex=2”
返回内容 ＝ 到文本 (网页_访问 (访问地址, 1, , , 返回Cookies, , 返回协议头, , 到字节集 (POST数据), , ))
调试输出 (返回内容)

.子程序 _按钮4_被单击

调试输出 (执行类_取百度token ())
调试输出 (子程序_标识 ())

 

.子程序 取_bdstoken, 文本型
.局部变量 取_bdstoken_地址, 文本型
.局部变量 bdstoken, 文本型
.局部变量 返回内容, 文本型
.局部变量 访问地址, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 POST数据, 文本型
.局部变量 BDSTOKEN长度, 整数型

访问地址 ＝ “http://hi.baidu.com/home”
返回内容 ＝ 编码_Utf8到Ansi (网页_访问 (访问地址, 0, , , 返回Cookies, , 返回协议头, , , , ))
BDSTOKEN长度 ＝ 取文本长度 (“b9bef7a9e671c81e2a5bedf27fd430d6”)
bdstoken ＝ 文本_取出中间文本 (返回内容, “bdstoken=” ＋ #引号, #引号 ＋ “;”)
' 调试输出 (返回内容)
返回 (bdstoken)

.子程序 _按钮5_被单击

调试输出 (取_bdstoken ())

.子程序 _按钮6_被单击

调试输出 (取_个人设置_BDSTOKEN ())

.子程序 取_个人设置_BDSTOKEN, 文本型
.局部变量 取_bdstoken_地址, 文本型
.局部变量 bdstoken, 文本型
.局部变量 返回内容, 文本型
.局部变量 访问地址, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 POST数据, 文本型
.局部变量 BDSTOKEN长度, 整数型

访问地址 ＝ “http://www.baidu.com/p/setting/profile/basic”
返回内容 ＝ 编码_Utf8到Ansi (网页_访问 (访问地址, 0, , , 返回Cookies, , 返回协议头, , , , ))
' BDSTOKEN长度 ＝ 取文本长度 (“b9bef7a9e671c81e2a5bedf27fd430d6”)
' ""token": 'a1d3804d9557bb6f69e9f68166683ea9',"
bdstoken ＝ 文本_取出中间文本 (返回内容, #引号 ＋ “token” ＋ #引号 ＋ “: '”, “',”)
' 调试输出 (返回内容)
返回 (bdstoken)

.子程序 _图片框_验证码_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

取百度主页登陆的验证码 ()

.子程序 _按钮7_被单击

百度主页登陆 ()

.子程序 百度主页登陆
.局部变量 返回内容, 文本型
.局部变量 登陆账号地址, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 POST_数据, 文本型
.局部变量 错误编号, 文本型
.局部变量 v3Jump, 文本型

' POST /v2/api/?login HTTP/1.1
' Accept: image/gif, image/x-xbitmap, image/jpeg, 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
' Content-Type: application/x-www-form-urlencoded
' Accept-Encoding: gzip, deflate
' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; BTRS101170; EmbeddedWB 14.52 from: http://www.bsalsa.com/ EmbeddedWB 14.52; .NET CLR 2.0.50727)
' Host: passport.baidu.com
' Content-Length: 411
' Connection: Keep-Alive
' Cache-Control: no-cache
' Cookie: HOSUPPORT=1; UBI=fi_PncwhpxZ%7ETaoan%7E%7EAM9d2KSTU0KR1IotVsIjSEE82hmN6BQgm8ntm91-Ig66wzUEMkY6qV0PyfxdMWwwA4AuQYiuFzceYZw0ro%7ElGmuOBK7seDqr4SMCi94e5NCJxKbjwtGyRkRKOgLgJb0_; USERNAMETYPE=1; NEWUSER=1; Hm_lvt_90056b3f84f90da57dc0f40150f005d5=1389192520,1389193125,1389232700,1389416724; Hm_lpvt_90056b3f84f90da57dc0f40150f005d5=1389416724; BAIDUID=218CB8D1D9D05C3E175FBDF54848B9C5:FG=1; cflag=65535%3A1; H_PS_PSSID=4847_4845_4787_1432_4262_4988_4894_4760_4882_4677; BDRCVFR[feWj1Vr5u3D]=I67x6TjHwwYf0

' staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=utf-8&token=d80c12054e49fb3bb07326b0ab3e288a&tpl=mn&apiver=v3&tt=1389418930140&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=20359&callback=parent.bd__pcbs__nvqgw1

登陆账号地址 ＝ “https://passport.baidu.com/v2/api/?login”

 

' POST_数据 ＝ “staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=utf-8&token=” ＋ 取百度主页登陆的token () ＋ “&tpl=mn&apiver=v3&tt=” ＋ 时间_取现行时间戳 () ＋ “&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=4528” ＋ 到文本 (取随机数 (0, 9)) ＋ “&callback=parent.bd__pcbs__nvqgw1”

' 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: 418
' Connection: Keep-Alive
' Cache-Control: no-cache
' Cookie: HOSUPPORT=1; UBI=fi_PncwhpxZ%7ETaMM3OGoBBx73QkwAUZ1SH%7EQRrNB1gcUtMwcW5U0uKxX50T4JcxesLZfK5yVXe40qHsYBrrsfv1CYKroONpyFOsIoB4R%7EmFryEH70eJk4%7E8d6R23EvpDQ8TYdPqS03GNFS16aZi7tEbtIovBWUmQaOS3jLKOEpPB8j-6yDZW6c3aGosz7kS9nNhnvZ-ruoXsIZWSmlP6X9UZlPtsw__; 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=1389700762703&codestring=&safeflg=0&u=http%3A%2F%2Fwww.baidu.com%2F&isPhone=false&quick_user=0&loginmerge=true&logintype=dialogLogin&splogin=newuser&username=nhgfjs432d@163.com&password=a111111&verifycode=&mem_pass=on&ppui_logintime=28219&callback=parent.bd__pcbs__uga19m

' POST_数据 ＝ “staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=utf-8&token=” ＋ 取百度主页登陆的token () ＋ “&tpl=mn&apiver=v3&tt=” ＋ 时间_取现行时间戳 () ＋ “&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=4528” ＋ 到文本 (取随机数 (0, 9)) ＋ “&callback=parent.bd__pcbs__uga19m”

' err
' POST_数据 ＝ “staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=utf-8&token=” ＋ 取百度主页登陆的token () ＋ “&tpl=mn&apiver=v3&tt=” ＋ 时间_取现行时间戳 () ＋ “&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=4528” ＋ 到文本 (取随机数 (0, 9)) ＋ “&verifycode=” ＋ 编辑框2.内容 ＋ “&codeString=” ＋ codestring

' ok
' POST_数据 ＝ “staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=utf-8&token=” ＋ 取百度主页登陆的token () ＋ “&tpl=mn&apiver=v3&tt=” ＋ 时间_取现行时间戳 () ＋ “&codestring=” ＋ codestring ＋ “&safeflg=0&u=http%3A%2F%2Fwww.baidu.com%2F&isPhone=false&quick_user=0&loginmerge=true&logintype=dialogLogin&splogin=newuser&username=百度登陆账号&password=百度登陆密码&mem_pass=on&ppui_logintime=4528” ＋ 到文本 (取随机数 (0, 9)) ＋ “&verifycode=” ＋ 到文本 (编辑框2.内容)

POST_数据 ＝ “staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=utf-8&token=” ＋ 取百度主页登陆的token () ＋ “&tpl=mn&apiver=v3&tt=” ＋ 时间_取现行时间戳 () ＋ “&codestring=” ＋ codestring ＋ “&safeflg=0&u=http%3A%2F%2Fwww.baidu.com%2F&isPhone=false&quick_user=0&loginmerge=true&logintype=dialogLogin&splogin=newuser&username=百度登陆账号&password=百度登陆密码&mem_pass=on&ppui_logintime=4528” ＋ 到文本 (取随机数 (0, 9)) ＋ “&verifycode=” ＋ 到文本 (编辑框2.内容)

返回内容 ＝ 到文本 (网页_访问 (登陆账号地址, 1, , , 返回Cookies, , 返回协议头, , 到字节集 (POST_数据), , ))
调试输出 (返回内容)

 

.子程序 _按钮8_被单击

调试输出 (取百度主页登陆的token ())

.子程序 取百度主页登陆的token, 文本型
.局部变量 地址, 文本型
.局部变量 返回内容, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 token, 文本型

地址 ＝ “https://passport.baidu.com/v2/api/?login&tpl=mn”
返回内容 ＝ 到文本 (网页_访问 (地址, 0, , , 返回Cookies, , 返回协议头, , , , ))
' 调试输出 (返回内容)
' "param1_contex : "d80c12054e49fb3bb07326b0ab3e288a","
token ＝ 文本_取出中间文本 (返回内容, “param1_contex : ” ＋ #引号, #引号 ＋ “,”)
' token ＝ “a”
返回 (token)

 

 

.子程序 取百度主页登陆的验证码, 文本型
.局部变量 地址, 文本型
.局部变量 返回内容, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 token, 文本型

' 地址 ＝ “https://passport.baidu.com/v2/api/?login&tpl=mn&username=百度登陆账号”
地址 ＝ “https://passport.baidu.com/v2/api/?login&tpl=mn&username=百度登陆账号”
返回内容 ＝ 到文本 (网页_访问 (地址, 0, , , 返回Cookies, , 返回协议头, , , , ))
' 调试输出 (返回内容)
' "param1_contex : "d80c12054e49fb3bb07326b0ab3e288a","
token ＝ 文本_取出中间文本 (返回内容, “param1_contex : ” ＋ #引号, #引号 ＋ “,”)
' token ＝ “a”
' 调试输出 (“token:” ＋ token)
codestring ＝ 文本_取出中间文本 (返回内容, “param6_contex : ” ＋ #引号, #引号 ＋ “,”)
' 调试输出 (“codestring:” ＋ codestring)
图片框_验证码.图片 ＝ HTTP读文件 (“https://passport.baidu.com/cgi-bin/genimage?” ＋ codestring)

返回 (token)

 

.子程序 _按钮9_被单击

修改百度_个人设置_头像设置 ()

.子程序 修改百度_个人设置_头像设置
.局部变量 上传地址, 文本型
.局部变量 html分隔符, 文本型
.局部变量 临时_文本, 文本型
.局部变量 POST_数据, 字节集
.局部变量 返回内容, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 附加协议头内容, 文本型

' http://www.baidu.com/p/setting/profile/portrait
' "browserType"   : (navigator.appVersion.indexOf("MSIE") != -1) ? "2": "1",
' "cm"            : "1",
' "ct"            : "4",
' "userSign"      : "dec07171343931353231333530553b",
' "upRoot"        : "http://himg.baidu.com/sys/upload/",
' "photoRoot"     : "http://himg.bdimg.com/sys/portrait/item/",
' "bdstoken"      : "ccc7d40570da9363fb9870acae951a03"
' this.router.updateLoginUserData({"userInfo":{"isLoggedIn":true, "username": "百度登陆账号", "isLoginUserNoName": false, "token": '916f6b55195409aef6ed0fff61eea557', "portrait": "dec07171343931353231333530553b"}});

' portrait
' http://himg.bdimg.com/sys/upload/dec07171343931353231333530553b
上传地址 ＝ “http://himg.bdimg.com/sys/upload/” ＋ 百度_上传头像_portrait ()
' 调试输出 (百度_上传头像_portrait ())

html分隔符 ＝ “---------------------------atopcshhceht”

POST_数据 ＝ {  }

临时_文本 ＝ html分隔符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “Content-Disposition: form-data; name=” ＋ #换行符 ＋ “BrowserType” ＋ #换行符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “2” ＋ #换行符

临时_文本 ＝ 临时_文本 ＋ html分隔符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “Filename” ＋ #引号 ＋ #换行符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “image.jpg” ＋ #换行符

临时_文本 ＝ 临时_文本 ＋ html分隔符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “ct” ＋ #引号 ＋ #换行符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “2” ＋ #换行符

临时_文本 ＝ 临时_文本 ＋ html分隔符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “cm” ＋ #引号 ＋ #换行符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “1” ＋ #换行符

临时_文本 ＝ 临时_文本 ＋ html分隔符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “bdstoken” ＋ #引号 ＋ #换行符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ 百度_上传头像_bdstoken () ＋ #换行符

临时_文本 ＝ 临时_文本 ＋ html分隔符 ＋ #换行符
' Content-Disposition: form-data; name="file"; filename="image.jpg"
临时_文本 ＝ 临时_文本 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “file” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ “image.jpg” ＋ #引号 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “Content-Type: application/octet-stream” ＋ #换行符 ＋ #换行符

POST_数据 ＝ POST_数据 ＋ 到字节集 (临时_文本)
POST_数据 ＝ POST_数据 ＋ 读入文件 (“d:\我的文档\[教程] 百度登录 Post_易语言吧_百度贴吧.files\1a2000360d18.jpg”)

临时_文本 ＝ “”
临时_文本 ＝ 临时_文本 ＋ #换行符 ＋ #换行符

临时_文本 ＝ 临时_文本 ＋ html分隔符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “upload” ＋ #引号 ＋ #换行符 ＋ #换行符
临时_文本 ＝ 临时_文本 ＋ “baidu sumit headportrait” ＋ #换行符

临时_文本 ＝ 临时_文本 ＋ html分隔符 ＋ “--”
POST_数据 ＝ POST_数据 ＋ 到字节集 (临时_文本)

' “Content-Type: multipart/form-data; boundary=----------ei4cH2KM7gL6cH2ae0Ij5cH2cH2gL6” ＋ #换行符 ＋ “User-Agent: Shockwave Flash”

附加协议头内容 ＝ “Content-Type: multipart/form-data; boundary=” ＋ html分隔符 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; BTRS101170; EmbeddedWB 14.52 from: http://www.bsalsa.com/ EmbeddedWB 14.52; .NET CLR 2.0.50727)” ＋ #换行符

返回内容 ＝ 到文本 (网页_访问 (上传地址, 1, , , 返回Cookies, 附加协议头内容, 返回协议头, , POST_数据, , ))

调试输出 (返回内容)

 

.子程序 百度_上传头像_bdstoken, 文本型
.局部变量 返回文本, 文本型
.局部变量 地址, 文本型
.局部变量 返回内容, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型

' 'vars'          : {
' "browserType"   : (navigator.appVersion.indexOf("MSIE") != -1) ? "2": "1",
' "cm"            : "1",
' "ct"            : "4",
' "userSign"      : "dec07171343931353231333530553b",
' "upRoot"        : "http://himg.baidu.com/sys/upload/",
' "photoRoot"     : "http://himg.bdimg.com/sys/portrait/item/",
' "bdstoken"      : "ccc7d40570da9363fb9870acae951a03"
' },

地址 ＝ “http://www.baidu.com/p/setting/profile/portrait”
返回内容 ＝ 到文本 (网页_访问 (地址, 0, , , 返回Cookies, , 返回协议头, , , , ))
' 调试输出 (返回内容)
返回文本 ＝ 文本_取出中间文本 (返回内容, #引号 ＋ “bdstoken” ＋ #引号 ＋ “      : ” ＋ #引号, #引号)
' token ＝ “a”
返回 (返回文本)

 

 

 

.子程序 百度_上传头像_portrait, 文本型
.局部变量 地址, 文本型
.局部变量 返回内容, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 返回文本, 文本型

' 'vars'          : {
' "browserType"   : (navigator.appVersion.indexOf("MSIE") != -1) ? "2": "1",
' "cm"            : "1",
' "ct"            : "4",
' "userSign"      : "dec07171343931353231333530553b",
' "upRoot"        : "http://himg.baidu.com/sys/upload/",
' "photoRoot"     : "http://himg.bdimg.com/sys/portrait/item/",
' "bdstoken"      : "ccc7d40570da9363fb9870acae951a03"
' },

地址 ＝ “http://www.baidu.com/p/setting/profile/portrait”
返回内容 ＝ 到文本 (网页_访问 (地址, 0, , , 返回Cookies, , 返回协议头, , , , ))
' 调试输出 (返回内容)
返回文本 ＝ 文本_取出中间文本 (返回内容, #引号 ＋ “userSign” ＋ #引号 ＋ “      : ” ＋ #引号, #引号)
' token ＝ “a”
返回 (返回文本)

.子程序 _按钮10_被单击

调试输出 (百度_上传头像_bdstoken ())

.子程序 _按钮11_被单击

百度_增加文章 ()

.子程序 百度_增加文章
.局部变量 POST_数据, 字节集
.局部变量 增加文章地址, 文本型
.局部变量 返回内容, 文本型
.局部变量 登陆账号地址, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 文章内容, 文本型
.局部变量 x, 整数型
.局部变量 文章标题, 文本型
.局部变量 临时文本, 文本型

' POST /pub/submit/createtext HTTP/1.1
' Accept: */*
' Accept-Language: zh-cn
' Referer: http://hi.baidu.com/pub/show/createtext
' x-requested-with: XMLHttpRequest
' Content-Type: application/x-www-form-urlencoded
' Accept-Encoding: gzip, deflate
' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; BTRS101170; EmbeddedWB 14.52 from: http://www.bsalsa.com/ EmbeddedWB 14.52; .NET CLR 2.0.50727)
' Host: hi.baidu.com
' Content-Length: 294
' Connection: Keep-Alive
' Cache-Control: no-cache
' Cookie: H_PS_PSSID=4847_4845_4787_1432_4262_4988_4894_4760_4882_4677; BDRCVFR[feWj1Vr5u3D]=I67x6TjHwwYf0; BAIDUID=218CB8D1D9D05C3E175FBDF54848B9C5:FG=1; cflag=65535%3A1; BDUSS=mFBTi1KemQ0enJyVHAyd0xVdH5mWlRNamN2blB3T3VrOTlSbk9jSnlPd3pifmhTQVFBQUFBJCQAAAAAAAAAAAEAAADewFU7cXE0OTE1MjEzNTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPi0FIz4tBSQ; BDRCVFR[S4-dAuiWMmn]=I67x6TjHwwYf0; bdshare_firstime=1388816807937; Hm_lvt_8c869b543955d43e496c2efee5b55823=1389409164,1389409508,1389426993,1389427269; CANAL=201; SSITE=www.baidu.com; Hm_lpvt_8c869b543955d43e496c2efee5b55823=1389427539; PSPTOKEN=88d12444d9c77b88955d8611f3718c715bf1f96d4eee7cdc99532a75acbcb49e9e01e2b442fa

' title=biaotibiaotibiaotibiaotibiaoti&tags[]=鎴戠殑鏂囩珷&content=<p>biaotibiaotibiaotibiaotibiaotibiaoti<%2Fp>&private=&imgnum=0&bdstoken=17f66591a24e5d559d8ffa000f685326&qbid=&refer=http:%2F%2Fhi.baidu.com%2Fhome%2F?from%3Dindex&multimedia[]=&synflag=&private1=&qing_request_source=new_request

增加文章地址 ＝ “http://hi.baidu.com/pub/submit/createtext”
' 文章标题 ＝ “我的文章” ＋ 编辑框1.内容
文章标题 ＝ “”
.变量循环首 (1, 到整数 (编辑框1.内容), 1, x)
    文章标题 ＝ 文章标题 ＋ “a”
.变量循环尾 ()

 

文章内容 ＝ “”
.变量循环首 (1, 到整数 (编辑框1.内容), 1, x)
    文章内容 ＝ 文章内容 ＋ “a”
.变量循环尾 ()
' 调试输出 (文章内容)
文章内容 ＝ 文章内容 ＋ “--”
调试输出 (取文本长度 (文章内容))
调试输出 (取字节集长度 (到字节集 (文章内容)))
临时文本 ＝ “”
临时文本 ＝ 临时文本 ＋ “title=”

POST_数据 ＝ 到字节集 (临时文本) ＋ 编码_Ansi到Utf8 (文章标题)

临时文本 ＝ “”
临时文本 ＝ 临时文本 ＋ “&tags[]=鎴戠殑鏂囩珷&content=<p>” ＋ 文章内容 ＋ “<%2Fp>&private=&imgnum=0&bdstoken=” ＋ 百度_取_hi_文章增加_bdstoken () ＋ “&qbid=&refer=http:%2F%2Fhi.baidu.com%2Fhome%2F?from%3Dindex&multimedia[]=&synflag=&private1=&qing_request_source=new_request”

POST_数据 ＝ POST_数据 ＋ 到字节集 (临时文本)

返回内容 ＝ 到文本 (编码_Utf8到Ansi (网页_访问 (增加文章地址, 1, , , 返回Cookies, , 返回协议头, , 到字节集 (POST_数据), , )))
调试输出 (返回内容)

 

 

.子程序 百度_取_hi_文章增加_bdstoken, 文本型
.局部变量 地址, 文本型
.局部变量 返回内容, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 返回协议头, 文本型
.局部变量 返回文本, 文本型

地址 ＝ “http://hi.baidu.com/pub/show/createtext”
返回内容 ＝ 到文本 (网页_访问 (地址, 0, , , 返回Cookies, , 返回协议头, , , , ))

' 调试输出 (返回内容)
返回文本 ＝ 文本_取出中间文本 (返回内容, “qBdsToken=” ＋ #引号, #引号 ＋ “;”)
调试输出 (返回文本)
' token ＝ “a”
返回 (返回文本)

.子程序 _按钮12_被单击

 

 

.子程序 百度_删除文章

' POST /pub/submit/deleteblog HTTP/1.1
' Accept: */*
' Accept-Language: zh-cn
' Referer: http://hi.baidu.com/xyhnxwmvctbdfrq
' x-requested-with: XMLHttpRequest
' Content-Type: application/x-www-form-urlencoded
' Accept-Encoding: gzip, deflate
' User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; BTRS101170; EmbeddedWB 14.52 from: http://www.bsalsa.com/ EmbeddedWB 14.52; .NET CLR 2.0.50727)
' Host: hi.baidu.com
' Content-Length: 103
' Connection: Keep-Alive
' Cache-Control: no-cache
' Cookie: H_PS_PSSID=4847_4845_4787_1432_4262_4988_4894_4760_4882_4677; BDRCVFR[feWj1Vr5u3D]=I67x6TjHwwYf0; BAIDUID=218CB8D1D9D05C3E175FBDF54848B9C5:FG=1; cflag=65535%3A1; BDUSS=mFBTi1KemQ0enJyVHAyd0xVdH5mWlRNamN2blB3T3VrOTlSbk9jSnlPd3pifmhTQVFBQUFBJCQAAAAAAAAAAAEAAADewFU7cXE0OTE1MjEzNTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPi0FIz4tBSQ; BDRCVFR[S4-dAuiWMmn]=I67x6TjHwwYf0; bdshare_firstime=1388816807937; Hm_lvt_8c869b543955d43e496c2efee5b55823=1389409164,1389409508,1389426993,1389427269; CANAL=201; SSITE=www.baidu.com; Hm_lpvt_8c869b543955d43e496c2efee5b55823=1389438389; PSPTOKEN=88d12444d9c77b88955d8611f3718c715bf1f96d4eee7cdc99532a75acbcb49e9e01e2b442fa

' qbid=a9e494422497e9d4a5c066a2&bdstoken=17f66591a24e5d559d8ffa000f685326&qing_request_source=new_request

 

.子程序 _按钮14_被单击

子程序_取验证码new ()

.子程序 取得百度登陆的codeString, 文本型
.局部变量 连接地址, 文本型
.局部变量 返回内容, 文本型
.局部变量 地址, 文本型

地址 ＝ “https://passport.baidu.com/v2/api/?logincheck&callback=bdPass.api.login._needCodestringCheckCallback&tpl=mn&charset=utf-8&index=0&username=百度登陆账号&time=” ＋ 时间_取现行时间戳 ()
返回内容 ＝ 到文本 (网页_访问 (地址, 0, , , , , , , , , ))
调试输出 (返回内容)
返回 (“aaa”)

.子程序 _按钮15_被单击

取百度主页登陆的验证码 ()

.子程序 __启动窗口_创建完毕