|
Function 判断2(数组特征, S)
判断2 = False
If IsNull(数组特征) Then Exit Function
If 比例 10801920 Then Exit Function Else ResetScreenScale
If (数组特征(0) null and 数组特征(1) null) and (not (IsNumeric(数组特征(0))) and not (IsNumeric(数组特征(1)))) Then Do : MS "数组特征有误" & 数组特征(0) & 数组特征(1) : Delay 1000 : Loop
Dim OK = False , sm = 0.9,arr() = 数组特征
If arr(2) = "" then
判断2 = GetPixelColor (arr(0),arr(1))
设置基础分辨率
Exit Function
ElseIf not(IsNull(arr(5))) = true and not (IsNumeric(arr(5))) Then
If not(IsNull(arr(6))) Then sm = arr(6)
FindMultiColor arr(0),arr(1),arr(2),arr(3),arr(4),arr(5), 0, sm,intX,intY
If intX > -1 Then OK = True
ElseIf arr(7) = "" Then
FindColor arr(0), arr(1), arr(2), arr(3), arr(4), arr(5),0, arr(6), sm, intX, intY
If intX>-1 then OK=True
ElseIf not (IsNumeric(arr(0))) then
IF NOT(IsNull (arr(1))) then sm = arr(1)
if CmpColorEx(arr(0),sm) = 1 then 取坐标 (arr(0)): OK =true
ElseIf Not (IsNull(arr(4))) and Not (IsNull(arr(5))) and IsNumeric(arr(6)) Then
图ID = FindPic(arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 0, arr(6), intX, intY)
If 图ID > -1 Then OK = TRUE
Else
ms "无法判断的颜色数组"
ElseIf not (IsNull(arr(4))) and not (IsNull(arr(5))) And IsNumeric(arr(6)) Then
图ID = FindPic(arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 0, arr(6), intX, intY)
If 图ID>-1 then OK=true
Else
ms "无法判断的颜色数组"
End If
If OK and S "" then ms S
判断 EX =OK
设置基础分辨率
End Function
复制代码您的脚本存在下列5个错误，将不能正常运行：语法错误：第7行，第24个字符：（错误码0）没有找到合法的符号。语法错误：第7行，第24个字符：（错误码0）没有找到合法的符号。语法错误：第11行，第30个字符：（错误码0）没有找到合法的符号。语法错误：第11行，第65个字符：（错误码0）没有找到合法的符号。语法错误：第15行，第5个字符：（错误码0）没有找到合法的符号。 抄的官网“MQ实战”小飞侠的代码，看的不全然后用果壳王子的“天下HD竞技场源码”的相关代码补全了，但是这个报错始终没发现原因。。本人新手，勿喷。
|