奇易浏览框最新单窗口多进程不干扰进行填表任务源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 完成刮刮卡, 逻辑型
.程序集变量 命令, 文本型, , "0"
.程序集变量 web, 奇易浏览框, , "0"
.程序集变量 qiyi, 奇易浏览框
.程序集变量 伪外形框, 外形框, , "0"

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 顶行, 整数型

顶行 ＝ 0
.计次循环首 (12, i)
    加入成员 (伪外形框, 外形框1)
    加入成员 (web, qiyi)
    复制窗口组件 (外形框1, 伪外形框 [i])
    .如果 (i ＝ 1)
        伪外形框 [i].顶边 ＝ 0
        伪外形框 [i].左边 ＝ 0
    .否则
        伪外形框 [i].顶边 ＝ 伪外形框 [i].高度 × 顶行
        伪外形框 [i].左边 ＝ 伪外形框 [i].宽度 × (i － 1)
        .如果真 (伪外形框 [i].左边 ＋ 伪外形框 [i].宽度 ＞ _启动窗口.宽度)
            顶行 ＝ 顶行 ＋ 1
            伪外形框 [i].顶边 ＝ 伪外形框 [i].高度 × 顶行
            伪外形框 [i].左边 ＝ 0
        .如果真结束

    .如果结束
    伪外形框 [i].可视 ＝ 真
    ' web [i].置HTTP代理 (“tps189.kdlapi.com”, 15818, “”, “”)
    ' web [i].设置无头模式 (真)  ' 不进行画面渲染
    web [i].初始化浏览框 (伪外形框 [i].取窗口句柄 (), 文本_取随机字符 (8), “https://memberprod.alipay.com/account/reg/enterpriseIndex.htm”)
    web [i].绑定事件_开始载入地址 (&事件_开始载入地址, i)
    web [i].绑定事件_结束载入地址 (&事件_结束载入地址, i)
.计次循环尾 ()
' 判断所有浏览器的页面是否加载完毕
.计次循环首 (取数组成员数 (web), i)
    .判断循环首 (取反 (web [i].填表操作_判断元素是否存在 (“INPUT”, “J-accName”, 1)))
        程序_延时 (100)
    .判断循环尾 ()
.计次循环尾 ()

.子程序 事件_开始载入地址, 逻辑型, ,  （整数型 wkeWebView，整数型 用户数据，文本型 URL，整数型 job）
.参数 wkeWebView, 整数型
.参数 用户数据, 整数型
.参数 URL, 文本型
.参数 job, 整数型

.如果真 (寻找文本 (URL, “acctStatusCheckEmail.json”, , 假) ＞ -1)
    web [用户数据].开启网络拦截 (job)
.如果真结束
返回 (假)

.子程序 事件_结束载入地址, , , （整数型 wkeWebView，整数型 用户数据，文本型 URL，整数型 job，整数型 数据指针，整数型 长度）
.参数 wkeWebView, 整数型
.参数 用户数据, 整数型
.参数 URL, 文本型
.参数 job, 整数型
.参数 数据指针, 整数型
.参数 长度, 整数型
.局部变量 文本, 文本型
.局部变量 text, 文本型
.局部变量 JSON, 类_json
.局部变量 sig, 文本型
.局部变量 sessionId, 文本型
.局部变量 t, 文本型
.局部变量 成功, 整数型, 静态
.局部变量 失败, 整数型, 静态

文本 ＝ 到文本 (指针到字节集 (数据指针, 长度))
调试输出 (“数据：” ＋ 文本, “来自浏览器：” ＋ 到文本 (用户数据))
.如果真 (寻找文本 (文本, “rejective”, , 假) ＞ -1)
    调试输出 (“异常”, 用户数据)
    返回 ()
.如果真结束


.子程序 _按钮1_被单击
.局部变量 i, 整数型

.判断循环首 (真)
    .计次循环首 (取数组成员数 (web), i)
        调试输出 (web [i].填表事件_普通事件 (“INPUT”, “J-accName”, “focus”, , ), i)
        调试输出 (web [i].填表操作_写内容 (“INPUT”, “J-accName”, 文本_取随机字符 (8) ＋ “@qq.com”), i)
        调试输出 (web [i].填表事件_普通事件 (“INPUT”, “J-accName”, “blur”, , ), i)
    .计次循环尾 ()
    调试输出 (“结束”)
    程序_延时 (5)
    处理事件 ()
.判断循环尾 ()

@a16633