TC官方合作论坛

标题: 有高手能帮忙改一下鼠标漂移吗 [打印本页]

作者: f20580721 时间: 2012-4-2 11:18
标题: 有高手能帮忙改一下鼠标漂移吗
自己该得头都爆了，TC又只有一个循环语句，这是按键的代码，将标记改称循环

Sub 鼠标移动(w,z)

dim n,h,zx,zy,zzx,zzy
      htt=0
n=1
h=0
zx=w
zy=z
If zx<50 or zx>540 Then
      If zx<50 Then
         zzx=zx+40
      End if
      If zx>540 Then
         zzx=zx-40
      End if
Else
      zzx=zx
End if
If zy<50 or zy>400 Then
      If zy<50 Then
         zzy=zy+40
      End if
      If zy>400 Then
         zzy=zy-40
      End if
Else
      zzy=zy
End if
MoveTo zzx, zzy
Delay 100
Rem py
GetCursorPos x, y
mz=0
FindCenterColor x-110,y-110,x+110,y+110,"78F4F0",x1,y1
If x1>0 and y1>0 Then
      a=zx-x1+20
      b=zy-y1+10
      Goto OK
         End if
         XY = Plugin.Color.FindMutiColor(x-110,y-110,x+110,y+110, "78A4B0", "-2|4|C0C8D8,-3|5|C0C8D8,-4|6|C0C8D8,-5|7|C0C4D0,-9|9|98C0C8", 1)
         sbwz = Split(XY, "|")
         x1 = Clng(sbwz(0))-18: y1 = Clng(sbwz(1))-9
            If x1>0 and y1>0 Then
            a=zx-x1
                  b=zy-y1
            Goto OK
            End if
            XY=Plugin.Color.FindMutiColor(x-110,y-110,x+110,y+110,"D0AC30","1|0|D0AC30,2|0|D0AC30,3|0|D0AC30,4|0|D0AC30,2|1|D0AC30,2|2|D0AC30,2|3|D0AC30,2|4|D0AC30,2|5|D0AC30,2|6|D0AC30,2|7|D0AC30,2|8|D0AC30,2|9|D0AC30,2|10|D0AC30,2|11|D0AC30,2|12|D0AC30,2|13|D0AC30,2|14|D0AC30,2|15|D0AC30,2|16|D0AC30,2|17|D0AC30,2|18|D0AC30,2|19|D0AC30,2|20|D0AC30,0|21|D0AC30,1|21|D0AC30,2|21|D0AC30,3|21|D0AC30,4|21|D0AC30",1)
            sbwz=Split(XY,"|")
            x1=Clng(sbwz(0))+2: y1=Clng(sbwz(1))+11
                              If x1>0 and y1>0 Then
                              a=zx-x1
                  b=zy-y1
            Goto OK
                  End if
         mz=1
         MoveTo zzx ,zzy
         Delay 150
         Rem OK
      If htt=10 Then
Goto NO
         End if
If h=6 Then
      MoveTo 300 ,300
      Delay 500
      htt=htt+1
      h=0
      Goto py
End if
If mz=1 Then
      h=h+1
      Goto py
Else
      If Abs(a)>n or Abs(b)>n Then
         MoveR a,b
         Delay 100
         h=h+1
         Goto py
      End if
End if
Rem NO
End Sub

作者: ksap787523 时间: 2012-4-2 11:28
你的代码太长了等带眼睛的来~~~

作者: zx_fy 时间: 2012-4-2 13:23
我不会改，只能帮着顶起来。。。

作者: cylhb 时间: 2012-4-2 15:58
有原理比较好写.
再说,论坛不是本来就有漂移代码吗....

作者: chw 时间: 2012-8-1 11:42

int n,h,zx,zy,zzx,zzy
   int  htt=0
   n=1
   h=0
zx=w
zy=z

if(zx<50||zx>540)

      if (zx<50)
         zzx=zx+40
      endif

      if (zx>540)
         zzx=zx-40
      endif

else
      zzx=zx
endif

if (zy<50 || zy>400)

      if (zy<50)
         zzy=zy+40
      endif

      if (zy>400)
         zzy=zy-40
      endif

   else
      zzy=zy
endif

mouse.mousemove(zzx, zzy)
help.sleep(100)

// Rem py
int aaa=10
while(aaa>0)

int x,y
mouse.getmousepoint(x, y)
int mz=0

int x1,y1,a,b
bool ifok=color.findrectpixelcolor(x - 110, y - 110, x + 110, y + 110, #78F4F0, 1,x1, y1)
if(x1>0&&y1>0)
      a=zx-x1+20
   b=zy-y1+10

   // Goto OK



      if(htt==10)
// Goto NO
break

      endif

if (h==6)
   mouse.mousemove(300 ,300)
      help.sleep(500)
      htt=htt+1
      h=0
// Goto py
continue
endif

if(mz==1)
      h=h+1
//Goto py
continue
else
      if(math.abs(a)>n || math.abs(b)>n )
         mouse.moverelative(a,b)
         help.sleep(100)
         h=h+1
//  Goto py
continue
      endif
endif
   break



   endif


  int sbwza
  int sbwzb
color.findmutilcolor(x-110,y-110,x+110,y+110,#78A4B0,"-2|4|C0C8D8,-3|5|C0C8D8,-4|6|C0C8D8,-5|7|C0C4D0,-9|9|98C0C8",1,0,sbwza,sbwzb)

x1 = sbwza - 18
y1 = sbwza - 9

if(x1>0&&y1>0)
a=zx-x1
b=zy-y1

//Goto OK

      if(htt==10)
// Goto NO
break

      endif

if (h==6)
   mouse.mousemove(300 ,300)
      help.sleep(500)
      htt=htt+1
      h=0
// Goto py
continue
endif

if(mz==1)
      h=h+1
//Goto py
continue
else
      if(math.abs(a)>n || math.abs(b)>n )
         mouse.moverelative(a,b)
         help.sleep(100)
         h=h+1
//  Goto py
continue
      endif
endif
break

endif


color.findmutilcolor(x-110,y-110,x+110,y+110,#D0AC30,"1|0|D0AC30,2|0|D0AC30,3|0|D0AC30,4|0|D0AC30,2|1|D0AC30,2|2|D0AC30,2|3|D0AC30,2|4|D0AC30,2|5|D0AC30,2|6|D0AC30,2|7|D0AC30,2|8|D0AC30,2|9|D0AC30,2|10|D0AC30,2|11|D0AC30,2|12|D0AC30,2|13|D0AC30,2|14|D0AC30,2|15|D0AC30,2|16|D0AC30,2|17|D0AC30,2|18|D0AC30,2|19|D0AC30,2|20|D0AC30,0|21|D0AC30,1|21|D0AC30,2|21|D0AC30,3|21|D0AC30,4|21|D0AC30",1,0,sbwza,sbwzb)

x1 = sbwza+ 2
y1=sbwzb+11

if(x1>0&&y1>0)
  a=zx-x1
  b=zy-y1
   // Goto OK





      if(htt==10)
// Goto NO
break

      endif

if (h==6)
   mouse.mousemove(300 ,300)
      help.sleep(500)
      htt=htt+1
      h=0
// Goto py
continue
endif

if(mz==1)
      h=h+1
//Goto py
continue
else
      if(math.abs(a)>n || math.abs(b)>n )
         mouse.moverelative(a,b)
         help.sleep(100)
         h=h+1
//  Goto py
continue
      endif
endif
  break







  endif


mz=1
mouse.mousemove(zzx ,zzy)
help.sleep(150)

//Rem OK

      if(htt==10)
// Goto NO
break

      endif

if (h==6)
   mouse.mousemove(300 ,300)
      help.sleep(500)
      htt=htt+1
      h=0
// Goto py
continue
endif

if(mz==1)
      h=h+1
//Goto py
continue
else
      if(math.abs(a)>n || math.abs(b)>n )
         mouse.moverelative(a,b)
         help.sleep(100)
         h=h+1
//  Goto py
continue
      endif
endif

//Rem NO
endwhile

不知是原来代码有问题，还是我改的有问题，有时候会乱飘

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