Question

按键精灵大漠找多图如何能实现逐个点击拾起？

刚接触按键精灵，而且不会编程，
看教程 写了下面代码，可是不拾取，什么原因，有大神来帮忙么？
就是游戏 装备拾取的问题。。

Plugin.dm.FindPic 400,120,1200,500,"D:\Program Files\jietu\T001.bmp|D:\Program Files\jietu\T002.bmp|D:\Program Files\jietu\T003.bmp|D:\Program Files\jietu\T004.bmp|D:\Program Files\jietu\T005.bmp|D:\Program Files\jietu\T006.bmp|D:\Program Files\jietu\T007.bmp|D:\Program Files\jietu\T008.bmp|","202020",0.7,0,intX,intY
If intX > 0 Then
MoveTo intX + 5, intY + 5
Delay 200
LeftClick 1
Delay 1000
End If

Answer 1

你这是区域找多图，先找到哪个图，就返回哪个图的坐标，这个适合，只要找到其中一个就返回找到的坐标。
全部找一遍的话 只能一个个找。你找的图太多，所以也不适合多线程一起找，否者卡死~

Answer 2

你知道这个找多图的含义的?
这代码是这些图中找到其中一个图就返回xy坐标,同时代码也停止了 ,并不是把这些图全部找一遍

追问

有其他办法可以办到么？
至少有三样东西是比较重要的 需要判定拾取，
第一次找一遍，返回一个地址，在重复进行呢？直到 X,Y<0

追答

在重复进行呢？直到 X,Y<0

你这个思路是不行的,当出现一次找不到,就会返回 -1,那么就不找了,

所以要用限时找图,比如2秒没找到图,就结束,如果找到一个,继续找2秒,直到2秒内没找到图

For i = 1 To 999

    IsFile = Plugin.File.IsFileExist("D:\Program Files\jietu\T00" & i & ".bmp")

    If IsFile = True Then 

        图集 = 图集 & "D:\Program Files\jietu\T00" & i & ".bmp|"

    Else 

        图集 = Mid(图集, 1, len(图集) - 1)

        Exit For

    End If

Next

保存时间 = timer

Do

    返回值 = dm.FindPic(400, 120, 1200, 500, 图集, "202020", 0.7, 0, intX, intY)

    TracePrint "返回值: " & 返回值

    If 返回值 <> - 1  Then 

        TracePrint "找到 第 " & 返回值 + 1 & " 个图"

        MoveTo intX + 5, intY + 5

        Delay 200

        LeftClick 1

        Delay 1000

        保存时间 = timer

    ElseIf timer - 保存时间 > 3 Then'3秒内没找到任何图退出

        Exit Do

    End If

    Delay 200

Loop

MessageBox "找图结束"

For i = 1 To 999

    IsFile = Plugin.File.IsFileExist("D:\Program Files\jietu\T00" & i & ".bmp")

    If IsFile = True Then 

        图集 = 图集 & "D:\Program Files\jietu\T00" & i & ".bmp|"

        序号 = 序号 & " i |"

    Else 

        图集 = Mid(图集, 1, len(图集) - 1)

        Exit For

    End If

Next

TracePrint "要找的图: " & 序号

保存时间 = timer

Do

    返回值 = dm.FindPic(400, 120, 1200, 500, 图集, "202020", 0.7, 0, intX, intY)

    TracePrint "返回值: " & 返回值

    If 返回值 <> - 1  Then 

        TracePrint "找到 第 " & 返回值 + 1 & " 个图"

        MoveTo intX + 5, intY + 5

        Delay 200

        LeftClick 1

        Delay 1000

        保存时间 = timer

    ElseIf timer - 保存时间 > 3 Then'3秒内没找到任何图退出

        Exit Do

    End If

    Delay 200

Loop

MessageBox "找图结束"

For i = 1 To 999

    IsFile = Plugin.File.IsFileExist("D:\Program Files\jietu\T00" & i & ".bmp")

    If IsFile = True Then 

        图集 = 图集 & "D:\Program Files\jietu\T00" & i & ".bmp|"

        序号 = 序号 & i & "|"

    Else 

        图集 = Mid(图集, 1, len(图集) - 1)

        Exit For

    End If

Next

TracePrint "要找的图: " & 序号

保存时间 = timer

Do

    返回值 = dm.FindPic(400, 120, 1200, 500, 图集, "202020", 0.7, 0, intX, intY)

    TracePrint "返回值: " & 返回值

    If 返回值 <> - 1  Then 

        TracePrint "找到 第 " & 返回值 + 1 & " 个图"

        MoveTo intX + 5, intY + 5

        Delay 200

        LeftClick 1

        Delay 1000

        保存时间 = timer

    ElseIf timer - 保存时间 > 3 Then'3秒内没找到任何图退出

        Exit Do

    End If

    Delay 200

Loop

MessageBox "找图结束"

For i = 1 To 999

    IsFile = Plugin.File.IsFileExist("D:\Program Files\jietu\T00" & i & ".bmp")

    If IsFile = True Then 

        图集 = 图集 & "D:\Program Files\jietu\T00" & i & ".bmp|"

        序号 = 序号 & i & "|"

    Else 

        图集 = Mid(图集, 1, len(图集) - 1)

        Exit For

    End If

Next

TracePrint "要找的图: " & 序号

保存时间 = timer

Do

    返回值 = dm.FindPic(400, 120, 1200, 500, 图集, "202020", 0.7, 0, intX, intY)

    TracePrint "返回值: " & 返回值

    If 返回值 <> - 1  Then 

        TracePrint "找到 第 " & 返回值 + 1 & " 个图"

        MoveTo intX + 5, intY + 5

        Delay 200

        LeftClick 1

        Delay 1000

        保存时间 = timer

    ElseIf timer - 保存时间 > 3 Then'3秒内没找到任何图退出

        Exit Do

    End If

    Delay 200

Loop

MessageBox "找图结束"

追问

谢谢大神，脚本好用，
不过还得麻烦你 再看看，调试信息 似乎每次找图都会增加一遍，
而且越找越慢，是不是哪里还有问题？

追答

For i = 1 To 999

IsFile = Plugin.File.IsFileExist("D:\Program Files\jietu\T00" & i & ".bmp")

If IsFile = True Then

图集 = 图集 & "D:\Program Files\jietu\T00" & i & ".bmp|"

序号 = 序号 & i & "|"

Else

图集 = Mid(图集, 1, len(图集) - 1)

Exit For

End If

Next

TracePrint "要找的图: " & 序号
这个代码只要开始调用一次就行了, 把所有图片名保存起来. 你反复调用就会重复增加图片名,那当然调用几次就会有几个相同的图片名

如果要放后面也行,在for循环开头清空一下 图集 ,不过还是建议放脚本开头执行一次

Answer 3

你确定找到图了？

追问

能确定找到图了，前面几个标记，后面加个 goto 还可以捡到两个到三个，
实验 时候最多能捡到三个，之后鼠标就飘走了。