大漠AppendPicAddr（）+FindPicMemE（）80张5*5图片，请看题

独特舞步

RT是我代码没写好还是怎样？
一直都是几个地址，长度| 返回几个图片地址就会重复。
80条图片下来，就只有几张图片的地址。我代码错了？还是我用的模块错了？
或者你们有更好的例子可以发出来看看！郁闷了我两三天。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
老地址	文本型
集_图片	字节集

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

大漠初始化 ()
pj.创建dm ()
pj.基本_注册VIP (“”, “”)
子程序_远程_获取图片 ()

子程序名	返回值类型	公开	备 注
子程序_远程_获取图片	文本型

变量名	类 型	静态	数组	备 注
文本	文本型
数组	文本型		0
i	整数型
N	整数型

计次循环首 (6, N)
加入成员 (数组, 字节集_字节集转文本ex (读入文件 (取特定目录 (3) ＋ “\新建文件夹\11” ＋ 到文本 (N) ＋ “.bmp”)))
计次循环尾 ()
计次循环首 (取数组成员数 (数组), i)
集_图片 ＝ 字节集_文本转字节集ex (数组 [i])
老地址 ＝ pj.图色_追加图片 (老地址, 取变量数据地址 (集_图片), 取字节集长度 (集_图片))
计次循环尾 ()
调试输出 (老地址)
返回 (老地址)  ' ***********************************************************我有80张5*5小图片需要识别。返回地址很不理想*************************************************
' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************
' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************
' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************
' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************
' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 老地址, 文本型<br /> .程序集变量 集_图片, 字节集<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 大漠初始化 ()<br /> pj.创建dm ()<br /> pj.基本_注册VIP (“”, “”)<br /> 子程序_远程_获取图片 ()<br /> <br /> .子程序 子程序_远程_获取图片, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 N, 整数型<br /> <br /> .计次循环首 (6, N)<br />     加入成员 (数组, 字节集_字节集转文本ex (读入文件 (取特定目录 (3) ＋ “\新建文件夹\11” ＋ 到文本 (N) ＋ “.bmp”)))<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (数组), i)<br />     集_图片 ＝ 字节集_文本转字节集ex (数组 <i>)<br />     老地址 ＝ pj.图色_追加图片 (老地址, 取变量数据地址 (集_图片), 取字节集长度 (集_图片))<br /> .计次循环尾 ()<br /> 调试输出 (老地址)<br /> 返回 (老地址)  ' ***********************************************************我有80张5*5小图片需要识别。返回地址很不理想*************************************************<br /> ' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************<br /> ' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************<br /> ' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************<br /> ' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************<br /> ' ***************************************************************** 一直几个返回地址就有同样。不知道是哪写错了！！！**********************************************************************

Marvin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
dm	对象

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

dm.创建 (“dm.dmsoft”, )
如果真 (dm.是否为空 () ＝ 假)
dm.写属性 (“Reg”, “”, “”)
调试输出 (“大漠初始化成功”)
子程序_找图 ()
否则
调试输出 (“大漠创建失败”)
结束如果

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

变量名	类 型	静态	数组	备 注
x	整数型
y	整数型
ret	整数型

x ＝ 0
y ＝ 0
ret ＝ dm.数值方法 (“FindPic”, 0, 0, 2000, 2000, 取运行目录 () ＋ “\test.bmp”, “000000”, 0.9, 0, 取变量地址 (x), 取变量地址 (y))
如果 (ret ＝ 1)
调试输出 (“找到图片，坐标：”, x, y)
否则
调试输出 (“未找到图片”)
结束如果

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 dm, 对象<br /> <br /> .子程序 __启动窗口_创建完毕<br /> dm.创建 (“dm.dmsoft”, )<br /> 如果真 (dm.是否为空 () ＝ 假)<br />     dm.写属性 (“Reg”, “”, “”)<br />     调试输出 (“大漠初始化成功”)<br />     子程序_找图 ()<br /> 否则<br />     调试输出 (“大漠创建失败”)<br /> 结束如果<br /> <br /> .子程序 子程序_找图<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 ret, 整数型<br /> x ＝ 0<br /> y ＝ 0<br /> ret ＝ dm.数值方法 (“FindPic”, 0, 0, 2000, 2000, 取运行目录 () ＋ “\test.bmp”, “000000”, 0.9, 0, 取变量地址 (x), 取变量地址 (y))<br /> 如果 (ret ＝ 1)<br />     调试输出 (“找到图片，坐标：”, x, y)<br /> 否则<br />     调试输出 (“未找到图片”)<br /> 结束如果

试下看看

Marvin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
dm	对象

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

dm.创建 (“dm.dmsoft”, )
如果 (dm.是否为空 () ＝ 假)
dm.写属性 (“Reg”, “”, “”)
调试输出 (“大漠初始化成功”)
子程序_多图查找 ()
调试输出 (“大漠创建失败”)
.结束如果

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

变量名	类 型	静态	数组	备 注
文件名	文本型
图串	文本型
结果	文本型

文件名 ＝ 寻找文件 (取运行目录 () ＋ “\*.bmp”, )
判断循环首 (文件名 ≠ “”)
如果 (图串 ＝ “”)
图串 ＝ 取运行目录 () ＋ “\” ＋ 文件名
图串 ＝ 图串 ＋ “|” ＋ 取运行目录 () ＋ “\” ＋ 文件名
.结束如果
文件名 ＝ 寻找文件 (, )
判断循环尾 ()
如果 (图串 ≠ “”)
结果 ＝ dm.文本方法 (“FindPicEx”, 0, 0, 2000, 2000, 图串, “000000”, 0.9, 0)
调试输出 (“找到结果”, 结果)
调试输出 (“目录下无图片”)
.结束如果

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 dm, 对象<br /> <br /> .子程序 __启动窗口_创建完毕<br /> dm.创建 (“dm.dmsoft”, )<br /> .如果 (dm.是否为空 () ＝ 假)<br />     dm.写属性 (“Reg”, “”, “”)<br />     调试输出 (“大漠初始化成功”)<br />     子程序_多图查找 ()<br /> .否则<br />     调试输出 (“大漠创建失败”)<br /> .结束如果<br /> <br /> .子程序 子程序_多图查找<br /> .局部变量 文件名, 文本型<br /> .局部变量 图串, 文本型<br /> .局部变量 结果, 文本型<br /> 文件名 ＝ 寻找文件 (取运行目录 () ＋ “\*.bmp”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     .如果 (图串 ＝ “”)<br />         图串 ＝ 取运行目录 () ＋ “\” ＋ 文件名<br />     .否则<br />         图串 ＝ 图串 ＋ “|” ＋ 取运行目录 () ＋ “\” ＋ 文件名<br />     .结束如果<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> .如果 (图串 ≠ “”)<br />     结果 ＝ dm.文本方法 (“FindPicEx”, 0, 0, 2000, 2000, 图串, “000000”, 0.9, 0)<br />     调试输出 (“找到结果”, 结果)<br /> .否则<br />     调试输出 (“目录下无图片”)<br /> .结束如果

或是用这个多图查找的方式看看，BMP图片直接放在程序同目录下，路径可以自己改下

独特舞步

Marvin 发表于 2026-7-4 08:37
[e=1].版本 2
.支持库 spec

太慢了，我是循环查找。无限循环。必须AppendPicAddr（这个函数不卡80张图片也能顺畅）！有谁会的吗？AppendPicAddr（几张图片返回重复地址。烦 哈哈）

lsm3

  

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

变量名	类 型	静态	数组	备 注
图片数据	文本型
图片1	字节集
图片2	字节集
图片3	字节集
图片4	字节集
图片5	字节集
图片6	字节集
找图	整数型
x	整数型
y	整数型
时间毫秒

时间毫秒 ＝ 取启动时间 ()
图片数据 ＝ “”
图片1 ＝ #aa1
图片2 ＝ #aa2
图片3 ＝ #aa3
图片4 ＝ #aa4
图片5 ＝ #aa5
图片6 ＝ #aa6
' 图片1 ＝ 读入文件 (“./小黄点1.bmp”)
' 图片1 ＝ 图片框1.图片
' 图片2 ＝ 图片框2.图片
' 图片3 ＝ 图片框3.图片
' 图片4 ＝ 图片框4.图片
' 图片5 ＝ 图片框5.图片
' 图片6 ＝ 图片框6.图片
图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片1), 取字节集长度 (图片1))
图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片2), 取字节集长度 (图片2))
图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片3), 取字节集长度 (图片3))
图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片4), 取字节集长度 (图片4))
图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片5), 取字节集长度 (图片5))
图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片6), 取字节集长度 (图片6))
' 找图 ＝ 大漠.FindPicMem (0, 0, 取屏幕宽度 (), 取屏幕高度 (), 大漠.AppendPicAddr (图片数据, 取指针地址 (图片1), 取字节集长度 (图片1)) ＋ “|” ＋ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片2), 取字节集长度 (图片2)), “000000”, 到数值 (编辑框1.内容), 0, x, y)
' 找图 ＝ 大漠.FindPicMem (0, 0, 取屏幕宽度 (), 取屏幕高度 (), 到文本 (取指针地址 (#aa1)) ＋ “,” ＋ 到文本 (取字节集长度 (#aa1)), “000000”, 到数值 (编辑框1.内容), 0, x, y)
找图 ＝ 大漠.FindPicMem (0, 0, 取屏幕宽度 (), 取屏幕高度 (), 图片数据, “000000”, 到数值 (编辑框1.内容), 0, x, y)
如果 (找图 ≥ 0)
气球提示框1.弹出提示框 (x, y, “找到了，在这里！”, #信息图标, 真)
信息编辑框1.加入文本 (“找到了” ＋ 到文本 (找图) ＋ “，耗时：” ＋ 到文本 (取启动时间 () － 时间毫秒) ＋ “毫秒，” ＋ #换行符 ＋ #换行符 )
时间毫秒 ＝ 取启动时间 () － 时间毫秒
气球提示框1.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 (), “没找到”, #信息图标, 真)
信息编辑框1.加入文本 (“没找到” ＋ “，” ＋ 到文本 (找图) ＋ “耗时：” ＋ 到文本 (取启动时间 () － 时间毫秒) ＋ “毫秒，” ＋ #换行符 ＋ #换行符 )

i支持库列表	支持库注释
shellEx	扩展功能支持库一
iext5	扩展界面支持库五

.版本 2<br /> .支持库 shellEx<br /> .支持库 iext5<br /> <br /> .子程序 找图<br /> .局部变量 图片数据, 文本型<br /> .局部变量 图片1, 字节集<br /> .局部变量 图片2, 字节集<br /> .局部变量 图片3, 字节集<br /> .局部变量 图片4, 字节集<br /> .局部变量 图片5, 字节集<br /> .局部变量 图片6, 字节集<br /> .局部变量 找图, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 时间毫秒<br /> <br /> 时间毫秒 ＝ 取启动时间 ()<br /> 图片数据 ＝ “”<br /> 图片1 ＝ #aa1<br /> 图片2 ＝ #aa2<br /> 图片3 ＝ #aa3<br /> 图片4 ＝ #aa4<br /> 图片5 ＝ #aa5<br /> 图片6 ＝ #aa6<br /> ' 图片1 ＝ 读入文件 (“./小黄点1.bmp”)<br /> ' 图片1 ＝ 图片框1.图片<br /> ' 图片2 ＝ 图片框2.图片<br /> ' 图片3 ＝ 图片框3.图片<br /> ' 图片4 ＝ 图片框4.图片<br /> ' 图片5 ＝ 图片框5.图片<br /> ' 图片6 ＝ 图片框6.图片<br /> 图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片1), 取字节集长度 (图片1))<br /> 图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片2), 取字节集长度 (图片2))<br /> 图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片3), 取字节集长度 (图片3))<br /> 图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片4), 取字节集长度 (图片4))<br /> 图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片5), 取字节集长度 (图片5))<br /> 图片数据 ＝ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片6), 取字节集长度 (图片6))<br /> ' 找图 ＝ 大漠.FindPicMem (0, 0, 取屏幕宽度 (), 取屏幕高度 (), 大漠.AppendPicAddr (图片数据, 取指针地址 (图片1), 取字节集长度 (图片1)) ＋ “|” ＋ 大漠.AppendPicAddr (图片数据, 取指针地址 (图片2), 取字节集长度 (图片2)), “000000”, 到数值 (编辑框1.内容), 0, x, y)<br /> ' 找图 ＝ 大漠.FindPicMem (0, 0, 取屏幕宽度 (), 取屏幕高度 (), 到文本 (取指针地址 (#aa1)) ＋ “,” ＋ 到文本 (取字节集长度 (#aa1)), “000000”, 到数值 (编辑框1.内容), 0, x, y)<br /> 找图 ＝ 大漠.FindPicMem (0, 0, 取屏幕宽度 (), 取屏幕高度 (), 图片数据, “000000”, 到数值 (编辑框1.内容), 0, x, y)<br /> .如果 (找图 ≥ 0)<br />     气球提示框1.弹出提示框 (x, y, “找到了，在这里！”, #信息图标, 真)<br />     信息编辑框1.加入文本 (“找到了” ＋ 到文本 (找图) ＋ “，耗时：” ＋ 到文本 (取启动时间 () － 时间毫秒) ＋ “毫秒，” ＋ #换行符 ＋ #换行符)<br />     时间毫秒 ＝ 取启动时间 () － 时间毫秒<br /> .否则<br />     气球提示框1.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 (), “没找到”, #信息图标, 真)<br />     信息编辑框1.加入文本 (“没找到” ＋ “，” ＋ 到文本 (找图) ＋ “耗时：” ＋ 到文本 (取启动时间 () － 时间毫秒) ＋ “毫秒，” ＋ #换行符 ＋ #换行符)<br /> <br /> .如果结束

RainCharm

计次循环首 (6, N)   你自己写死了图片数量

书写寂伤

为什么要改成文本数组呢?直接字节集数组不好吗?转换一遍不知道有没有损坏.,或者自己拼接每张图片的,地址,长度