支付宝填表登录易语言源码

支付宝填表登录易语言源码

@MS_晨星天宇

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

.程序集 窗口程序集_窗口1

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

调试输出 (开始登录 (超文本浏览框1, “”, “”))

.子程序 开始登录, 文本型
.参数 超文本浏览框, 超文本浏览框
.参数 账号, 文本型
.参数 密码, 文本型
.参数 cookie, 文本型, 参考 可空
.局部变量 MS填表, 网页填表
.局部变量 判断程序, 逻辑型

.判断开始 (账号 ＝ “” 或 密码 ＝ “”)
    返回 (“参数不足”)
.默认
    网页_清除Cookie (“alipay.com”)
    超文本浏览框.地址 ＝ “https://authsu18.alipay.com/login/index.htm”
    .计次循环首 (80, )
        判断程序 ＝ 超文本浏览框.是否就绪 ()
        .如果真 (判断程序)
            跳出循环 ()
        .如果真结束
        程序_延时 (100)
    .计次循环尾 ()
    .如果真 (取反 (判断程序))
        返回 (“浏览器跳转失败”)
    .如果真结束
    程序_延时 (1000)
    .计次循环首 (80, )
        判断程序 ＝ MS填表.初始化 (超文本浏览框.取窗口句柄 ())
        .如果真 (判断程序)
            跳出循环 ()
        .如果真结束
        程序_延时 (100)
    .计次循环尾 ()
    程序_延时 (100)
    MS填表.ULLI_选择 (“innerText==账密登录”, , , 1)
    程序_延时 (100)
    MS填表.文本框_置焦点 (“Name==logonId”, , 1)
    程序_延时 (100)
    MS填表.文本框_写内容 (“Name==logonId”, 账号, , 1)
    程序_延时 (100)
    MS填表.文本框_置焦点 (“Name==password_rsainput”, , 1)
    程序_延时 (100)
    MS填表.文本框_写内容 (“Name==password_rsainput”, 密码, , 1)
    程序_延时 (500)
    MS填表.按钮_置焦点 (“value==登 录”, , 1)
    程序_延时 (500)
    MS填表.按钮_点击 (“value==登 录”, , 1)
    程序_延时 (500)
    .如果 (超文本浏览框.地址 ＝ “https://authsu18.alipay.com/login/index.htm” 或 超文本浏览框.地址 ＝ “”)
        返回 (“登录失败”)
    .否则
        返回 (“登录成功”)
    .如果结束

.判断结束
.如果 (超文本浏览框.地址 ＝ “https://authsu18.alipay.com/login/index.htm” 或 超文本浏览框.地址 ＝ “”)
    返回 (“登录失败”)
.否则
    返回 (“登录成功”)
.如果结束
.' 判断循环首 (取反 (超文本浏览框.是否就绪 ()))
    ' 程序_延时 (200)
.' 判断循环尾 ()

' 判断循环首 (取反 (MS填表.初始化 (超文本浏览框.取窗口句柄 ())))
' 程序_延时 (100)