.版本 2
.支持库 spec
.支持库 dp1
.子程序 _按钮1_被单击
.局部变量 url, 文本型
.局部变量 body, 文本型
.局部变量 str, 文本型
.局部变量 bin, 字节集
.局部变量 cookies, 文本型
.局部变量 setcookies, 文本型
.局部变量 uuid, 文本型
.局部变量 nloginpwd, 文本型
.局部变量 script, 类_脚本组件
.局部变量 _t, 文本型
url ＝ “https://passport.jd.com/new/login.aspx”
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, , , cookies, setcookies))
uuid ＝ 文本_取出中间文本 (str, “name=#引号uuid#引号 value=#引号”, #引号)
_t ＝ “_” ＋ 文本_取出中间文本 (cookies, “; _”, “=”)
调试输出 (“uuid ＝” ＋ uuid, “_t ＝” ＋ _t)
url ＝ “https://passport.jd.com/uc/showAuthCode?r=” ＋ 时间_取随机时间戳 () ＋ “&version=2015”
body ＝ “loginName=” ＋ 删首尾空 (编辑框1.内容)
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 1, body, cookies, setcookies, #XMLHttpRequest))
调试输出 (str)
.如果真 (寻找文本 (str, #verifycode_true, , 假) ≠ -1)
url ＝ “https://authcode.jd.com/verify/image?a=1&acid=” ＋ uuid ＋ “&uid=” ＋ uuid ＋ “&yys=” ＋ 时间_取现行时间戳 ()
bin ＝ 网页_访问_对象 (url, , , cookies)
图片框1.图片 ＝ bin
编辑框3.内容 ＝ “”
.循环判断首 ()
程序_延时 (666)
处理事件 ()
.循环判断尾 (取文本长度 (编辑框3.内容) ＜ 4)
.如果真结束
script.执行 (#getEntryptPwd)
nloginpwd ＝ script.运行 (“getEntryptPwd”, 删首尾空 (编辑框2.内容))
调试输出 (“nloginpwd ＝ ” ＋ nloginpwd)
url ＝ “https://passport.jd.com/uc/loginService?uuid=” ＋ uuid ＋ “&&r=” ＋ 时间_取随机时间戳 () ＋ “&version=2015”
body ＝ “uuid=” ＋ uuid ＋ “&eid=” ＋ 到大写 (文本_取随机字符 (90)) ＋ “&fp=” ＋ 取数据摘要 (到字节集 (时间_取现行时间戳 ())) ＋ “&_t=” ＋ _t ＋ “&loginType=c&loginname=” ＋ 删首尾空 (编辑框1.内容) ＋ “&nloginpwd=” ＋ 编码_URL编码 (nloginpwd, 真, 真) ＋ “&chkRememberMe=&authcode=” ＋ 编辑框3.内容
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 1, body, cookies, setcookies, #XMLHttpRequest))
调试输出 (str)
调试输出 (编码_usc2到ansi (str))
.判断开始 (寻找文本 (str, “success” ＋ #引号 ＋ “:” ＋ #引号 ＋ “//www.jd.com”, , 假) ≠ -1)
调试输出 (“登录成功”)
.判断 (寻找文本 (str, “pwd” ＋ #引号 ＋ “:” ＋ #引号 ＋ “\u8d26\u6237\u540d\u4e0e\u5bc6\u7801\u4e0d\u5339\u914d\uff0c\u8bf7\u91cd\u65b0\u8f93\u5165”, , 假) ≠ -1)
调试输出 (“账户名与密码不匹配，请重新输入”)
.判断 (寻找文本 (str, “emptyAuthcode” ＋ #引号 ＋ “:” ＋ #引号 ＋ “\u9a8c\u8bc1\u7801\u4e0d\u6b63\u786e\u6216\u9a8c\u8bc1\u7801\u5df2\u8fc7\u671f”, , 假) ≠ -1)
调试输出 (“验证码不正确或验证码已过期”)
.默认
.判断结束