- 版主
- 211464
- 21164
- 13
- 258 朵
- 47817 个
- 60 个
- 263800
- 2008-12-23
|
14#
t
T
发表于 2010-08-24 15:33
|
|只看楼主
- If 1=1
- FindPic 0,0,1023,767,"确认.bmp",0.9,x,y
- If x > 0
- Gosub 修正偏移
- Delay 1000
- LeftClick 1
- End If
- End If
- EndScript
- Sub 修正偏移
- mx=x
- my=y
- MoveToEx x,y
- x1=0
- y1=0
- x2=1023
- y2=767
- Rem 继续移动
- Delay 5
- Rem 找鼠标
- n=1
- While 1=1
- If n=1
- FindPic x1,y1,x2,y2,"1.bmp",0.9,bitx,bity
- End If
- If n=2
- FindPic x1,y1,x2,y2,"2.bmp",0.9,bitx,bity
- End If
- If n=3
- FindPic x1,y1,x2,y2,"3.bmp",0.9,bitx,bity
- End If
- If n=4
- FindPic x1,y1,x2,y2,"4.bmp",0.9,bitx,bity
- End If
- If n=5
- FindPic x1,y1,x2,y2,"5.bmp",0.9,bitx,bity
- End If
- If n=6
- FindPic x1,y1,x2,y2,"6.bmp",0.9,bitx,bity
- End If
- If n=7
- FindPic x1,y1,x2,y2,"7.bmp",0.9,bitx,bity
- End If
- If n=8
- FindPic x1,y1,x2,y2,"8.bmp",0.9,bitx,bity
- End If
- If n=9
- FindPic x1,y1,x2,y2,"9.bmp",0.9,bitx,bity
- End If
- If n=10
- FindPic x1,y1,x2,y2,"10.bmp",0.9,bitx,bity
- End If
- If bitx>0
- Goto 找到
- End If
- n=n+1
- If n>9
- n=1
- End If
- Wend
- Rem 找到
- //计算鼠标当前坐标和目的地坐标距离
- If bitx>mx Then
- a=bitx-mx
- Else
- a=mx-bitx
- End If
- If bity>my Then
- b=bity-my
- Else
- b=my-bity
- End If
- //判断鼠标到达目的地范围内
- If a<4 Then
- If b<4 Then
- Goto 到达目的地
- End If
- End If
- //相对一点一点移动鼠标
- If bitx-mx>1 Then
- If bity-my>1 Then
- MoveR -1,-1
- Goto 继续移动
- End If
- End If
- If bitx-mx<1 Then
- If bity-my<1 Then
- MoveR 1,1
- Goto 继续移动
- End If
- End If
- If bitx-mx>1 Then
- MoveR -1,0
- Else
- If bitx-mx<1 Then
- MoveR 1,0
- Else
- If bity-my>1 Then
- MoveR 0,-1
- Else
- If bity-my<1 Then
- MoveR 0,1
- Else
- Goto 到达目的地
- End If
- End If
- End If
- End If
- Goto 继续移动
- //到达目的地结束
- Rem 到达目的地
- End Sub
复制代码
|