|
发表于 2016-5-8 21:14:03
|
显示全部楼层
广东省深圳市
.版本 2 .支持库 dm .支持库 eAPI .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 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) 是否找图结束 = 假 .判断循环尾 () 按钮_找图并点击.禁止 = 假 |
|