按键精灵的问题：区域内移动鼠标，当鼠标特征码等于指定数值，双击鼠标？求解 这个怎么写

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