求按键精灵脚本:在指定区域内找到某颜色“1B2CE8”并用鼠标点击该颜色,1秒后再次找到,点击,1秒后再次
PS:乱回答我会选择自己的小号作为最佳答案 展开
这样,先进入脚本,然后点【抓抓】功能,然后把鼠标移动到靶心处按【Ctrl+Alt+1】,这样数据就被存起来了,然后把存到的坐标和颜色数据填到我给你的变量里保存脚本就可以用了。
Dim 判断时间, 靶心颜色, x坐标, y坐标
判断时间 = 1000 '可选,1000代表1000毫秒,即1秒
靶心颜色 = "" '按照抓到的数据填写
x坐标 = '同上
y坐标 = '同上
Do
Delay 判断时间
IfColor x坐标, y坐标, 靶心颜色, 0 Then
MoveTo x坐标, y坐标
LeftClick 1
End If
Loop
这些我都懂,我只要脚本
脚本简单,但是使用扫描判断颜色的方法,恐怕1秒来不及处理全部可能区域。
你先把靶心截个图,类似这个部分,即左上角刚好是靶心,然后保存为一个文件a.bmp,注意别用qq的截图功能,而是直接按键盘上的prtcs那个键 也就是F12右边那三个中的一个,然后打开一个图片处理软件,剪裁需求的部分,并保存为bmp文件,并且把这个文件添加到脚本附件里。如图:
这是前提,这样脚本才可以迅速找到靶心。
脚本我试着写一个,不过你最好根据你的情况调整一下。
FindPic 0,0,1024,768,"Attachment:\a.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
Delay 100
End If
刚刚手误少写了一句,脚本设定成循环运行按终止键结束。1秒判断10次,可以保证第一时间打到靶子
0,0,1024,768 这个是靶子可能出现的区域,你按照你的情况调整为合适的大小。如果识别不出来,可以把0.9调小一些,范围是0.5-1 。
这样 也给你写个找点的颜色的,找色的缺点显而易见,万一那个颜色不止一个点就容易点错地方,不容易打到靶心。
FindColor 0,0,1024,768,"1B2CE8",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
Delay 100
End If