易语言模拟过滑块源码

.版本 2 .支持库 spec .程序集 窗口程序集_窗口1 .程序集变量 cx, 整数型 .程序集变量 cy, 整数型 .程序集变量 ct, 整数型 .程序集变量 j, 整数型 .子程序 _窗口1_创建完毕 标题 = 大漠初始化_ (, , , , , , , , ) .判断开始 (标题 ≠ “初始化成功”) 标题 = 大漠初始化_ (, , 假, , , , , , ) .默认 .判断结束 清欢呀_读取窗口配置 (窗口1, “.\qinghuan.ini”, ) .子程序 _按钮_绑定_被单击 .局部变量 jub, 整数型 jub = 到整数 (编辑框1.内容) 标题 = 到文本 (dm.BindWindow (jub, “normal”, “normal”, “normal”, 0)) .子程序 _按钮_识别并滑动_被单击 .局部变量 a, 文本型, , "0" .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 答题返回内容, 文本型 .局部变量 题目ID, 文本型 .局部变量 临时分割, 文本型, , "0" .局部变量 jub, 整数型 .局部变量 t, 整数型 .局部变量 目标值, 整数型 .局部变量 随机值, 整数型 .局部变量 偏移值, 整数型 延时 (1000) jub = 到整数 (编辑框1.内容) 图片框1.图片 = { } 延时 (1000) a = 分割文本 (编辑框2.内容, “,”, ) dm.GetScreenDataBmp (到整数 (a [1]), 到整数 (a [2]), 到整数 (a [3]), 到整数 (a [4]), x, y) 图片框1.图片 = 指针到字节集 (x, y) .如果真 (编辑框3.内容 = “”) 联众_答题 (“”, “”, 指针到字节集 (x, y), “1318”, 0, 0, “”, 答题返回内容, 题目ID, 60) 编辑框3.内容 = 答题返回内容 编辑框4.内容 = 题目ID .如果真结束 临时分割 = 分割文本 (编辑框3.内容, “,”, ) 调试输出 (“临时分割”, 临时分割) .判断开始 (取数组成员数 (临时分割) = 2) ' 调试输出 (“目标x值:”, 445 + 18 + 到整数 (临时分割 [1]), , 取启动时间 () - t) x = 296 y = 437 dm.MoveTo (x, y) ' 这个是点的位置 dm.LeftDown () ' dm.EnableRealMouse (1, 2, 1) 随机值 = 到整数 (a [1]) ' 图片的x点 偏移值 = 10 ' 识别时候有可能存在的偏移 目标值 = 随机值 + 到整数 (临时分割 [1]) + 偏移值 .循环判断首 () 随机值 = 随机值 + 取随机数 (1, 5) dm.MoveTo (随机值, y) 调试输出 (取启动时间 (), 随机值) 延迟 (取随机数 (12, 20)) .循环判断尾 (随机值 ≤ 目标值) dm.LeftUp () ' dm.EnableRealMouse (0, 150, 10) 调试输出 (“wanc”) .默认 联众_报错 (“”, “”, 题目ID, ) .判断结束 .子程序 _按钮_报错_被单击 联众_报错 (“”, “”, 编辑框4.内容, ) .子程序 _窗口1_将被销毁 清欢呀_保存窗口配置_且删除许可 (窗口1, “.\qinghuan.ini”, ) .子程序 _滑块条1_位置被改变 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 t, 整数型 ' 调试输出 () t = 取启动时间 () x = 滑块条1.位置 y = 取鼠标垂直位置 () 画板1.画直线 (cx, 0, cx, 96) j = j + 1 .判断开始 (cx = 0 且 cy = 0) 编辑框6.加入文本 (到文本 (j) + “,” + 到文本 (x) + “,” + 到文本 (0) + “,首次” + #换行符) ct = t cx = x cy = y .默认 编辑框6.加入文本 (到文本 (j) + “,” + 到文本 (x - cx) + “,” + 到文本 (y - cy) + “,” + 到文本 (t - ct) + #换行符) ct = t cx = x cy = y .判断结束 .子程序 _按钮_识别并滑动1_被单击 .局部变量 a, 文本型, , "0" .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 答题返回内容, 文本型 .局部变量 题目ID, 文本型 .局部变量 临时分割, 文本型, , "0" .局部变量 jub, 整数型 .局部变量 t, 整数型 .局部变量 目标值, 整数型 .局部变量 随机值, 整数型 程序_延时 (100, ) jub = 到整数 (编辑框1.内容) 图片框1.图片 = { } a = 分割文本 (编辑框2.内容, “,”, ) dm.GetScreenDataBmp (到整数 (a [1]), 到整数 (a [2]), 到整数 (a [3]), 到整数 (a [4]), x, y) 图片框1.图片 = 指针到字节集 (x, y) 程序_延时 (100, ) 联众_答题 (“”, “”, 指针到字节集 (x, y), “1318”, 0, 0, “”, 答题返回内容, 题目ID, 60) 编辑框3.内容 = 答题返回内容 编辑框4.内容 = 题目ID 临时分割 = 分割文本 (编辑框3.内容, “,”, ) 调试输出 (“临时分割”, 临时分割) .判断开始 (取数组成员数 (临时分割) = 2) 编辑框5.内容 = 到文本 (到整数 (临时分割 [1]) - 5) _按钮1_被单击 () .默认 联众_报错 (“”, “”, 题目ID, ) .判断结束 .子程序 _按钮_滑动_被单击 .局部变量 ii, 文本型, , "0" .局部变量 i, 整数型 .局部变量 a, 文本型, , "0" .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 s, 整数型 .局部变量 xx, 整数型 .局部变量 yy, 整数型 .局部变量 ss, 整数型 .局部变量 t, 整数型 程序_延时 (1000, ) 大漠_鼠标_单击 (1, 407, 26) 程序_延时 (1000, ) x = 530 y = 607 dm.MoveTo (x, y) dm.LeftDown () ii = 分割文本 (编辑框6.内容, #换行符, ) t = 取启动时间 () .计次循环首 (取数组成员数 (ii), i) a = 分割文本 (ii [i], “,”, ) .如果真 (取数组成员数 (a) = 4) x = x + 到整数 (a [2]) y = y + 到整数 (a [3]) s = 到整数 (a [4]) .如果真 (i = 1) 调试输出 (“s = 0”, a [4]) s = 取随机数 (100, 300) .如果真结束 dm.MoveTo (x, y) xx = xx + x yy = yy + y ss = ss + s 调试输出 (i, xx, yy, s, ss) 程序_延时 (s, ) .如果真结束 .计次循环尾 () 调试输出 (“输入完成了”, 取启动时间 () - t) 程序_延时 (1000, ) dm.LeftUp () .子程序 _按钮_统计_被单击 .局部变量 ii, 文本型, , "0" .局部变量 i, 整数型 .局部变量 a, 文本型, , "0" .局部变量 移动次数, 整数型 .局部变量 移动像素文本, 文本型 .局部变量 aa, 整数型, , "0" .局部变量 出现次数, 整数型 .局部变量 tt, 整数型 .局部变量 ttt, 整数型 ii = 分割文本 (编辑框6.内容, #换行符, ) 移动次数 = 取数组成员数 (ii) .计次循环首 (移动次数, i) a = 分割文本 (ii [i], “,”, ) .如果真 (取数组成员数 (a) = 4 且 寻找文本 (移动像素文本, a [2], , 假) = -1) 出现次数 = 查询出现次数 (a [2]) 编辑框7.加入文本 (a [2] + “:” + 到文本 (出现次数 ÷ 移动次数) + #换行符) 移动像素文本 = 移动像素文本 + a [2] + “,” .如果真结束 .如果真 (取数组成员数 (a) = 4) tt = tt + 到整数 (a [4]) .如果真 (a [3] ≠ “0”) ttt = ttt + 1 .如果真结束 .如果真结束 .计次循环尾 () 编辑框7.加入文本 (“y偏移次数:” + 到文本 (ttt) + “\” + 到文本 (ttt ÷ 移动次数) + #换行符) 编辑框7.加入文本 (“总停留时间:” + 到文本 (tt) + #换行符) 编辑框7.加入文本 (“移动次数:” + 到文本 (移动次数) + “、” + 编辑框5.内容 + #换行符) 编辑框7.加入文本 (“次数/总数:” + 到文本 (移动次数 ÷ 到整数 (编辑框5.内容)) + #换行符 + #换行符) .子程序 查询出现次数, 整数型 .参数 欲查询, 文本型 .局部变量 ii, 文本型, , "0" .局部变量 移动次数, 整数型 .局部变量 i, 整数型 .局部变量 a, 文本型, , "0" .局部变量 jc, 整数型 ii = 分割文本 (编辑框6.内容, #换行符, ) 移动次数 = 取数组成员数 (ii) .计次循环首 (移动次数, i) a = 分割文本 (ii [i], “,”, ) .如果真 (取数组成员数 (a) = 4) .如果真 (欲查询 = a [2]) jc = jc + 1 .如果真结束 .如果真结束 .计次循环尾 () 返回 (jc) .子程序 _按钮_画随机目标_被单击 编辑框5.内容 = 文本_取随机范围数字 (10, 150, ) _按钮1_被单击 () .子程序 _按钮1_被单击 .局部变量 x, 整数型 画板1.清除 (, , , ) 连续赋值 (0, cx, cy, ct, j) x = 到整数 (编辑框5.内容) 画板1.画笔颜色 = #红色 画板1.画直线 (x, 20, x, 50) 画板1.画笔颜色 = #灰色 编辑框6.内容 = “” 滑块条1.位置 = 1 .子程序 _按钮_生成轨迹_被单击 .局部变量 预移动距离, 整数型 .局部变量 移动比例, 双精度小数型 .局部变量 移动次数, 整数型 .局部变量 总停留时间, 整数型 .局部变量 y偏移比例, 双精度小数型 .局部变量 y偏移次数, 整数型 .局部变量 x3偏移比例, 双精度小数型 .局部变量 i, 整数型 .局部变量 x1偏移比例, 双精度小数型 .局部变量 x2偏移比例, 双精度小数型 .局部变量 x1次数, 整数型 .局部变量 x2次数, 整数型 .局部变量 x3次数, 整数型 .局部变量 ii .局部变量 跳出循环, 逻辑型 .局部变量 数组x, 文本型, , "0" .局部变量 数组y, 文本型, , "0" .局部变量 延时, 整数型 .局部变量 延时0, 整数型 .局部变量 停留时间, 整数型 置随机数种子 () 编辑框6.内容 = “” 预移动距离 = 到整数 (编辑框5.内容) .循环判断首 () 移动比例 = 取随机数 (601, 699) ÷ 1000 ' 比例在60.1%~69.9%之间 移动次数 = 到整数 (移动比例 × 预移动距离) y偏移比例 = 取随机数 (30, 250) ÷ 1000 ' 比例在3%~25%之间 y偏移次数 = 到整数 (y偏移比例 × 移动次数) ' 调试输出 (“次数/总数=移动比例:”, 移动比例) x3偏移比例 = 取随机数 (30, 200) ÷ 1000 ' 比例在3%~20%之间 .计次循环首 (80, i) x1偏移比例 = i ÷ 100 x2偏移比例 = 1 - x3偏移比例 - x1偏移比例 x1次数 = 到整数 (移动次数 × x1偏移比例) x2次数 = 到整数 (移动次数 × x2偏移比例) x3次数 = 到整数 (移动次数 × x3偏移比例) ' x1偏移比例 > 0.5 或 x1偏移比例 < 0.38 .如果真 (到文本 (x1次数 + 到整数 (2 × x2次数) + 到整数 (3 × x3次数)) ≈ 到文本 (预移动距离) 且 x1偏移比例 < 0.5 且 x1偏移比例 > 0.38) 调试输出 (“y偏移比例:”, y偏移比例, “y偏移次数:”, y偏移次数) 调试输出 (“移动次数1:”, 移动次数, “x1偏移比例”, x1偏移比例, “x2偏移比例”, x2偏移比例, “x3偏移比例”, x3偏移比例) 调试输出 (“x1次数:”, x1次数, “x2次数:”, x2次数, “x3次数:”, x3次数) 跳出循环 = 真 跳出循环 () .如果真结束 .计次循环尾 () .循环判断尾 (跳出循环 = 假) .计次循环首 (x1次数, ) 加入成员 (数组x, “1”) .计次循环尾 () .计次循环首 (x2次数, ) 插入成员 (数组x, 取随机数 (1, 取数组成员数 (数组x)), “2”) .计次循环尾 () .计次循环首 (x3次数, ) 插入成员 (数组x, 取随机数 (1, 取数组成员数 (数组x)), “3”) .计次循环尾 () 重定义数组 (数组y, 假, 取数组成员数 (数组x) - y偏移次数) .计次循环首 (y偏移次数, ) 插入成员 (数组y, 取随机数 (1, 取数组成员数 (数组y)), 多项选择 (取随机数 (1, 5), “-2”, “-1”, “0”, “1”, “2”)) .计次循环尾 () .' 变量循环首 (取数组成员数 (数组x), 1, -1, i) ' 插入成员 (, , ) .' 变量循环尾 () 总停留时间 = 取随机数 (1500, 4500) 调试输出 (“总停留时间”, 总停留时间) .计次循环首 (取数组成员数 (数组x), i) .如果真 (数组y [i] = “”) 数组y [i] = “0” .如果真结束 .判断开始 (取数组成员数 (数组x) ÷ 2 > i) ' 前半部分 延时 = 多项选择 (取随机数 (1, 5), 0, 0, 0, 取随机数 (15, 17), 取随机数 (30, 67)) .判断开始 (延时 = 0) 延时0 = 延时0 + 1 .如果真 (延时0 = 3) 延时 = 取随机数 (15, 17) 延时0 = 0 .如果真结束 .默认 延时0 = 0 .判断结束 停留时间 = 停留时间 + 延时 .判断 (取数组成员数 (数组x) - i < 3) ' 后面2步 延时 = 多项选择 (取随机数 (1, 3), 取随机数 (68, 500), 取随机数 (100, 700), 取随机数 (200, 800)) 停留时间 = 停留时间 + 延时 .判断 (取数组成员数 (数组x) - i < 10) ' 后面9步 延时 = 多项选择 (取随机数 (1, 5), 取随机数 (15, 17), 取随机数 (30, 67), 取随机数 (68, 500), 取随机数 (100, 700), 取随机数 (200, 800)) 停留时间 = 停留时间 + 延时 .默认 延时 = 多项选择 (取随机数 (1, 5), 0, 取随机数 (15, 17), 取随机数 (30, 67), 取随机数 (15, 17), 取随机数 (30, 67)) .判断开始 (延时 = 0) 延时0 = 延时0 + 1 .如果真 (延时0 = 2) 延时 = 取随机数 (15, 17) 延时0 = 0 .如果真结束 .默认 延时0 = 0 .判断结束 停留时间 = 停留时间 + 延时 .判断结束 编辑框6.加入文本 (到文本 (i) + “,” + 数组x [i] + “,” + 数组y [i] + “,” + 到文本 (延时) + #换行符) .计次循环尾 () 编辑框6.加入文本 (到文本 (i + 1) + “,0,0,” + 到文本 (取随机数 (200, 800)) + #换行符) 调试输出 (取现行时间 (), #换行符 + #换行符) .子程序 生成移动轨迹_并滑动 .参数 原x坐标, 整数型 .参数 原y坐标, 整数型 .参数 预移动距离, 整数型, , 预移动距离=右边x坐标-原x坐标 .局部变量 移动比例, 双精度小数型 .局部变量 移动次数, 整数型 .局部变量 总停留时间, 整数型 .局部变量 y偏移比例, 双精度小数型 .局部变量 y偏移次数, 整数型 .局部变量 x3偏移比例, 双精度小数型 .局部变量 i, 整数型 .局部变量 x1偏移比例, 双精度小数型 .局部变量 x2偏移比例, 双精度小数型 .局部变量 x1次数, 整数型 .局部变量 x2次数, 整数型 .局部变量 x3次数, 整数型 .局部变量 ii .局部变量 跳出循环, 逻辑型 .局部变量 数组x, 文本型, , "0" .局部变量 数组y, 文本型, , "0" .局部变量 延时, 整数型 .局部变量 延时0, 整数型 .局部变量 停留时间, 整数型 .局部变量 a, 文本型, , "0" .局部变量 t, 整数型 .局部变量 aa, 文本型, , "0" .局部变量 xx .局部变量 x .局部变量 yy .局部变量 y .局部变量 ss .局部变量 s 置随机数种子 () 预移动距离 = 预移动距离 - 7 .循环判断首 () 移动比例 = 取随机数 (601, 699) ÷ 1000 ' 比例在60.1%~69.9%之间 移动次数 = 到整数 (移动比例 × 预移动距离) y偏移比例 = 取随机数 (30, 250) ÷ 1000 ' 比例在3%~25%之间 y偏移次数 = 到整数 (y偏移比例 × 移动次数) ' 调试输出 (“次数/总数=移动比例:”, 移动比例) x3偏移比例 = 取随机数 (30, 200) ÷ 1000 ' 比例在3%~20%之间 .计次循环首 (80, i) x1偏移比例 = i ÷ 100 x2偏移比例 = 1 - x3偏移比例 - x1偏移比例 x1次数 = 到整数 (移动次数 × x1偏移比例) x2次数 = 到整数 (移动次数 × x2偏移比例) x3次数 = 到整数 (移动次数 × x3偏移比例) ' x1偏移比例 > 0.5 或 x1偏移比例 < 0.38 .如果真 (到文本 (x1次数 + 到整数 (2 × x2次数) + 到整数 (3 × x3次数)) ≈ 到文本 (预移动距离) 且 x1偏移比例 < 0.5 且 x1偏移比例 > 0.38) ' 调试输出 (“y偏移比例:”, y偏移比例, “y偏移次数:”, y偏移次数) ' 调试输出 (“移动次数1:”, 移动次数, “x1偏移比例”, x1偏移比例, “x2偏移比例”, x2偏移比例, “x3偏移比例”, x3偏移比例) ' 调试输出 (“x1次数:”, x1次数, “x2次数:”, x2次数, “x3次数:”, x3次数) 跳出循环 = 真 跳出循环 () .如果真结束 .计次循环尾 () .循环判断尾 (跳出循环 = 假) .计次循环首 (x1次数, ) 加入成员 (数组x, “1”) .计次循环尾 () .计次循环首 (x2次数, ) 插入成员 (数组x, 取随机数 (1, 取数组成员数 (数组x)), “2”) .计次循环尾 () .计次循环首 (x3次数, ) 插入成员 (数组x, 取随机数 (1, 取数组成员数 (数组x)), “3”) .计次循环尾 () 重定义数组 (数组y, 假, 取数组成员数 (数组x) - y偏移次数) .计次循环首 (y偏移次数, ) 插入成员 (数组y, 取随机数 (1, 取数组成员数 (数组y)), 多项选择 (取随机数 (1, 5), “-2”, “-1”, “0”, “1”, “2”)) .计次循环尾 () .' 变量循环首 (取数组成员数 (数组x), 1, -1, i) ' 插入成员 (, , ) .' 变量循环尾 () 总停留时间 = 取随机数 (1500, 4500) ' 调试输出 (“总停留时间”, 总停留时间) .计次循环首 (取数组成员数 (数组x), i) .如果真 (数组y [i] = “”) 数组y [i] = “0” .如果真结束 .判断开始 (取数组成员数 (数组x) ÷ 2 > i) ' 前半部分 延时 = 多项选择 (取随机数 (1, 5), 0, 0, 0, 取随机数 (15, 17), 取随机数 (30, 67)) .判断开始 (延时 = 0) 延时0 = 延时0 + 1 .如果真 (延时0 = 3) 延时 = 取随机数 (15, 17) 延时0 = 0 .如果真结束 .默认 延时0 = 0 .判断结束 停留时间 = 停留时间 + 延时 .判断 (取数组成员数 (数组x) - i < 3) ' 后面2步 延时 = 多项选择 (取随机数 (1, 3), 取随机数 (68, 500), 取随机数 (100, 700), 取随机数 (200, 800)) 停留时间 = 停留时间 + 延时 .判断 (取数组成员数 (数组x) - i < 10) ' 后面9步 延时 = 多项选择 (取随机数 (1, 5), 取随机数 (15, 17), 取随机数 (30, 67), 取随机数 (68, 500), 取随机数 (100, 700), 取随机数 (200, 800)) 停留时间 = 停留时间 + 延时 .默认 延时 = 多项选择 (取随机数 (1, 5), 0, 取随机数 (15, 17), 取随机数 (30, 67), 取随机数 (15, 17), 取随机数 (30, 67)) .判断开始 (延时 = 0) 延时0 = 延时0 + 1 .如果真 (延时0 = 2) 延时 = 取随机数 (15, 17) 延时0 = 0 .如果真结束 .默认 延时0 = 0 .判断结束 停留时间 = 停留时间 + 延时 .判断结束 加入成员 (a, 到文本 (i) + “,” + 数组x [i] + “,” + 数组y [i] + “,” + 到文本 (延时)) .计次循环尾 () 加入成员 (a, 到文本 (i + 1) + “,0,0,” + 到文本 (取随机数 (200, 800))) ' 调试输出 (取现行时间 (), #换行符 + #换行符) x = 原x坐标 y = 原y坐标 dm [1].MoveTo (x, y) ' 大漠移动的命令 dm [1].LeftDown () t = 取启动时间 () .计次循环首 (取数组成员数 (a), i) aa = 分割文本 (a [i], “,”, ) .如果真 (取数组成员数 (aa) = 4) x = x + 到整数 (aa [2]) y = y + 到整数 (aa [3]) s = 到整数 (aa [4]) .如果真 (i = 1) 调试输出 (“s = 0”, a [4]) s = 取随机数 (100, 300) .如果真结束 dm [1].MoveTo (x, y) xx = xx + x yy = yy + y ss = ss + s ' 调试输出 (i, xx, yy, s, ss) 程序_延时 (s, ) .如果真结束 .计次循环尾 () 调试输出 (“输入完成了”, 取启动时间 () - t) ' 程序_延时 (1000, ) dm [1].LeftUp () 程序_延时 (2000, ) ' ’大漠_鼠标_单击 (1, 319, 404) 程序_延时 (1000, ) .子程序 _按钮_识别并点选_被单击 .局部变量 a, 文本型, , "0" .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 答题返回内容, 文本型 .局部变量 题目ID, 文本型 .局部变量 临时分割, 文本型, , "0" .局部变量 jub, 整数型 .局部变量 t, 整数型 .局部变量 目标值, 整数型 .局部变量 随机值, 整数型 .局部变量 偏移值, 整数型 .局部变量 i, 整数型 .局部变量 xx, 文本型, , "0" 延时 (1000) jub = 到整数 (编辑框1.内容) 图片框1.图片 = { } 延时 (1000) a = 分割文本 (编辑框2.内容, “,”, ) dm.GetScreenDataBmp (到整数 (a [1]), 到整数 (a [2]), 到整数 (a [3]), 到整数 (a [4]), x, y) 图片框1.图片 = 指针到字节集 (x, y) .如果真 (编辑框3.内容 = “”) 联众_答题 (“”, “”, 指针到字节集 (x, y), “1303”, 0, 0, “”, 答题返回内容, 题目ID, 60) 编辑框3.内容 = 答题返回内容 编辑框4.内容 = 题目ID .如果真结束 临时分割 = 分割文本 (编辑框3.内容, “|”, ) 调试输出 (“临时分割”, 临时分割) .计次循环首 (取数组成员数 (临时分割), i) xx = 分割文本 (临时分割 [i], “,”, ) .如果真 (取数组成员数 (xx) = 2) 大漠_鼠标_单击 (1, 到整数 (a [1]) + 到整数 (xx [1]), 到整数 (a [2]) + 到整数 (xx [2])) .如果真结束 程序_延时 (500, ) .计次循环尾 () .子程序 _按钮_超级滑动_被单击 生成移动轨迹_并滑动 (296, 437, 到整数 (文本_取左边 (编辑框3.内容, “,”, , )))
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

易语言模拟过滑块源码》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注