最新版本大漠插件中文模块【支持4.1320自定义对象类型】

520MXQQ · 发表于 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) 是否找图结束＝假 .判断循环尾 () 按钮_找图并点击.禁止＝假