易语言大漠找图点击示例

jingyi11023995

界面如下：

说明：请自行添加大漠模块到易语言库中，资源#dmdll为文件“dm.dll”。
源码如下：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
dm	大漠插件
intX	整数型
intY	整数型
是否找图结束	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

_启动窗口.左边 ＝ 0
_启动窗口.顶边 ＝ 0
创建大漠对象 ()
' 设置大漠工作路径 (取运行目录 () ＋ “\bmp”)

子程序名	返回值类型	公开	备 注
创建大漠对象

如果 (dm.创建 () ＝ 真) ' 创建大漠对象

写到文件 (“c:\dm.dll”, #dmdll ) ' 创建大漠对象失败，再次尝试
运行 (“regsvr32 c:\dm.dll”, 真, )
如果 (dm.创建 () ＝ 真) ' 创建大漠对象

信息框 (“注册大漠插件失败，可能需要管理员权限，请尝试用管理员身份运行以下命令（regsvr32 c:\dm.dll）”, 0, , ) ' 创建大漠对象失败，提示
结束 ()

dm.SetPath (取运行目录 () ＋ “\bmp”) ' 设置路径

子程序名	返回值类型	公开	备 注
设置大漠工作路径
参数名	类 型	参考	可空	数组	备 注
path	文本型

dm.SetPath (path)

子程序名	返回值类型	公开	备 注
选择图片文件

通用对话框1.类型 ＝ 0 ' 打开文件
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “图片文件(*.bmp)|*.bmp”
通用对话框1.打开 ()
编辑框_图片路径.内容 ＝ 通用对话框1.文件名

子程序名	返回值类型	公开	备 注
找图

是否找图结束 ＝ 假
判断 (编辑框_图片路径.内容 ＝ “”)
信息框 (“没有选择图片文件”, 0, “提示”, )
dm.FindPic (0, 0, 2000, 2000, 编辑框_图片路径.内容, “000000”, 0.9, 0, intX, intY)
编辑框_X.内容 ＝ 到文本 (intX)
编辑框_Y.内容 ＝ 到文本 (intY)
是否找图结束 ＝ 真

子程序名	返回值类型	公开	备 注
点击

判断 (intX ＞ -1)
dm.MoveTo (intX, intY)
模拟鼠标点击 (intX, intY, #接口常量 .左键单击)
信息框 (“没有找到图片”, 0, “提示”, )

子程序名	返回值类型	公开	备 注
_按钮_选择图片_被单击

选择图片文件 ()

子程序名	返回值类型	公开	备 注
_按钮_找图_被单击

按钮_找图.禁止 ＝ 真
找图 ()
按钮_找图.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮_找图并点击_被单击

按钮_找图并点击.禁止 ＝ 真
找图 ()
判断循环首 (是否找图结束 ＝ 真)
点击 ()
延迟 (100)
是否找图结束 ＝ 假
判断循环尾 ()
按钮_找图并点击.禁止 ＝ 假

i支持库列表	支持库注释
dm	(未知支持库)
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 dm<br /> .支持库 eAPI<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 dm, 大漠插件<br /> .程序集变量 intX, 整数型<br /> .程序集变量 intY, 整数型<br /> .程序集变量 是否找图结束, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> _启动窗口.左边 ＝ 0<br /> _启动窗口.顶边 ＝ 0<br /> 创建大漠对象 ()<br /> ' 设置大漠工作路径 (取运行目录 () ＋ “\bmp”)<br /> <br /> .子程序 创建大漠对象<br /> <br /> .如果 (dm.创建 () ＝ 真) ' 创建大漠对象<br /> <br /> .否则<br /> 写到文件 (“c:\dm.dll”, #dmdll) ' 创建大漠对象失败，再次尝试<br /> 运行 (“regsvr32 c:\dm.dll”, 真, )<br /> .如果 (dm.创建 () ＝ 真) ' 创建大漠对象<br /> <br /> .否则<br /> 信息框 (“注册大漠插件失败，可能需要管理员权限，请尝试用管理员身份运行以下命令（regsvr32 c:\dm.dll）”, 0, , ) ' 创建大漠对象失败，提示<br /> 结束 ()<br /> .如果结束<br /> <br /> .如果结束<br /> dm.SetPath (取运行目录 () ＋ “\bmp”) ' 设置路径<br /> <br /> <br /> .子程序 设置大漠工作路径<br /> .参数 path, 文本型<br /> <br /> dm.SetPath (path)<br /> <br /> .子程序 选择图片文件<br /> <br /> 通用对话框1.类型 ＝ 0 ' 打开文件<br /> 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> 通用对话框1.过滤器 ＝ “图片文件(*.bmp)|*.bmp”<br /> 通用对话框1.打开 ()<br /> 编辑框_图片路径.内容 ＝ 通用对话框1.文件名<br /> <br /> <br /> .子程序 找图<br /> <br /> 是否找图结束 ＝ 假<br /> .判断开始 (编辑框_图片路径.内容 ＝ “”)<br /> 信息框 (“没有选择图片文件”, 0, “提示”, )<br /> .默认<br /> dm.FindPic (0, 0, 2000, 2000, 编辑框_图片路径.内容, “000000”, 0.9, 0, intX, intY)<br /> 编辑框_X.内容 ＝ 到文本 (intX)<br /> 编辑框_Y.内容 ＝ 到文本 (intY)<br /> .判断结束<br /> 是否找图结束 ＝ 真<br /> <br /> .子程序 点击<br /> <br /> .判断开始 (intX ＞ -1)<br /> dm.MoveTo (intX, intY)<br /> 模拟鼠标点击 (intX, intY, #接口常量.左键单击)<br /> .默认<br /> 信息框 (“没有找到图片”, 0, “提示”, )<br /> .判断结束<br /> <br /> <br /> .子程序 _按钮_选择图片_被单击<br /> <br /> 选择图片文件 ()<br /> <br /> .子程序 _按钮_找图_被单击<br /> <br /> 按钮_找图.禁止 ＝ 真<br /> 找图 ()<br /> 按钮_找图.禁止 ＝ 假<br /> <br /> .子程序 _按钮_找图并点击_被单击<br /> <br /> 按钮_找图并点击.禁止 ＝ 真<br /> 找图 ()<br /> .判断循环首 (是否找图结束 ＝ 真)<br /> 点击 ()<br /> 延迟 (100)<br /> 是否找图结束 ＝ 假<br /> .判断循环尾 ()<br /> 按钮_找图并点击.禁止 ＝ 假

补充内容 (2020-5-22 10:49):
源码请到52楼，谢谢大家的回复。

sukai23

qzmylove

66666666666666

tangxiaop

我要下载，谢谢

月月123

适合新手吧。  或者想学大漠之类的。  可以看下。

a1pha

你放的这个东西能用？？

tangxiaop

1111111111111111111

w62695233

二哥同人歌特工

w62695233

水电费水电费水电费水电费

杜郎口

谢谢大家的回复。

camel0170

谢谢分享