[已解决] 这个代码逻辑检查不出来问题，却无法运行，咋回事 [复制链接]

Dim 判断人物状态
Dim 色值1旧,色值2旧,色值3旧
Dim 色值1新,色值2新,色值3新
色值1旧 = GetPixelColor(403,545)
色值2旧 = GetPixelColor(401,713)
色值3旧 = GetPixelColor(302,629)
Delay 1000
色值1新 = GetPixelColor(403,545)
色值2新 = GetPixelColor(401,713)
色值3新 = GetPixelColor(302, 629)

Dim 静止计数 = 0
If 色值1旧 = 色值1新 Then 静止计数 = 静止计数 + 1
Else 静止计数 = 0
End If
If 色值2旧 = 色值2新 Then 静止计数 = 静止计数 + 1
Else 静止计数 = 0
End If
If 色值3旧 = 色值3新 Then 静止计数 = 静止计数 + 1
Else 静止计数 = 0
End If

If 静止计数 ＞= 2 Then
判断人物状态 = 0
TracePrint 判断人物状态
Else
判断人物状态 = 1
TracePrint 判断人物状态
End If