Function 多点比色(参数) //多点比色
Dim 计数君 = 0
Dim 等待次数 = 0
Do While(1)
Delay 延时
If 等待次数 = 0 Then
If CmpColorEx(参数(0),相似度) = 1 Then
Delay 延时
Tap 参数(1), 参数(2)
计数君 = 0
等待次数 = 1
End If
Else
等待次数 = 等待次数+1
End If
Delay 延时
If CmpColorEx(参数(3), 相似度) = 1 Then
Exit Do
End If
If 计数君 > 50 Then
TracePrint "网络超时"
Exit Do
Else
计数君=计数君+1
End If
If 等待次数 >2 Then
等待次数 = 0
End If
Delay 延时
Loop
End Function
觉得这个函数有点问题,等待次数只要大于2就会被设为0,当等待次数为0的时候就会进行比较CmpColorEx(参数(0),相似度),这时候假如断网了,当前页面没发生变化,那么CmpColorEx(参数(0),相似度)就会等于1,接着计数君会被设置为0,那么就是个死循环,计数君永远不会大于50