服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - 易语言 - 易语言利用鼠标模拟点击的方式实现自动画图的代码

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

2022-02-21 16:35易语言源码教程 易语言

今天小编就为大家分享一篇关于易语言利用鼠标模拟点击的方式实现自动画图的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧

DLL命令表

?
1
2
3
4
5
6
.版本 2
.DLL命令 PostMessageA, 整数型, "user32.dll", "PostMessageA", , 如果函数调用成功,返回非零值:如果函数调用失败,返回值是零
  .参数 hWnd, 整数型, , 其窗口程序接收消息的窗口的句柄
  .参数 Msg, 整数型, , 指定被寄送的消息
  .参数 wParam, 整数型, , 指定附加的消息特定的信息
  .参数 IParam, 整数型, , 指定附加的消息特定的信息

自动绘画的代码

此功能需要加载精易模块5.6

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
.版本 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)

运行结果:

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

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接

延伸 · 阅读

精彩推荐
  • 易语言一步一步跟我学易语言之第二个易程序菜单设计

    一步一步跟我学易语言之第二个易程序菜单设计

    今天小编就为大家分享一篇关于的一步一步跟我学易语言之第二个易程序菜单设计,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要...

    易语言帮助手册7092021-06-17
  • 易语言易语言生成exe文件的方法

    易语言生成exe文件的方法

    在本篇内容中小编给大家分享的是关于易语言生成exe文件的方法知识点,需要的朋友们参考下。...

    易语言教程网14792022-03-01
  • 易语言实例操作易语言载入窗口

    实例操作易语言载入窗口

    在本文中小编给大家整理的是关于易语言载入窗口的教程和步骤内容,需要的可以跟着学习下...

    易语言教程网19162022-03-02
  • 易语言易语言设置进度条边框样式的方法

    易语言设置进度条边框样式的方法

    今天小编就为大家分享一篇关于易语言设置进度条边框样式的方法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随...

    易语言帮助手册4422022-01-20
  • 易语言易语言关于程序进程和线程的基础知识

    易语言关于程序进程和线程的基础知识

    今天小编就为大家分享一篇关于易语言关于程序进程和线程的基础知识,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起...

    三叶资源网6662022-02-24
  • 易语言一步一步跟我学易语言之关于变量

    一步一步跟我学易语言之关于变量

    今天小编就为大家分享一篇关于一步一步跟我学易语言之关于变量,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随...

    易语言帮助手册10822021-06-17
  • 易语言易语言在画板中写出指定文本当画板中已满会自动滚屏

    易语言在画板中写出指定文本当画板中已满会自动滚屏

    今天小编就为大家分享一篇关于易语言在画板中写出指定文本当画板中已满会自动滚屏,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,...

    易语言帮助手册9092022-01-12
  • 易语言易语言获取指定磁盘的名称

    易语言获取指定磁盘的名称

    今天小编就为大家分享一篇关于易语言获取指定磁盘的名称,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来...

    易语言帮助手册12662022-01-04