梦幻西游鼠标漂移

dhc45010 · 发表于 2013-7-13 20:54:36

马上加入TC

您需要登录才可以下载或查看，没有帐号？立即注册

x

功能移动到(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:05

沙发，感谢分享

dhc45010 · 发表于 2013-7-13 21:10:45

回复 2楼Dear〃惜颜的帖子

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

tcchengg · 发表于 2014-3-2 03:17:25

谢谢分享

TC小电钻 · 发表于 2014-3-6 19:51:51

给力

mengpan · 发表于 2014-6-7 22:55:23

找到思路马上回去写写看

ca520187 · 发表于 2016-4-11 22:16:39

.....鼠标截图怎么没啊

帐号		自动登录	找回密码
密码			立即注册

[教程] 梦幻西游鼠标漂移

马上加入TC

评分

站长推荐 /2