庄园钓鱼脚本

Ⅰ 有会写按键精灵脚本的吗~求浪漫庄园挖矿钓鱼脚本

绝对没有，我知道你哪个，也不能补体力，叫咖啡伴侣

Ⅱ 浪漫庄园如何按键精灵制作脚本！！！

给你一个测试版的脚本 不过绝对好用本人已经使用过非常不错http://d.namipan.com/d/ http://d.namipan.com/d/上面一个是钓鱼的 下面一个是挖矿的 给分吧

Ⅲ 浪漫庄园钓鱼脚本

//如果你不需要做小精灵，可以直接赋值add=0,1,2任意一个
UserVar add=DropList{不加饵:0|空饵报警:1|自动加饵:2}=0 加饵方式
//首先是获取窗口句柄，注意2种方式获得的句柄的区别：
Plugin hwnd2=window.foreground()
//上面这句获得的窗口句柄可以移动窗口，但是无法在窗口点击鼠标
Plugin hwnd1=window.mousepoint()
//现在用这句得到的句柄，可以在窗口内点击鼠标，但是无法移动这个窗口
//所以，如果你需要移动窗口，使用的句柄应该是hwnd2，而点击使用的是hwnd1
//当然，这2种方式取得的窗口，大小是一样的，所以坐标的计算就无所谓了
//获得窗口左上角的位置，用于自动加饵后窗口返回初始位置
Plugin Rect = Window.GetwindowRect(Hwnd1)
MyArray = Split(Rect, "|")
xleft = Cint(MyArray(0))
ytop = Cint(MyArray(1))
//获得鼠标位置，并转换为窗口坐标
VBSCall GetCursorPos(xget,yget)
Plugin clixy=BGKM5.ScrToCli(hwnd1,xget,yget)
VBSCall MyArray1=split(clixy,"|",-1,1)
VBSCall x=CInt(MyArray1(0))
VBSCall y=CInt(MyArray1(1))
Rem 开始
Gosub 体力
//如果选择的是不加饵，那么就不需要执行鱼饵判断
If add<>0
Gosub 鱼饵
EndIf
//选择鱼竿，然后在水面下杆
Plugin BGKM5.KeyClick(hwnd1,112)
Delay 100
Plugin BGKM5.LClick(hwnd1,x,y)
//7秒内不会出现鱼，所以延迟7秒后再开始循环找，避免无意义的循环
Delay 7000
//确定找鱼的次数，以及找鱼的范围
timelimit=60
zuoshangx=x-60
zuoshangy=y-100
youxiax=x+60
youxiay=y-40
//开始找鱼,一共60次，每次间隔200毫秒
//如果一直没有找到，会消耗12秒
//加上之前的7秒，整个钓鱼过程的检测时间是19秒
//不过测试中，找不到鱼的几率为0 ^_^
i=0
j=0
While i<timelimit and j=0
Plugin jt=BkgndColor.FindColor(hwnd1,zuoshangx,zuoshangy,youxiax,youxiay,"F0CC98")
If jt="-1|-1"
//如果没有找到鱼，延迟200毫秒，重新找
i=i+1
Delay 200
Else
//如果找到了鱼（实际上是箭头），点击鱼
jtarray=Split(jt,"|",-1,1)
VBSCall xjt=cint(jtarray(0))
VBSCall yjt=cint(jtarray(1))
Plugin BGKM5.LClick(hwnd1,xjt-2,yjt+30)
Delay 150
//令J=1，跳出循环
j=1
EndIf
EndWhile
Delay 200
//切换F8是为了干什么我就不多说了，玩庄园的都知道
Plugin BGKM5.KeyClick(hwnd1,119)
Delay 200
Goto 开始
Sub 体力
Plugin color7=Bkgndcolor.GetPixelColor(hwnd1,90,62)
//如果颜色为黑，吃血
If color7=2106400
Delay 200
Plugin BGKM5.KeyClick(hwnd1,113)
Delay 200
Plugin BGKM5.LClick(hwnd1,570,507)
Delay 1800
Plugin BGKM5.KeyClick(hwnd1,113)
EndIf
Return 体力
Sub 鱼饵
//判断鱼饵的量是否小于3%，截图中发现，小于3%的鱼饵量是无法继续取色的了
//所以只能以3%来判断，小于3%就认为是没有鱼饵了
Plugin color0=BkgndColor.GetPixelColor(hwnd1,531,553)
If color0=7864320
//如果颜色变黑，则说明需要加饵，根据变量选择的不同而判断
//选择报警时，弹出提示
If add=1
msgbox "鱼饵只剩3%，脚本会自动停止，请加饵后继续"
EndScript
Else
//选择自动加饵时，则自动加饵，自动加饵为前台操作
//先锁定鼠标
LockMouse
//窗口移动到左上，注意此处使用的窗口句柄
Plugin Window.Move(hwnd2,0,0)
Delay 500
//鼠标移动到10，10的位置点击一次是为了保证此窗口能前端显示
//所以使用此功能时，请注意把屏幕左上角留出至少10x10的位置
//也就是说你的其他窗口不能最大化
MoveTo 10,10
Delay 100
LeftClick 1
Delay 200
//点击钓竿的位置,可以用按键F1代替
MoveTo 519,539
Delay 100
LeftClick 1
Delay 1000
//点“添加鱼饵”按钮
MoveTo 584,503
Delay 500
LeftClick 1
Delay 500
MoveTo 10,10
Delay 500
//点击鱼饵(F3位置)，并按住鱼饵移动到空格中
MoveTo 591,539
Delay 200
LeftDown 1
Delay 200
MoveTo 290,279
Delay 200
LeftUp 1
Delay 1000
//点击“添加”按钮
MoveTo 329,369
Delay 500
LeftClick 1
Delay 1000
//加饵完成，窗口移动回初始位置
Plugin window.Move(hwnd2,xleft,ytop)
Delay 500
//释放鼠标
UnlockMouse
EndIf
EndIf
Return 鱼饵

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

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",0.5,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 开始

Ⅳ 求按键精灵8浪漫庄园后台挖矿，钓鱼，种植脚本！！19英寸显示器，1440*900分瓣率！！有的发[email protected]

直接下载咖啡伴侣吧。

Ⅵ 哪位高手有4399浪漫庄园的免费挖矿，钓鱼脚本或挂 可以送的加分

[General]
Description=前台挖矿
BeginHotkey=13
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=45
StopHotkeyMod=0
RunOnce=1
EnableWindow=浪漫庄园
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
UserVar abc=7000 挖矿时间
Plugin Hwnd = Window.Find(0, "浪漫庄园")
Plugin Window.Max(Hwnd)
KeyPress 112,1
VBSCall GetCursorPos(ab,ac)
LeftClick 1
Delay abc
MoveR ab,ac
LeftClick 1
KeyPress 113,1
IfColor 18,5,0,0
MoveR 795,644
LeftClick 1
EndIf

以上是挖矿脚本 导入即可使用

Ⅶ 求一个浪漫庄园自动挖矿和一个钓鱼的脚本（主要是挖矿的），会补体力，加鱼饵，不要求会过意外

发了

Ⅷ 有人能帮忙写个浪漫庄园自动钓鱼的脚本不呢好用的再多给分

用按键精灵应该就可以了~~
建个脚本后，重复就好了~~~

Ⅸ 求新版浪漫庄园自动挖矿+钓鱼+自动补体力脚本源码

我给你 我浪漫庄园80 天秤

Ⅹ 我的世界按键精灵的钓鱼脚本怎么做

延迟0.45秒就行