按键精灵怎么让鼠标在一个圆里面循环移动 直到找到图片为止 求高手解答
答案:2 悬赏:60
解决时间 2021-02-14 20:47
- 提问者网友:生亦何欢
- 2021-02-14 03:43
按键精灵怎么让鼠标在一个圆里面循环移动 直到找到图片为止 求高手解答
最佳答案
- 二级知识专家网友:一只傻青衣
- 2021-02-14 04:04
给你一个圆形渐开线的子程序,这个是鼠标在圆里面做螺旋移动,然后通过鼠标形状特征码来找怪的,你可以把判断鼠标形状特征码那一段改成你的找图语句。
螺旋的具体参数可以自己修改。
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
全部回答
- 1楼网友:猎杀温柔
- 2021-02-14 04:23
按键精灵做不到,某些鼠标自带的驱动宏定义可以
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯
• 手机登qq时,显示手机磁盘不足,清理后重新登 |
• 刺客的套装怎么选啊? |