易语言利用鼠标模拟点击的方式实现自动画图的代码

易语⾔利⽤⿏标模拟点击的⽅式实现⾃动画图的代码DLL命令表
.版本 2
.DLL命令 PostMessageA, 整数型, "user32.dll", "PostMessageA", , 如果函数调⽤成功，返回⾮零值：如果函数调⽤失败，返回值是零
.参数 hWnd, 整数型, , 其窗⼝程序接收消息的窗⼝的句柄
.参数 Msg, 整数型, , 指定被寄送的消息
.参数 wParam, 整数型, , 指定附加的消息特定的信息
.参数 IParam, 整数型, , 指定附加的消息特定的信息
⾃动绘画的代码
此功能需要加载精易模块5.6
.版本 2
.⽀持库 spec
.⽀持库 shell
.⽀持库 BmpOperate
.程序集窗⼝程序集_启动窗⼝
.程序集变量⽂件路径, ⽂本型
.程序集变量开始, 逻辑型
.⼦程序 __启动窗⼝_创建完毕
窗⼝_热键注册 (取窗⼝句柄 (), 1, #A键, &_按钮_绘画_被单击, 1)
.⼦程序 _按钮_绘画_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量⿏标位置, 精易_坐标
程序_延时 (2000, )
⿏标位置＝⿏标_取位置 ()
调试输出 (1)
开始＝真
.计次循环⾸ (画板1.宽度, a)
.计次循环⾸ (画板1.⾼度, b)
.如果 (画板1.取点 (a, b) ＝ 0)
程序_延时 (1)
⿏标_移动 (, ⿏标位置.横＋ a, ⿏标位置.纵＋ b)
⿏标_按键 (1, 3)
.否则
⿏标_按键 (1, 4)
.如果结束
系统_处理事件 ()
.如果真 (开始＝假)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (开始＝假)
跳出循环 ()
.如果真结束
.计次循环尾 ()
调试输出 (2)
.⼦程序 _按钮_载⼊_被单击
通⽤对话框1.初始⽬录＝取特定⽬录 (3)
通⽤对话框1.过滤器＝ “PNG|*.png|JPG|*.jpg|BMP|*.bmp|JPGE|*.jpge”
通⽤对话框1.打开 ()
⽂件路径＝通⽤对话框1.⽂件名
画板1.底图＝读⼊⽂件 (通⽤对话框1.⽂件名)
画板1.底图＝清除杂点 (⼆值化处理 (画板1.取图⽚ (, ), 150), 0)
.⼦程序⼆值化处理, 字节集
.参数图⽚, 字节集
.参数⼆值化值, 整数型
.局部变量位图, 位图
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 RGB, 字节集
.局部变量颜⾊值, 整数型
位图.载⼊数据 (图⽚)
.计次循环⾸ (位图.取⾼度 (), y)
.计次循环⾸ (位图.取宽度 (), x)
RGB ＝到字节集 (位图.取某点颜⾊ (x － 1, y － 1))
颜⾊值＝ (RGB [1] ＋ RGB [2] ＋ RGB [3]) ÷ 3
.如果 (⼆值化值＜颜⾊值)
位图.置某点颜⾊ (x － 1, y － 1, #⽩⾊)
.否则
位图.置某点颜⾊ (x － 1, y － 1, #⿊⾊)
.如果结束
.计次循环尾 ()
.计次循环尾 ()
返回 (位图.取位图数据 ())
.⼦程序清除杂点, 字节集
.参数图⽚, 字节集, , ⼆值化后的图⽚
.参数清除强度, 整数型, 可空, 默认为1
.局部变量位图, 位图
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 x_, 整数型
.局部变量 y_, 整数型
.局部变量 i, 整数型
.局部变量 a, 整数型
.如果真 (是否为空 (清除强度))
清除强度＝ 1
.如果真结束
位图.载⼊数据 (图⽚)
.计次循环⾸ (位图.取⾼度 (), y)
.计次循环⾸ (位图.取宽度 (), x)
.如果真 (位图.取某点颜⾊ (x － 1, y － 1) ＝ #⿊⾊)
a ＝ 0
.计次循环⾸ (8, i)
x_ ＝多项选择 (i, 0, 1, 1, 1, 0, -1, -1, -1)
y_ ＝多项选择 (i, -1, -1, 0, 1, 1, 1, 0, -1)
.如果真 (位图.取某点颜⾊ (x － 1 － x_, y － 1 － y_) ＝ #⿊⾊)
a ＝ a ＋ 1
.如果真结束
.计次循环尾 ()
.如果真 (a ≤ 清除强度)
位图.置某点颜⾊ (x － 1, y － 1, #⽩⾊)
.如果真结束
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
返回 (位图.取位图数据 ())
.⼦程序反⾊处理, 字节集
.参数图⽚, 字节集
.局部变量位图, 位图
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 RGB, 字节集
位图.载⼊数据 (图⽚)
.计次循环⾸ (位图.取⾼度 (), y)
.计次循环⾸ (位图.取宽度 (), x)
RGB ＝到字节集 (位图.取某点颜⾊ (x － 1, y － 1))
位图.置某点颜⾊ (x － 1, y － 1, 取颜⾊值 (255 － RGB [1], 255 － RGB [2], 255 － RGB [3]))
.计次循环尾 ()
.计次循环尾 ()
返回 (位图.取位图数据 ())
.⼦程序 _按钮_⿊⽩_被单击
画板1.底图＝清除杂点 (⼆值化处理 (画板1.取图⽚ (, ), 150), 0)
.⼦程序 _按钮_反⾊_被单击
画板1.底图＝反⾊处理 (画板1.取图⽚ (, ))
.⼦程序 _滑块条1_位置被改变
调试输出 (滑块条1.位置)
画板1.底图＝读⼊⽂件 (⽂件路径)
画板1.底图＝清除杂点 (⼆值化处理 (画板1.取图⽚ (, ), 滑块条1.位置), 0)
运⾏结果：
总结
以上就是这篇⽂章的全部内容了，希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值，谢谢⼤家对的⽀持。

如果你想了解更多相关内容请查看下⾯相关链接。