请教一个鼠标特征码的问题

tx=0:ty=0:bx=100:by=100//定义一个矩形区域mous=123456789//鼠标移到目标上时，鼠标形状sx=0:sy=0dodoMoveTosx,symousha=GetCursorShape(0)Ifmousha=mousThenLeftDoubleClick1EndIfsx=sx+5loopuntilsx>bxsx=tx:sy=sy+5LoopUntilsy>by//鼠标在矩形区域内，从左到右，从下到下，每隔5个像素地不停移动。//在移动的过程中，每移一下，就到得当前鼠标形状，用来与指定的形状对与，若相同，就双击，并继续移动；//若不同，继续移动。//直到鼠标历遍了这整个区域x=0:ty=0:bx=100:by=100//定义一个矩形区域

Dim i,n

Dim x(2),y(2)

i=0

n=0

VBSCall GetCursorPos(x(i),y(i))

While i<2

//设置延时，2分钟内5次

Delay 120000/5

//这里用绝对值函数，使i在0与1之间互相转化

i=Abs(i-1)

VBSCall GetCursorPos(x(i),y(i))

If x(0)=x(1) and y(0)=y(1)

n=n+1

Else

n=0

EndIf

//上面的IF语句里比较最近两次鼠标坐标，只要一有变化则计数器n清0

//当连续5次鼠标无变化时，则执行

If n>4

MoveTo 450,350

Delay 5

LeftClick 1

n=0

EndIf

EndWhile

把上面的粘贴到按键精灵里会睇得更清楚。

其实无必要比较完5次啦，只要比较最近两次有无变化就行了。如果确实要看比较5次的脚本，那可以有如下程序（上下两个脚本效果一样）：

Dim i,n

Dim x(5),y(5)

i=0

While i<5

Delay 120000/5

VBSCall GetCursorPos(x(i),y(i))

n=0

While n<i

//这个循环用来比较数组内的数值

If x(n)=x(i) and y(n)=y(i)

If n=3

MoveTo 450,350

Delay 5

LeftClick 1

i=-1

//这里初始化i，就可以不断循环检测

EndIf

n=n+1

Else

i=-1

EndIf

EndWhile

i=i+1

EndWhile

以上就是关于请教一个鼠标特征码的问题全部的内容，包括:请教一个鼠标特征码的问题、按键精灵，侦测鼠标变形后点击一下左键、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！