请教【按键精灵】

关键字：按键精灵 更新时间：2019-03-12 09:02:18 157次访问

我小白，

鼠标在100，300至200,400的长方形区域内随机移动，当鼠标变型后单击，在执行其它动作

Function 取随机整数(最小, 最大)

    Randomize

    取随机整数 = Int((最大 - 最小 + 1) * rnd + 最小)

End Function

Dim var

var = GetCursorShape(1)

Do

    MoveTo 取随机整数(100, 200), 取随机整数(300, 400)

    Delay 10

Loop Until GetCursorShape(1) <> var

LeftClick 1

MessageBox "单击结束"

相关标签：按键精灵