UserVar Cishu=1 "循环次数"
UserVar Yanshi=200 "两次点击的时间间隔（毫秒）"
Dim QQ,i
QQ = Array("游历","继续","关闭")
//5个图片分别命名为：图0--图4，添加到附件中。
Do //开始找图。
i = 0
Do
FindPic 1127,1118,1512,1377,"Attachment:\"&QQ(i)&".bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "找到图" & i & "。"
Delay 60
Call 子程序判断()
Else
TracePrint "没有找到图"&i&"。"
End If
i = i + 1
Loop Until i = 3
Delay 100
TracePrint "进入下一轮找图。"
Loop //回到开始找图。
Sub 子程序判断()
If i = 0 Then
Call 游历()
ElseIf i = 1 Then
Call 继续()
ElseIf i = 2 Then
Call 关闭()
//ElseIf i = 3 Then
//Call 子程序3()
//ElseIf i = 4 Then
//Call 子程序4()
End If
End Sub
Sub 游历()
Delay 60
// MessageBox "找到游历"
MoveTo 970, 238
LeftClick 1
Delay Yanshi
//这里加入，找到图1后的代码。
End Sub
Sub 继续()
Delay 60
// MessageBox "找到继续"
MoveTo intX, intY
LeftClick 1
Delay 200
LeftClick 1
Delay 200
LeftClick 1
Delay 200
//这里加入，找到图2后的代码。
End Sub
Sub 关闭()
Delay 60
// MessageBox "找到关闭"
MoveTo intX-125, intY
LeftClick 1
Delay 200
LeftClick 1
Delay 200
LeftClick 1
Delay 200
LeftClick 1
Delay 200
//这里加入，找到图3后的代码。
End Sub
Sub 子程序3()
Delay 60
//这里加入，找到图4后的代码。
End Sub
Sub 子程序4()
Delay 60
//这里加入，找到图5后的代码。
End Sub
、别的不管他的，就关闭这个子程序在找到关闭这个子程序运行10次后就结束脚本