给你一个圆形渐开线的子程序,这个是鼠标在圆里面做螺旋移动,然后通过鼠标形状特征码来找怪的,你可以把判断鼠标形状特征码那一段改成你的找图语句。
螺旋的具体参数可以自己修改。
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