do loop 循环找数组图片第二轮的时候就提示:下标越界: 'I', _ 综合讨论

查看: 938\|回复: 7	[已解决] do loop 循环找数组图片第二轮的时候就提示:下标越界: 'I... [复制链接]

发送短消息 UID 9479576 帖子 12 精华 0 鲜花 19 朵铜币 40 个银币 25 个性别在线时间 0 注册时间 2025-08-08 最后登录 2025-10-31 查看公共资料搜索主题搜索帖子 asd300300 组别小学一年级 UID9479576 帖子12 精华0 鲜花19 朵铜币40 个银币25 个在线时间0 注册时间2025-08-08	1^# 字体大小: t T 发表于 2025-10-05 00:51 \| \|只看楼主首先自己是一个菜鸟一只喜欢用: picpath=array("","","","" ) do loop 这个组合去找多个图,只要找到一个图就去点击,可是遇到一个问题,页面不动第一次就能成功找到,页面被记事本挡住,然后移动开挡住的记事本,提示一直找不到图,请赐教一下. Call 测试() If x >0 Then TracePrint "恭喜找到的图片:"&picpath(i) End If Function 测试() picpath=array("第二次查询","第五次查询","回收站","计算机" ) i=0 Do FindPic 0, 0, 1920, 1080, "Attachment:\"&picpath(i)&".bmp", 1, x, y If x > 0 Then TracePrint "恭喜找到的图片为:"&picpath(i) 测试 = True Exit Function Else 测试 = False TracePrint "很遗憾没有找到的图片:"&picpath(i) Delay 1000 i=i+1 If i=10 Then TracePrint "第" & i & "次没找到图片退出循环" Exit Do End If End If Loop End Function
	本主题由超级版主瑞祥幽冥狼于 2025/10/14 16:06:25 执行审核帖子操作点赞

	回顶部

发送短消息 UID 3773301 帖子 183 精华 0 鲜花 153 朵铜币 -7094 个银币 146 个性别在线时间 1280 注册时间 2016-02-23 最后登录 2025-10-24 592815248 查看公共资料搜索主题搜索帖子 yl321321 yl321321 组别初中一年级 UID3773301 帖子183 精华0 鲜花153 朵铜币-7094 个银币146 个在线时间1280 注册时间2016-02-23 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	2^# 字体大小: t T 发表于 2025-10-05 12:21 \| \|只看该用户循环完I后，重新赋值I，或者判断I值重新赋值为0


	回顶部

瑞祥幽冥狼

按键工程师 ● 兼职

组别超级版主
UID1228894
帖子27060
精华25
鲜花8236 朵
铜币36314 个
银币4931 个
在线时间421340
注册时间2012-07-18

3^#

字体大小: t T

发表于 2025-10-07 09:30 | |只看该用户

首先自己是一个菜鸟一只喜欢用: picpath=array("","","","" ) do loop 这个组合去找多个图,只要找到一个图就去点击,可是遇到一个问题,页面不动第一次就能成功找到,页面被......
asd300300 发表于 2025/10/5 0:51:32

If 测试() >=0 Then'直接根据函数返回值进行判断
TracePrint "恭喜找到的图片:"&picpath(i)
End If
Function 测试()
picpath=array("第二次查询","第五次查询","回收站","计算机","1" )
测试 = False'开头声明False，找到等于true
For 10
TracePrint "============================="
For i=0 to UBound( picpath)'图片数组下标不能和次数i混用，i=10退出，图片只有4
FindPic 0, 0, 1920, 1080, "C:\"&picpath(i)&".bmp", 1, x, y'不要采用附件路径，存在BUG
If x > 0 Then
TracePrint "恭喜找到的图片为:"&picpath(i)
测试 = i'直接返回找到的下标
Exit Function
Else
TracePrint "很遗憾没有找到的图片:"&picpath(i)
End If
Delay 1000
Next
Next
TracePrint "第10次没找到图片退出循环"
End Function

收徒索引 ← ← ← ← ← ← ← ← ← ← 点击

个人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］

回顶部

发送短消息 UID 9479576 帖子 12 精华 0 鲜花 19 朵铜币 40 个银币 25 个性别在线时间 0 注册时间 2025-08-08 最后登录 2025-10-31 查看公共资料搜索主题搜索帖子 asd300300 组别小学一年级 UID9479576 帖子12 精华0 鲜花19 朵铜币40 个银币25 个在线时间0 注册时间2025-08-08	4^# 字体大小: t T 发表于 2025-10-14 16:04 \| \|只看楼主 , 非常感谢版主谢谢这个代码不能加 do loop 吗因为经常在网页上操作,网页有时候卡好几分钟才显示出来, 也可以把找10次改成找500次,找不到就退出.


	回顶部

瑞祥幽冥狼

按键工程师 ● 兼职

组别超级版主
UID1228894
帖子27060
精华25
鲜花8236 朵
铜币36314 个
银币4931 个
在线时间421340
注册时间2012-07-18

5^#

字体大小: t T

发表于 2025-10-14 16:07 | |只看该用户

,

非常感谢版主谢谢这个代码不能加 do loop 吗因为经常在网页上操作,网页有时候卡好几分钟才显示出来, 也可以把找10次改成找500次,找不到就退出.
asd300300 发表于 2025/10/14 16:04:38

If
测试()
>=0
Then'直接根据函数返回值进行判断
TracePrint
"恭喜找到的图片:"&picpath(i)
End
If
Function
测试()
picpath=array("第二次查询","第五次查询","回收站","计算机","1"
)
测试
=
False'开头声明False，找到等于true
Do
TracePrint
"============================="
For
i=0
to
UBound(
picpath)'图片数组下标不能和次数i混用，i=10退出，图片只有4
FindPic
0,
0,
1920,
1080,
"C:\"&picpath(i)&".bmp",
1,
x,
y'不要采用附件路径，存在BUG
If
x
>
0
Then
TracePrint
"恭喜找到的图片为:"&picpath(i)
测试
=
i'直接返回找到的下标
Exit
Function
Else
TracePrint
"很遗憾没有找到的图片:"&picpath(i)
End
If
Delay
1000
Next
Loop
End
Function

收徒索引 ← ← ← ← ← ← ← ← ← ← 点击

个人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］

回顶部

瑞祥幽冥狼

按键工程师 ● 兼职

组别超级版主
UID1228894
帖子27060
精华25
鲜花8236 朵
铜币36314 个
银币4931 个
在线时间421340
注册时间2012-07-18

6^#

字体大小: t T

发表于 2025-10-14 16:08 | |只看该用户

,

非常感谢版主谢谢这个代码不能加 do loop 吗因为经常在网页上操作,网页有时候卡好几分钟才显示出来, 也可以把找10次改成找500次,找不到就退出.
asd300300 发表于 2025/10/14 16:04:38

If 测试() >=0 Then'直接根据函数返回值进行判断
TracePrint "恭喜找到的图片:"&picpath(i)
End If
Function 测试()
picpath=array("第二次查询","第五次查询","回收站","计算机","1" )
测试 = False'开头声明False，找到等于true
Do
TracePrint "============================="
For i=0 to UBound( picpath)'图片数组下标不能和次数i混用，i=10退出，图片只有4
FindPic 0, 0, 1920, 1080, "C:\"&picpath(i)&".bmp", 1, x, y'不要采用附件路径，存在BUG
If x > 0 Then
TracePrint "恭喜找到的图片为:"&picpath(i)
测试 = i'直接返回找到的下标
Exit Function
Else
TracePrint "很遗憾没有找到的图片:"&picpath(i)
End If
Delay 1000
Next
Loop
End Function

收徒索引 ← ← ← ← ← ← ← ← ← ← 点击

个人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］

回顶部

发送短消息 UID 9479576 帖子 12 精华 0 鲜花 19 朵铜币 40 个银币 25 个性别在线时间 0 注册时间 2025-08-08 最后登录 2025-10-31 查看公共资料搜索主题搜索帖子 asd300300 组别小学一年级 UID9479576 帖子12 精华0 鲜花19 朵铜币40 个银币25 个在线时间0 注册时间2025-08-08	7^# 字体大小: t T 发表于 2025-10-18 16:50 \| \|只看楼主 , 哇塞非常感谢版主,不知道怎么答谢你,你这个代码确实可以每次都会把图片全部找一编,帮了我大忙,以前以为别人给我的那个代码就可以通用应付很多场所,没想到它的缺陷就是第二次重新找图的时候就提示越界祝版主大人日赚斗金


	回顶部

发送短消息 UID 9470270 帖子 8 精华 0 鲜花 13 朵铜币 27 个银币 17 个性别在线时间 0 注册时间 2025-07-14 最后登录 2025-10-31 查看公共资料搜索主题搜索帖子祝愿世界和平！组别按键精灵会员 UID9470270 帖子8 精华0 鲜花13 朵铜币27 个银币17 个在线时间0 注册时间2025-07-14	8^# 字体大小: t T 发表于 2025-10-19 12:40 \| \|只看该用户我是新人但是每次看到超级版主狼哥的回复或者是几年前的教学帖子都感到收益颇多。


	回顶部

上一主题| 下一主题

发送短消息 UID 9479576 帖子 12 精华 0 鲜花 19 朵铜币 40 个银币 25 个性别在线时间 0 注册时间 2025-08-08 最后登录 2025-10-31 查看公共资料搜索主题搜索帖子 asd300300 组别小学一年级 UID9479576 帖子12 精华0 鲜花19 朵铜币40 个银币25 个在线时间0 注册时间2025-08-08	1^# 字体大小: t T 发表于 2025-10-05 00:51 \| \|只看楼主首先自己是一个菜鸟一只喜欢用: picpath=array("","","","" ) do loop 这个组合去找多个图,只要找到一个图就去点击,可是遇到一个问题,页面不动第一次就能成功找到,页面被记事本挡住,然后移动开挡住的记事本,提示一直找不到图,请赐教一下. Call 测试() If x >0 Then TracePrint "恭喜找到的图片:"&picpath(i) End If Function 测试() picpath=array("第二次查询","第五次查询","回收站","计算机" ) i=0 Do FindPic 0, 0, 1920, 1080, "Attachment:\"&picpath(i)&".bmp", 1, x, y If x > 0 Then TracePrint "恭喜找到的图片为:"&picpath(i) 测试 = True Exit Function Else 测试 = False TracePrint "很遗憾没有找到的图片:"&picpath(i) Delay 1000 i=i+1 If i=10 Then TracePrint "第" & i & "次没找到图片退出循环" Exit Do End If End If Loop End Function
	本主题由超级版主瑞祥幽冥狼于 2025/10/14 16:06:25 执行审核帖子操作点赞

	回顶部

[已解决] do loop 循环找数组图片第二轮的时候就提示:下标越界: 'I... [复制链接]