易语言大漠找图点击示例 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
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 />
按钮_找图并点击.禁止 ＝ 假