.版本 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