精易Web浏览器 UChk验证源码

.版本 2
.支持库 wke

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

.子程序 _窗口1_创建完毕

精易Web浏览器1.浏览网页 (“http://id.uc.cn”)

.子程序 滑动验证
.局部变量 填表, WKE_填表
.局部变量 tmpX, 整数型
.局部变量 tmpY, 整数型
.局部变量 句柄, 整数型
.局部变量 WebView, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 计次, 整数型
.局部变量 i, 整数型

' 滑动验证：
tmpX ＝ 窗口1.左边  ' 记录窗口原来的位置
tmpY ＝ 窗口1.顶边  ' 记录窗口原来的位置
窗口1.左边 ＝ 0  ' 窗口移动到左上角，保证滑_块不被遮挡
窗口1.顶边 ＝ 0  ' 窗口移动到左上角，保证滑_块不被遮挡
窗口1.可否移动 ＝ 假  ' 防止窗口被拖动
句柄 ＝ 精易Web浏览器1.取窗口句柄 ()
WebView ＝ 精易Web浏览器1.取WebView ()
x ＝ 填表.元素_取横坐标 (WebView, #填表模式_JS表达式, “[id=nc_1_n1z]”, 0, ) ＋ 10  ' 取滑_块位置加一点偏移
y ＝ 填表.元素_取纵坐标 (WebView, #填表模式_JS表达式, “[id=nc_1_n1z]”, 0, ) ＋ 15  ' 取滑_块位置加一点偏移
计次 ＝ 65  ' 要滑动距离为 258，分为65次移动，则每次鼠标移动距离为： 258 ÷ 计次 = 4
鼠标_移动 (句柄, x, y)  ' 起点
鼠标_按键 (1, 3)  ' 按下左键
.计次循环首 (计次, i)
    鼠标_移动 (句柄, x ＋ i × 4, y)  ' 4 看上面的计算
    延时 (取随机数 (20, 30))
    处理事件 ()
.计次循环尾 ()
鼠标_按键 (1, 4)  ' 放开左键
窗口1.左边 ＝ tmpX  ' 恢复窗口原来的位置
窗口1.顶边 ＝ tmpY  ' 恢复窗口原来的位置
窗口1.可否移动 ＝ 真  ' 解除

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

滑动验证 ()

@jingyi11023995