|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
- 功能 转视角(Ts)
- Ts.MoveTo(1024/2,768/2) //屏幕分辨率 1024*768 先移动到中间
- 辅助.等待(100)
- Ts.RightDown() //按住右键
- 辅助.等待(100)
- Ts.MoveTo(1024/2-100,768/2) //X像左移动一百
- 辅助.等待(100)
- Ts.RightUp() //右键 弹起
- 辅助.等待(100)
- 功能结束
- ————————————————————————————————————————————————————————————————
- 功能 阿基米德(Ts,特征码,起始x,起始y)
- 调试输出("开始扫描")
- 初始极径 = 1
- 倍数 = 1
- 系数=1.5
- 圆周率 = 3.1415926
- 半径,极角
- 终点x,终点y
- 极角=圆周率/2
- 辅助.等待(2)
- 遍历(i=0;i<300;i++)
- 半径 = 初始极径+系数*极角
- 终点x = 起始x+类型.转整型(倍数*半径*数学.余弦值(极角))
- 终点y = 起始y+类型.转整型(倍数*半径*数学.正弦值(极角))
- 极角 = 极角 + 0.5
- Ts.MoveTo(终点x,终点y)
- 辅助.等待(10)
- 返回特征码=Ts.GetCursorShape()
- 如果 (特征码==返回特征码)
- Ts.RightClick()
- 调试输出("扫描成功")
- 辅助.等待(4500)
- 返回 真
- 如果结束
- 遍历结束
- 调试输出("扫描失败")
- 通用.转视角(Ts)
- 返回 假
- 功能结束
复制代码
阿基米德没问题 后台
但是到转视角的时候 前台鼠标有明显的移动感 好像变成前台
用绑定工具测试 鼠标的右键 按下弹起都一切正常
|
|