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

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

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
//==========
昨天改了一个，不知道为什么没回上贴。根据楼主的改了一下，可能、大概是没问题了。