|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
- 功能 鼠标漂移()
- 鼠标窗口
- 鼠标窗口=窗口.鼠标所在窗口句柄()
- 窗口.置顶(鼠标窗口)
- 窗口.设置位置(鼠标窗口,0,0)
- 窗口.设置大小(鼠标窗口,800,600)
- 图像序号
- x,intx,mx
- y,inty,my
- x=300
- y=300
- 循环(真)
- 图像序号=图像.找图(0,0,800,600,"d:\\鼠标图形.bmp",#203040,0.8,0,intx,inty)
- 如果 (图像序号==0)
- 如果 (intx>799)
- 鼠标.相对移动(-100,0)
- 辅助.等待(20)
- 如果结束
- 如果(inty>599)
- 鼠标.相对移动(0,-100)
- 辅助.等待(20)
- 如果结束
- mx=(x-(intx-21))/2
- my=(y-(inty-14))/2
- 如果(!(mx==0&&my==0))
- 鼠标.相对移动(mx,my)
- 辅助.等待(20)
- 如果结束
- 如果结束
- 循环结束
- 返回 0
- 功能结束
复制代码
|
|