vbs 判断鼠标点的颜色