易语言查找指定颜色并将鼠标移动到指定坐标的代码
<p><strong>DLL命令表</strong></p><div class="jb51code">
<pre class="brush:xhtml;">
.版本 2
.DLL命令 移动鼠标, , "user32", "SetCursorPos"
.参数 x, 整数型
.参数 y, 整数型</pre>
</div>
<p><strong>查找指定颜色例程</strong></p>
<div class="jb51code">
<pre class="brush:xhtml;">
.版本 2
.程序集 窗口程序集1
.子程序 _查找按钮_被单击, , , 查找颜色
.局部变量 临时字节集, 字节集
.局部变量 颜色, 字节集
.局部变量 找到位置, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 宽, 整数型
.局部变量 高, 整数型
临时字节集 ＝ 快照 (, , ) ' 取屏幕
宽 ＝ 临时字节集 ＋ 临时字节集 × 256
高 ＝ 临时字节集 ＋ 临时字节集 × 256
临时字节集 ＝ 取字节集右边 (临时字节集, 取字节集长度 (临时字节集) － 54)
颜色 ＝ { 0, 0, 0 }
颜色 ＝ 到字节 (到数值 (编辑框B.内容))
颜色 ＝ 到字节 (到数值 (编辑框G.内容))
颜色 ＝ 到字节 (到数值 (编辑框R.内容))
找到位置 ＝ -1
.循环判断首 ()
找到位置 ＝ 寻找字节集 (临时字节集, 颜色, 找到位置 ＋ 1)
.如果真 (找到位置 ＝ -1)
跳出循环 ()
.如果真结束
.循环判断尾 ((找到位置 － 1) ％ 3 ≠ 0)
.如果 (找到位置 ≠ -1)
x ＝ ((找到位置 － 1) ÷ 3 ＋ 1) ％ 宽
y ＝ 高 － ((找到位置 － 1) ÷ 3 ＋ 1) ＼ 宽
编辑框结果.内容 ＝ “X：” ＋ 到文本 (x) ＋ “ Y：” ＋ 到文本 (y)
.如果真 (选择框1.选中 ＝ 真)
移动鼠标 (x, y)
.如果真结束
.否则
编辑框结果.内容 ＝ “没有找到”
.如果结束
.子程序 _编辑框颜色值_内容被改变
.局部变量 字节集, 字节集
.局部变量 R, 整数型
.局部变量 G, 整数型
.局部变量 B, 整数型
字节集 ＝ 到字节集 (到整数 (编辑框颜色值.内容))
R ＝ 字节集
G ＝ 字节集
B ＝ 字节集
编辑框R.内容 ＝ 到文本 (R)
编辑框G.内容 ＝ 到文本 (G)
编辑框B.内容 ＝ 到文本 (B)
颜色画板.画板背景色 ＝ 到整数 (编辑框颜色值.内容)
.子程序 __启动窗口_创建完毕
_编辑框颜色值_内容被改变 ()</pre>
</div>
<p><strong>运行结果：</strong></p>
<p style="text-align: center"><img id="theimg" alt="" src="https://img.jbzj.com/file_images/article/201812/20181211151451012.png?2018111115153" /></p>
<p><strong>总结</strong></p>
<p>以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对琼殿技术社区的支持。如果你想了解更多相关内容请查看下面相关链接</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>易语言模拟鼠标点击实现方法</li><li>易语言键盘钩子与鼠标钩子的状态参数值表</li><li>易语言利用鼠标模拟点击的方式实现自动画图的代码</li><li>易语言仿按键精灵录制键盘鼠标操作的代码</li><li>易语言设置鼠标移动到组件上时的文本显示颜色</li><li>易语API监视鼠标状态教学</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]