无聊就分享两个最常用的函数【按键精灵吧】

按键精灵吧关注：498,900贴子：995,760

5回复贴，共1页

无聊就分享两个最常用的函数

Function bs(arr)
Dim tmp,intx,inty
If UBOUND(arr) = 2 Then
If CmpColorEx(arr(0), 0.9)=1 Then
Tap arr(1), arr(2)
bs = true
Else
bs = false
End if
ElseIf UBOUND(arr) = 0 Then
If CmpColorEx(arr(0), 0.9)=1 Then
tmp = Split(arr(0),"|")
Tap CInt(tmp(0)), CInt(tmp(1))
bs = true
Else
bs = false
End If
ElseIf UBOUND(arr) = 1 Then
If CmpColorEx(arr(0), 0.9)=1 Then
bs = true
Else
bs = false
End If
ElseIf UBOUND(arr) = 6 Then
FindColor arr(0), arr(1), arr(2), arr(3),arr(4),0,arr(5), intX, intY
If intX > -1 And intY > -1 Then
bs = true
Else
bs = false
End If
ElseIf UBOUND(arr) = 5 Then
FindColor arr(0), arr(1), arr(2), arr(3),arr(4),0,arr(5), intX, intY
If intX > -1 And intY > -1 Then
bs = true
Tap intX,intY
Else
bs = false
End If
End If
End Function
Function ddbs(arr, flag)
Dim tmpx,tmpy
FindMultiColor arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 0, 0.9, tmpx,tmpy
If tmpx > 0 Then
If flag Then
Tap tmpx,tmpy
End If
ddbs = True
Else
ddbs = false
End If
End Function

送TA礼物

1楼2018-12-10 02:32回复

bs 函数用法
找色点击，
参数数组
1：找色点击通知={"180|702|323232,339|685|323232"}
bs（通知）
2：找色不点击通知={"180|702|323232,339|685|323232",false}
bs(通知)
3 找色却点击另外一个地方，100，100是点击的坐标
通知={"180|702|323232,339|685|323232", 100，100}
bs(通知)

2楼2018-12-10 02:39

ddzs 多点找色
1
Dim 青草={36,112,252,530,"E4E3FD","21|-4|D06C23,24|16|40393E"}
ddbs（青草，true）找到点击青草
2
Dim 青草={36,112,252,530,"E4E3FD","21|-4|D06C23,24|16|40393E"}
ddbs（青草，false）找到不点击青草

3楼2018-12-10 02:58