Hwnd = Plugin.Window.Find(0, "魔兽世界")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux = clng(MyArray(0))
Uy = clng(MyArray(1))

KeyPress "Home", 15
Rem diaoyu1


For 20
Call diaoyu()
Next
Sub diaoyu()
KeyPress "1", 1

While i = 0
FindPic Ux+128,Uy+160,Ux+625,Uy+384,"Attachment:\yupiao3.bmp",0.7,yupiaoX,yupiaoY
If yupiaoX > 0 And yupiaoY > 0 Then 
i = 1
MoveTo yupiaoX, yupiaoY
SaveMousePos
End If
Wend

Delay 100

While i = 0
MoveTo Ux + 126, Uy + 158
Delay 100
RestoreMousePos
	If not shape = GetCursorShape(1053591638) Then 
		i = 1
		RightClick 20
	End If
Wend

End Sub
KeyPress "Enter", 1
KeyPress "/", 1
KeyPress "T", 1
KeyPress "A", 1
KeyPress "R", 1
KeyPress "Space", 1

Event Form1.Loadover


End Event
KeyPress "Enter", 1
KeyPress "=", 1

FindPic Ux,Uy,Ux+350,Uy+384,"Attachment:\钓鱼技能.bmp",1,jinengX,jinengY
If jinengX > 0 And jinengY > 0 Then 
MoveTo jinengX+5, jinengY+3
LeftClick 1
FindPic Ux,Uy,Ux+600,Uy+550,"Attachment:\训练.bmp",1,xunlianX,xunlianY
If xunlianX > 0 And xunlianY > 0 Then 
MoveTo xunlianX+5, xunlianY+3
LeftClick 1
End If
Else
KeyPress "1", 1
End If

Goto diaoyu1