帮忙写一个找图的，谢谢 [复制链接]

找不到第一张图片的时候一直找第一张图片， 找到了之后在去找第二张图片

Do
FindPic 0,0,1440,900,"Attachment:\tx.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到了
MoveTo intX, intY
LeftClick 1
Goto 跳出循环
Else
End If
Delay 999
FindPic 0,0,1440,900,"Attachment:\bf.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到了
MoveTo intX, intY
LeftClick 1
Goto 跳出循环
Else
End If
Loop
Rem 跳出循环








找到第一张图片后， 跳出之后不去找第二张图片， 是什么回事，

Do
rem 循环1
FindPic 0,0,1440,900,"Attachment:\tx.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到了
MoveTo intX, intY
LeftClick 1
Goto 循环2
Else
Goto 循环1
End If
rem 循环2
Delay 999
FindPic 0,0,1440,900,"Attachment:\bf.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到了
MoveTo intX, intY
LeftClick 1
Goto 跳出循环
Else
Goto 循环2
End If
Loop
Rem 跳出循环

在VBScript中，可以通过 WScript.Shell 对象来运行按键精灵脚本。按键精灵是一款自动化软件，通常可以通过命令行参数来运行指定的脚本文件。以下是一个示例代码，展示如何在VBScript中直接运行指定的按键精灵脚本：' 创建WScript.Shell对象
Set WshShell = WScript.CreateObject("WScript.Shell")

' 定义按键精灵的路径和脚本文件路径
Dim KeyQinPath
Dim ScriptPath

' 按键精灵的安装路径（请根据实际情况修改）
KeyQinPath = """C:\Program Files\按键精灵\按键精灵.exe"""

' 脚本文件的路径（请根据实际情况修改）
ScriptPath = """C:\YourScriptPath\YourScript.vbs"""

' 使用按键精灵运行指定的脚本
WshShell.Run KeyQinPath & " " & ScriptPath

' 释放对象
Set WshShell = Nothing

Do
Delay 20//加适量延时
FindPic 0,0,1440,900,"Attachment:\tx.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到了
//MoveTo intX, intY//只找到第一张图，不用移动鼠标
//LeftClick 1//只找到第一张图，不用单击
//Goto 跳出循环
//Else
Exit Do//跳出Do循环
End If
Loop//Do循环结束
Rem 第二张图 //标记找第二张图
Delay 100//减少延时
FindPic 0,0,1440,900,"Attachment:\bf.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//找到了
MoveTo intX, intY
LeftClick 1
Goto 跳出循环
Else
Goto 第二张图//跳转到找第二张图
End If
//Loop
Rem 跳出循环
拿楼主的修改一下，不需要的语句都注释掉了，1秒延迟改成100毫秒，不够的话再改回来。应该、大概、可能没问题了

Rem 找第一张图
Do
FindPic 0,0,1440,900,"Attachment:\tx.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 10
TracePrint "找到第一张图片"
Exit Do//结束DO循环
End If
Loop
Rem 找第二张图
Delay 100
FindPic 0,0,1440,900,"Attachment:\bf.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "找到第二张图片"
Delay 20
MoveTo intX, intY
Delay 50
LeftClick 1
Delay 150
Else
Delay 10
TracePrint "没有找到第二张图片，再找"
Goto 找第二张图
End If
//==========
昨天改了一个，不知道为什么没回上贴。根据楼主的改了一下，可能、大概是没问题了。

Function dmWaiImg(x1, y1, x2, y2, Pic_name, delta_color, sim, dir,dm_Time) '大漠找多图,在指定时间内等待图片出现
Dim picArr, s, ss, i, id, result , freq
freq = 1
picArr = Split(Pic_name, "|")
For dm_Time * 10
dm_ret = dm.FindPicEx(x1, y1, x2, y2, Pic_name, delta_color, sim, dir)
If Len(dm_ret) > 0 Then
s = Split(dm_ret, "|")
TracePrint "dm正在找如下 " & (UBound(picArr)+1) & " 张图片"
For i = 0 To UBound(s)
ss = Split(s(i), ",")
FileName = picArr(ss(0)) '文件名数组 得到图片名字
intX = ss(1) : intY = ss(2)
result = result & "|" & FileName & "," & intX & "," & intY
TracePrint "dm找图预算 " & dm_Time & " 秒时间内" & "找到了第 " & i + 1 & " 张 图片名: " & FileName & " " & ",xy坐标分别: " & intX & " , " & intY
Delay 100
' Call 鼠标慢移(intX + 20, intY + 10)
'LeftClick 1
Next
If dmWaiImg > - 1 Then
Exit For    
End If
Else
TracePrint "dm在等待目标图片出现！目标图片还没有被找到..." & freq & " 秒"
freq = freq + 1 '在等待时间内 无论图片有没有出现都跳出循环
If freq = dm_Time Then
Exit For    
End If
End If
Delay 500
Next
End Function

Do
// 第一步：查找第一张图片
FindPic 0, 0, 1920, 1080, "第一张图.bmp", 0.9, intX1, intY1
If intX1 > 0 And intY1 > 0 Then
// 第二步：找到第一张图后，查找第二张图
FindPic 0, 0, 1920, 1080, "第二张图.bmp", 0.9, intX2, intY2
If intX2 > 0 And intY2 > 0 Then
// 第三步：找到第二张图后点击
MoveTo intX2, intY2 //鼠标点击第二图的坐标
LeftClick 1
Exit Do // 点击后退出循环
End If
End If
Delay 500
Loop