易语言本地滑块拼图验证源码_滑动拼图验证码快速滑动脚本

文章目录：

• 1、我想用易语言做一个滑块条改变窗口底色、求源码。
• 2、易语言如何过这种滑块验证码，块块在最左边滑动到最右边，就可以验证通过如题，
• 3、求易语言 判断循环及配合滑块条使用的源码例子目的是用做全局加速!

我想用易语言做一个滑块条改变窗口底色、求源码。

.版本 2

.子程序 _滑块条1_位置被改变

_启动窗口.底色 ＝ HSLToRGB (滑块条1.位置 ÷ 100, 0.5, 0.5)

.子程序 Hue, 双精度小数型

.参数 p, 双精度小数型

.参数 q, 双精度小数型

.参数 t, 双精度小数型

.如果真 (t ＜ 0)

t ＝ t ＋ 1

.如果真结束

.如果真 (t ＞ 1)

t ＝ t － 1

.如果真结束

.如果真 (t ＜ 1 ÷ 6)

返回 (p ＋ (q － p) × 6 × t)

.如果真结束

.如果真 (t ＜ 1 ÷ 2)

返回 (q)

.如果真结束

.如果真 (t ＜ 2 ÷ 3)

返回 (p ＋ (q － p) × (2 ÷ 3 － t) × 6)

.如果真结束

返回 (p)

.子程序 HSLToRGB, 整数型

.参数 h, 双精度小数型

.参数 s, 双精度小数型

.参数 l, 双精度小数型

.局部变量 r, 双精度小数型

.局部变量 g, 双精度小数型

.局部变量 b, 双精度小数型

.局部变量 q, 双精度小数型

.局部变量 p, 双精度小数型

.判断开始 (s ＝ 0)

r ＝ l

g ＝ l

b ＝ l

.默认

q ＝ 选择 (l ＜ 0.5, l × (1 ＋ s), l ＋ s － l × s)

p ＝ 2 × l － q

r ＝ Hue (p, q, h ＋ 1 ÷ 3)

g ＝ Hue (p, q, h)

b ＝ Hue (p, q, h － 1 ÷ 3)

.判断结束

返回 (取颜色值 (四舍五入 (r × 255, ), 四舍五入 (g × 255, ), 四舍五入 (b × 255, )))

.子程序 __启动窗口_创建完毕

滑块条1.最大位置 ＝ 100

滑块条1.页改变值 ＝ 1

转换色彩空间 然后…… 你复制代码测试一下吧

易语言如何过这种滑块验证码，块块在最左边滑动到最右边，就可以验证通过如题，

你能画出这样的界面相信就不需要怎么给你代码了吧!易语言它的控件都是可以取到鼠标的坐标的,应该只需要一个标签和一个按钮完事了,作出范围的判断让控件移动,超出一定范围让它弹回来就可以了!不过验证还是使用字符串验证吧!拖放什么的,完全跟没有一样,有能力搭建一个服务器,没能里接入第三方云验证都是可以实现字符串验证的!

但是编写收费之类的程序的话,或者软件是发放出去的,千万不要做得太非主流了,随便拖放几个控件就完事了,这样合适大众,他也没话说,我就有一个项目,很多人说丑,但是控件要改容易,控件里面的代码就非常难了!

求易语言 判断循环及配合滑块条使用的源码例子目的是用做全局加速!

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_鼠标左键被按下, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

_启动窗口.标题 ＝ 到文本 (横向位置) ＋ “,” ＋ 到文本 (纵向位置)

.判断循环首 (横向位置 ＞ 0 且 纵向位置 ＞ 0)

.如果 (横向位置 － 25 ＝ 按钮1.左边 且 纵向位置 － 25 ＝ 按钮1.顶边)

跳出循环 ()

.否则

.如果 (横向位置 － 25 ＞ 按钮1.左边)

按钮1.左边 ＝ 按钮1.左边 ＋ 1

.否则

.如果 (横向位置 － 25 ＜ 按钮1.左边)

按钮1.左边 ＝ 按钮1.左边 － 1

.否则

.如果结束

.如果结束

.如果 (纵向位置 － 25 ＞ 按钮1.顶边)

按钮1.顶边 ＝ 按钮1.顶边 ＋ 1

.否则

.如果 (纵向位置 － 25 ＜ 按钮1.顶边)

按钮1.顶边 ＝ 按钮1.顶边 － 1

.否则

.如果结束

.如果结束

.如果结束

延时 (10)

.判断循环尾 ()

本人QQ;1054507580