按键精灵怎么让鼠标在一个圆里面循环移动 直到找到图片为止 求高手解答
圆中心点坐标为x371Y215圆的直径大概80个像素屏幕分辨率1024*768让鼠标在圆里面做螺旋移动一直循环到找到图片为止圆的范围怎么设定表达能力不好新手求大大解答直接...
圆中心点坐标为x371 Y215 圆的直径大概80个像素 屏幕分辨率1024*768 让鼠标在圆里面做螺旋移动 一直循环到找到图片为止 圆的范围怎么设定 表达能力不好 新手求大大解答 直接给出源码吧 谢谢了
展开
1个回答
展开全部
给你一个圆形渐开线的子程序,这个是鼠标在圆里面做螺旋移动,然后通过鼠标形状特征码来找怪的,你可以把判断鼠标形状特征码那一段改成你的找图语句。
螺旋的具体参数可以自己修改。
Sub 圆形渐开线(中心点x坐标,中心点y坐标,两点间距离,递增半径,圈数)
//例子:Call lib.网游.圆形渐开线(400,300,20,20,20)
Dim x0,y0,rr,l,n,r,x,y
//设置圆心坐标
x0=中心点x坐标:y0=中心点y坐标
//设置递增半径
rr=递增半径
//设置点间距
l=两点间距离
//初始化角度
n=0
//设置第一圈半径
r=30
//设置画圆圈数
For 圈数
While n<3.1415926*2
//画圆公式
x=x0+r*cos(n)
y=y0-r*sin(n)
MoveTo x,y
Delay 10
var = GetCursorShape(0)
If var = 1055991329 Then
LeftClick 1
End If
n=n+l/r
Wend
//画完一圈后重置角度
n=0
//画完一圈后半径递增rr
r=r+rr
Next
End Sub
螺旋的具体参数可以自己修改。
Sub 圆形渐开线(中心点x坐标,中心点y坐标,两点间距离,递增半径,圈数)
//例子:Call lib.网游.圆形渐开线(400,300,20,20,20)
Dim x0,y0,rr,l,n,r,x,y
//设置圆心坐标
x0=中心点x坐标:y0=中心点y坐标
//设置递增半径
rr=递增半径
//设置点间距
l=两点间距离
//初始化角度
n=0
//设置第一圈半径
r=30
//设置画圆圈数
For 圈数
While n<3.1415926*2
//画圆公式
x=x0+r*cos(n)
y=y0-r*sin(n)
MoveTo x,y
Delay 10
var = GetCursorShape(0)
If var = 1055991329 Then
LeftClick 1
End If
n=n+l/r
Wend
//画完一圈后重置角度
n=0
//画完一圈后半径递增rr
r=r+rr
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询