VBSCall v1=GetCursorShape(0)
VBSCall vv1=GetCursorShape(1)
MessageBox "在2秒钟内鼠标移动到变的位置看看效果"
Delay 2000
VBSCall v2=GetCursorShape(0)
VBSCall vv2=GetCursorShape(1)
If v1=v2
Else
     RightClick 1
EndIf
If vv1=vv2
Else
     RightClick 1
EndIf