浪漫庄园自动钓鱼脚本，最简单的是什么?

VBSCall GetCursorPos(x1,y1)
//跑到水边`把鼠标放在要扔钩的位置再开始运行角本`这里会取得当前鼠标点坐标
Rem 开始
IfColor 73,45,de5d9c,1
//这是我判断HP的语句`如果颜色不对就吃东西`根据需要自己改下`
Goto 吃
EndIf
KeyPress 112,1
//F1``把竿放在F1
MoveTo x1,y1
//向之前取得的点扔竿``
LeftClick 1
MoveTo 1233,307
//尽量把鼠标移开`以便不影响图象判断
yx=0
yy=0
For 150
Rem begin

VBSCall Call FindPic(x1-150,y1-200,x1+150,y1+50,"咬BMP",05,yx,yy)
//在扔钩范围附近搜索``我搜索的是那个向下的箭头``自己去抓好了``由于是在漂上方出现`所以下方判断范围只加了50`
If yx>0 and yy>0
cy=yy+50
MoveTo yx,cy
LeftClick 1
Goto 开始
Else
Delay 100
Goto begin
EndIf
EndFor
Beep
//超过15秒没有钓到`可能是出了验证```发出警报``不过好象无效``不知道为什么`可能循环有问题`
Goto 开始
Rem 吃
KeyPress 113,1
//吃东西`这里是F2键``
Delay 100
MoveTo 1048,929
//F2位置上`吃那个字的位置`具体的自己抓下点`
LeftClick 1
Delay 1700
Goto 开始