魔兽世界按键精灵钓鱼.docVIP

魔兽世界按键精灵钓鱼

有童鞋使用声音监听按键精灵钓鱼，实在麻烦。

后来细细观察鱼漂，发现一些小现象，特此写以下代码供大家参考。

技能条1号键为扔钓鱼竿。

longtime=0

speed=2

flag=false

a=2

ii=0

MoveTo0,500

KeyPress1,1

longtime=longtime+1000

Delay1000

Fori=1To1366

MoveToi,500

var=GetCursorShape(0)

Ifvar=38Then

a=0

ii=i

GetCursorPosx1,y1

flag=true

ExitFor

EndIf

longtime=longtime+speed*

Delayspeed*

Next

IfflagThen

GetCursorPosx,y

Fori=0To1000

MoveTox+i,y

var=GetCursorShape(0)

Ifvar=9Then

GetCursorPosx2,y2

ExitFor

EndIf

longtime=longtime+speed*2*5

Delayspeed*2*5

Next

MoveTo(x2-x1)/2+x1,y

GetCursorPosx,y

longtime=longtime+200

Delay200

Fori=0To1000

MoveTox,y+i

var=GetCursorShape(0)

Ifvar=9Then

ExitFor

EndIf

longtime=longtime+speed*2*5

Delayspeed*2*5

Next

Fori=0to1900-(longtime/10)

var=GetCursorShape(0)

Ifvar=38Then

RightClick1

ExitFor

EndIf

Delay10

Next

Delay2000

EndIf