按键精灵如何读取同一文件夹内文件名为数字递增的图片
比如同一文件夹内有图片名为1、2、3的图片;依次读取图片之后,识别图片,执行相同操作;但是不知道怎么读取;Remxhinti=1DimaRemcr1Whilei<21a=...
比如同一文件夹内有图片名为1、2、3的图片;依次读取图片之后,识别图片,执行相同操作;但是不知道怎么读取;
Rem xh
int i = 1
Dim a
Rem cr1
While i < 21
a ="D:\创建分身\"&i&".bmp"
FindPic 0,0,1920,1080,"a",1,intX,intY
If intX > 0 And intY > 0 Then
MessageBox "1"
MoveTo intX, intY
Delay 400
LeftClick 1
Delay 200
KeyPress "F3", 1
i=i+1
Delay 400
Goto cr2
Else
MessageBox "2"
Goto cr1
End If
Wend
Rem cr2
While 1 = 1
If i = 15 Then
MessageBox "请手动滑动到顶端"
Delay 2000
End If
If i = 18 Then
MessageBox "请手动滑动到顶端"
Delay 2000
End If
FindPic 0,0,1920,1080,"D:\创建分身\21.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Delay 200
Else
Goto cr1
End If
Wend 展开
Rem xh
int i = 1
Dim a
Rem cr1
While i < 21
a ="D:\创建分身\"&i&".bmp"
FindPic 0,0,1920,1080,"a",1,intX,intY
If intX > 0 And intY > 0 Then
MessageBox "1"
MoveTo intX, intY
Delay 400
LeftClick 1
Delay 200
KeyPress "F3", 1
i=i+1
Delay 400
Goto cr2
Else
MessageBox "2"
Goto cr1
End If
Wend
Rem cr2
While 1 = 1
If i = 15 Then
MessageBox "请手动滑动到顶端"
Delay 2000
End If
If i = 18 Then
MessageBox "请手动滑动到顶端"
Delay 2000
End If
FindPic 0,0,1920,1080,"D:\创建分身\21.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Delay 200
Else
Goto cr1
End If
Wend 展开
4个回答
展开全部
你这里说的读取是什么意思?打图部分不是已经写好了吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用大漠插件吧,一次性找多张图
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
int i = i+1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你可以下载个批量重命名工具 可以添加前缀
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询