TC官方合作论坛

标题: 梦幻西游鼠标漂移 [打印本页]

作者: dhc45010 时间: 2013-7-13 20:54
标题: 梦幻西游鼠标漂移

功能移动到(x,y)
鼠标.移动(x,y)
当前x,当前y,越界x,越界y,x1,y1
循环(x>0&&y>0)
      图像.找图(0,0,800,600,"rc:鼠标4.bmp|rc:鼠标5.bmp|rc:鼠标1.bmp|rc:鼠标2.bmp|rc:鼠标3.bmp",#404040,0.9,0,当前x,当前y)
      标签.设置文本("标签0","x:"&当前x&"y:"&当前y)
      如果(当前x<0&&当前y<0)
         继续
      如果结束
   如果(数学.绝对值(当前x-x)<2&&数学.绝对值(当前y-y)<2)
         跳出
      如果结束
      如果(x-当前x>0)
         鼠标.相对移动(1,0)
      否则
         鼠标.相对移动(-1,0)
      如果结束
               如果(数学.绝对值(当前x-x)<2&&数学.绝对值(当前y-y)<2)
         跳出
         如果结束
      如果(y-当前y>0)
         鼠标.相对移动(0,1)
         否则
         鼠标.相对移动(0,-1)
      如果结束
            如果(数学.绝对值(当前x-x)<2&&数学.绝对值(当前y-y)<2)
         跳出
         如果结束
         如果(数学.绝对值(当前x-x)<50&&数学.绝对值(当前y-y)<50)
            鼠标.相对移动((x-当前x)/4,(y-当前y)/4)
         如果结束
      鼠标.获取坐标(越界x,越界y)
      如果(越界x>700)
         鼠标.相对移动(-200,0)
         辅助.等待(10)
      如果结束
      如果(越界y>550)
         鼠标.相对移动(0,-100)
         辅助.等待(10)
      如果结束
      如果(越界x<5)
         鼠标.相对移动(10,0)
         辅助.等待(10)
      如果结束
      如果(越界y<50)
         鼠标.相对移动(0,30)
         辅助.等待(10)
      如果结束

循环结束
功能结束

作者: Dear〃惜颜 时间: 2013-7-13 20:57
沙发，感谢分享

作者: dhc45010 时间: 2013-7-13 21:10
回复 2楼Dear〃惜颜的帖子

刚学花了我俩天时间才想到个适合我的

作者: tcchengg 时间: 2014-3-2 03:17
谢谢分享

作者: TC小电钻 时间: 2014-3-6 19:51
给力

作者: mengpan 时间: 2014-6-7 22:55

找到思路马上回去写写看

作者: ca520187 时间: 2016-4-11 22:16
.....鼠标截图怎么没啊

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)