.版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 集_Cookies, 文本型 .子程序 _按钮1_被单击 .局部变量 str, 文本型 str ＝ post10086 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容) 信息框 (str, 0, “登录结果”, 取窗口句柄 ()) .子程序 post10086, 文本型 .参数 user, 文本型 .参数 paasword, 文本型 .参数 code, 文本型 .局部变量 url, 文本型 .局部变量 postData, 文本型 .局部变量 str, 文本型 .局部变量 json, 类_json .局部变量 协议头, 文本型 url ＝ “http://pim.10086.cn/dispatch/public/accessTokenGet.php” str ＝ 网页_访问S (url, 1, “curpage=http%3A%2F%2Fpim.10086.cn%2Fviews%2Flogin.html%3Fchannel%3Dwww”, 集_Cookies, , #常量1, , , , , , , , , , , , 真, , , ) json.解析 (str) 协议头 ＝ json.取通用属性 (“data.accessToken”, ) ' //检测页面是否过期 调试输出 (“页面令牌”, 协议头) json.清除 () 协议头 ＝ 格式化文本 (#常量_协议头, 协议头) ' 调试输出 (协议头) url ＝ “http://pim.10086.cn/dispatch/public/login.php” postData ＝ “mobile=” ＋ JS调试 (#常量_js, “ezzzzzz”, “'” ＋ user ＋ “'”) ＋ “&password=” ＋ JS调试 (#常量_js, “ezzzzzz”, “'” ＋ paasword ＋ “'”) ＋ “&vcode=” ＋ code 调试输出 (postData) str ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (url, 1, postData, 集_Cookies, , 协议头, , , , , , , , , , , 真, , ))) 调试输出 (“登录返回:”, str) 调试输出 (“登录后Cookies”, 集_Cookies) ' {"code":1,"data":{},"msg":"验证码输入错误"} ' "code":2,"data":{},"msg":"您的手机号或者密码输入错误，如果您的密码输入错误超过3次，该账号将被锁定!"} ' {"code":200,"data":{},"msg":"ok"} json.解析 (str) 返回 (json.取通用属性 (“msg”, )) .子程序 JS调试, 文本型, 公开, 代码由鬼鬼JS调试工具生成 BY QQ:120220707 .参数 JS代码, 文本型 .参数 函数名, 文本型 .参数 参数, 文本型, 可空 .局部变量 js, 对象 .局部变量 return, 文本型 ' CoInitialize (0) 线程中请初始化COM 否则会出错 js.创建 (“ScriptControl”, ) js.写属性 (“Language”, “JavaScript”) js.数值方法 (“AddCode”, JS代码) ' 调试成功的JS代码段 return ＝ js.通用方法 (“eval”, 函数名 ＋ “(” ＋ 参数 ＋ “)”).取文本 () ' CoUninitialize () 返回 (return) ' 本例程调用方法直接复制 JS调试 (调试成功的JS代码,"ezzzzzz" ,"'11111111'" ) .子程序 __启动窗口_创建完毕 _图片框1_鼠标左键被放开 (0, 0, 0) .子程序 _图片框1_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 图片框1.图片 ＝ 网页_访问_对象 (“http://pim.10086.cn/code.php?t=1597386284754”, , , , 集_Cookies, , , , , , , , , , , , , 真, )