|
楼主 |
发表于 2024-1-8 09:22:07
|
显示全部楼层
浙江省杭州市
Dim 色组(5)
// x y x1 y1 起始色组 偏移色组 精确度 找图方向 存x 存y 状态 是否点击 偏移x 偏移y 点击延时
//("对战模式",36,98,212,224,"99B5CD","5|-7|444444", 0.9, 1, -1, -1, "假", "点击", 0, 0, 200)
色组(0)=array("对战模式",38,107,161,238,"3effff-111111","-2|5|3fffff-111111,-1|24|3fffff-111111,-1|41|3fffff-111111,78|23|ffffff-111111,78|32|316671-111111,78|41|ffffff",0.9,1,-1,-1,"假","点击",0,0,1000)
色组(1) = array("人机对战",60,261,255,397,"9aa1a5","1|0|9aa1a5,3|0|2d6675,7|-1|949ea3,25|7|fafbfc,31|-2|fafbfc,44|-3|f7fafa,74|-2|fbfcfc,88|-1|f5f8f9,81|-2|dee8ea",0.9,1,-1,-1,"假","点击",0,0,1000)
色组(2) = array("开始游戏偏移点击1V1",547,490,634,524,"e5e6e7-111111","7|6|f6f7f7-111111,3|3|051c23-111111,24|13|d8dcde-111111,24|11|061e27-111111,44|8|f1f2f2-111111,59|3|f1f2f2-111111",0.9,1,-1,-1,"假","点击",-152,-392,500)
色组(3) = array("开始游戏点击",547,490,634,524,"e5e6e7-111111","7|6|f6f7f7-111111,3|3|051c23-111111,24|13|d8dcde-111111,24|11|061e27-111111,44|8|f1f2f2-111111,59|3|f1f2f2-111111",0.9,1,-1,-1,"假","点击",0,0,500)
色组(4) = array("进入游戏",591,524,685,562,"fbffff-111111","3|-2|38a4c5-111111,5|-1|f5ffff-111111,18|-4|f4ffff-111111,24|0|3aa7ca-111111,42|12|43b3d4-111111,61|0|d3f8ff-111111",0.9,1,-1,-1,"假","点击",0,0,500)
色组(5) = array("确定对战开始",800,411,873,457,"dae2e7-111111","1|12|5c8dad-111111,32|8|e8edf0-111111,29|12|5891b5-111111,32|12|e7ecef-111111",0.9,1,-1,-1,"假","点击",0,0,500)
Function 遍历多点找色(找色)
For i = 0 To UBound(找色)
// TracePrint 找色(i)(0)//色组名称
// TracePrint 找色(i)(1)//色组坐标x
// TracePrint 找色(i)(2)//色组坐标y
// TracePrint 找色(i)(3)//色组坐标x1
// TracePrint 找色(i)(4)//色组坐标y1
// TracePrint 找色(i)(5)//基准颜色
// TracePrint 找色(i)(6)//偏移颜色
// TracePrint 找色(i)(7)//找图精度
// TracePrint 找色(i)(8)//找图方向
// TracePrint 找色(i)(9)//找图坐标x
// TracePrint 找色(i)(10)//找图坐标y
// TracePrint 找色(i)(11)//找图结果
// TracePrint 找色(i)(12)//是否点击
// TracePrint 找色(i)(13)//点击偏移X
// TracePrint 找色(i)(14)//点击偏移Y
// TracePrint 找色(i)(15)//点击延时
// TracePrint Join( 色组(i))
Dim 反馈
反馈= dm.FindMultiColor(找色(i)(1),找色(i)(2),找色(i)(3),找色(i)(4),找色(i)(5),找色(i)(6),找色(i)(7),找色(i)(8),intX, intY)
If 反馈 = 1 Then
色组(i)(9)=intX
色组(i)(10) = intY
// TracePrint intX
// TracePrint intY
// TracePrint 色组(i)(9)//找图坐标x
// TracePrint 色组(i)(10)//找图坐标y
色组(i)(11) ="真"
TracePrint ">>>>>>>>>>>找到了图色--- " & 找色(i)(0) & "坐标 " & intX & "/" & intY
If 找色(i)(12) = "点击" and 色组(i)(11) = "真" Then
// TracePrint 色组(i)(9)+找色(i)(13)
// TracePrint 色组(i)(10) +找色(i)(14)
dm.MoveTo 色组(i)(9)+找色(i)(13),色组(i)(10) +找色(i)(14)
Delay 50
dm.LeftClick
Delay 找色(i)(15)
End If
Else
色组(i)(11) ="假"
色组(i)(9)=-1
色组(i)(10) = - 1
// TracePrint "没有找到图色--- "&找色(i)(0) &" "&Join( 色组(i))
End If
// TracePrint Join( 色组(i))
Next
End Function |
|