Question

按键精灵，查找鼠标形状脚本，谁能让这个脚本听话呢？

varr = GetCursorShape(1) '得到鼠标的形状特征并记录
TracePrint varr
i = 0
For 3
i = i + 1

TracePrint i

var = GetCursorShape(1)'再次获取形状特征

TracePrint var

If var = varr Then

If i = 1 Then

Call aa(53)

ElseIf i = 2 Then

Call aa(54)

ElseIf i = 3 Then

Call aa(52)

End If

Else

Call Plugin.Msg.Tips("鼠标的形状特征与上次不吻合")

End If

Next
Sub aa(key)
Delay 2500
KeyPress key, 1
End Sub
这个脚本会不停的按4 5 6，不管找没找到鼠标形状，我的要求是比对鼠标形状，满足了就运行aa（53）否者就等待鼠标形状出现，出现一次按aa（53），出现的第二次按aa（54），出现的第三次按aa（52），然后循环，找到一次换一次

Answer 1

你的脚本我试过了
首先你的按键顺序是5 6 4而不是4 5 6，然后接下来是改进：
1必要的延时要添加一下，我的建议

Sub aa(key)
Delay 500
KeyPress key, 1
Delay 2000
End Sub
还有Call Plugin.Msg.Tips("鼠标的形状特征与上次不吻合")之后添加Delay 500（半秒测一次应该不算慢了）
2你的主语句有误，这样无论鼠标形状特征是否吻合都会累计数=1 2 3，而你的需求是 找到一次换一次。这个要改

3还有你的脚本要不要整体循环的，还是只做一次，整体循环的话因为你刚开始要取初始值，所以建议内部循环，而不是靠按键精灵自带的无限循环。
都是很中肯的建议，满意就给分吧~
想让我帮你写的话先回答了第三点再说，还是建议自己多练练的。

追问

不好意思，出差了大半个月，回复晚了点。采纳你的建议，做内部循环，但是还是要你帮我写一下，我的脚本知识非常粗浅，，第一点脚本延时我注意到的，实际脚本有加，从这些都能看出你非常专业。期待你修改的脚本，谢谢

追答

这么久……都有点想不起来了哈哈，等国庆过了再抽空帮你写

追问

非常感谢，祝你国庆快乐！

Answer 2

varr = GetCursorShape(1) '得到鼠标的形状特征并记录
TracePrint varr
i = 0
For 3
i = i + 1

TracePrint i
delay 1000//加点延时
var = GetCursorShape(1)'再次获取形状特征

TracePrint var

If var = varr Then

If i = 1 Then

Call aa(53)

ElseIf i = 2 Then

Call aa(54)

ElseIf i = 3 Then

Call aa(52)

End If

Else

Call Plugin.Msg.Tips("鼠标的形状特征与上次不吻合")

End If

Next
Sub aa(key)
Delay 2500
KeyPress key, 1
End Sub