彩虹岛按键精灵挖矿脚本
『壹』 求一个彩虹岛跑动挖矿代码（按键精灵）
呵呵,这个是完全不行了
推荐买天天的挂来挖
按键精灵能用但是挖的效率低
彩虹岛刚出的时候矿都是在底下了
但现在矿是在地图里随机在任何地方出现的
就算你在底下挖挂一个晚上
可能背包都不满
所以按键精灵是行不通的
有按键精灵也可能是木马盗号的
希望
采纳
『贰』 求一个彩虹岛跑动挖矿代码（按键精灵）
彩虹岛的挖矿脚本 我也见了很多 也都试用过
很多人提到 不能用键盘控制任务移动
在此 我就以我发布的商业版彩虹岛包裹中的采矿的全代码来给大家 分析下
代码和分析如下：
首先获得当前屏幕的分辨率的宽和高
Plugin screenX=GetSysInfo.GetScreenResolutionX()
Plugin screenY=GetSysInfo.GetScreenResolutionY()
求出中心点坐标，由于观察发现 除非人物走到底图边缘 屏幕始终是把人物放在屏幕中间的
CenterX=ScreenX/2
CenterY=ScreenY/2
设定一个face变量 来代表 人物的面朝方向
face=1
设置一个死循环 程序循环运行
While 1=1
开始时先在屏幕范围内查找有没有掉落的包裹
VBSCall FindPic(0,CenterY-200,screenX,CenterY+200,"包裹.bmp",0.9,intX1,intY1)
如果包裹存在则执行向包裹移动
If intX1<>-1 and intY1<>-1
包裹intX1是图片坐上角坐标，所以判断
intX1+20<CenterX时
判断向左方移动
If intX1<(CenterX-20)
左键按下50毫秒后弹起，因为尝试过点击左键无效果
KeyDownH 37,1
Delay 50
KeyUpH 37,1
如果包裹在人物右方则按下右键
ElseIf intX1>(CenterX+20)
KeyDownH 39,1
Delay 50
KeyUpH 39,1
否则，在这两个域值之内 人物应该站在包裹上放 点击 空格 减取 物品
Else
For 5
KeyPressH 32,1
Delay 500
EndFor
EndIf
Else
因为采矿的判断在包裹判断中 ，所以 拾取包裹的优先级 高于采矿的优先级
如果矿石图片存在于屏幕中
VBSCall FindPic(CenterX-100,CenterY-100,CenterX+100,CenterY+300,"矿石.bmp",0.8,intX,intY)
同理，判断 矿石 位置并向矿石移动
If intX<>-1 and intY<>-1
If intX<(CenterX-60)
KeyDownH 37,1
Delay 50
KeyUpH 37,1
face=-1
ElseIf intX>(CenterX+20)
KeyDownH 39,1
Delay 50
KeyUpH 39,1
face=1
Else
KeyDownH 17,1
Delay 500
KeyUpH 17,1
EndIf
tempX=intX
Else
这里引用了判断人物朝向问题，因为不加入这个判断 很可能人物在矿物上面站着 向相反方向挖掘
转向后重新标记 人物方向 可以直接赋值 正负一 或者 采用*-1的 方式 来改变 符号
If tempX<(CenterX-15) and face=1
KeyDownH 37,1
Delay 50
KeyUpH 37,1
face=-1
EndIf
If tempX>(CenterX-14) and face=-1
KeyDownH 39,1
Delay 50
KeyUpH 39,1
face=1
EndIf
Delay 100
KeyDownH 17,1
Delay 500
KeyUpH 17,1
EndIf
EndIf
取以下系统时间来做随机参数
求该参数的模
随机条件成立 则向某方向 移动一段时间 这项功能 用来防止 人物 走到 无矿区 脱离图形判断
Plugin seek=GetSysInfo.GetTime()
seek=seek mod 4
If seek=1
KeyDownH 37,1
Delay 50
KeyUpH 37,1
face=-1
ElseIf seek=3
KeyDownH 39,1
Delay 50
KeyUpH 39,1
face=1
EndIf
EndWhile
EndScript
『叁』 彩虹岛按键精灵
//彩虹岛自动打怪挖矿脚本
//空格键设为强攻击即可打怪，定点移动捡物就交给宠物做了。
//空格键设为挖矿键即可挖矿，定点挖矿时可以自动捡矿，设Z键。
VBS dim xx,zzT,pq,Akey,Bkey,Ckey,CK
dim i,j,k,p,q,L
dim key(2)
UserVar pq=1 设置左右转身打怪开关，0为定点打怪，1为移动打怪。
UserVar xx=1 设为定点时可调整技能攻击间隔，移动时调整转身时间。
UserVar zzT=200 设置普通攻击间隔时间（毫秒）
UserVar key(0)=V 设置第一技能键（Z，X，C，V中任选一）。
UserVar key(1)=C 设置第二技能键（Z，X，C，V中任选一）。
UserVar key(2)=Z 自定义按键（比如设为捡物品）。
ss=1
j=1
k=1
p=1
q=1
Gosub 判断按键
Akey=key(0):Bkey=key(1):Ckey=key(2)
Plugin CK=Window.Foreground()
Plugin Window.Move(CK,0,0)
Delay 64
While true
Delay 32
If pq=1
While true
Delay 32
Gosub 向右移动
Delay 32
Gosub 向左移动
EndWhile
EndIf
Gosub 定点打怪
EndWhile
Sub 定点打怪
For xx
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyDown Ckey 1
Delay 32
KeyPress 32,1
Delay zzT
KeyUp Ckey 1
EndFor
Delay 32
KeyPress Akey 1
Delay 32
For xx
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyDown Ckey 1
Delay 32
KeyPress 32,1
Delay zzT
KeyUp Ckey 1
EndFor
Delay 32
KeyPress Bkey 1
Delay 32
Return 定点打怪
Sub 向右移动
Delay 32
If k mod 2
KeyDownH 39 1
For xx
KeyPress 32 1
Delay zzT
KeyPress 32 1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyDown Ckey 1
Delay 32
KeyPress 32,1
Delay zzT
KeyUp Ckey 1
EndFor
If p mod 2
Delay 200
KeyPress Akey 1
Else
Delay 200
KeyPress Bkey 1
EndIf
p=p+1
Delay 32
KeyUpH 39 1
EndIf
//初始化得到当前时间
VBS strat_time1=now
a = 1
While a
KeyPress 32 1
Delay 32
v1=DateDiff("s", strat_time1, Now)
//判断动作时间并赋值
VBS if v1>=ss then a=0
EndWhile
Return 向右移动
Sub 向左移动
Delay 32
If j mod 2
KeyDownH 37 1
For xx
KeyPress 32 1
Delay zzT
KeyPress 32 1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyPress 32,1
Delay zzT
KeyDown Ckey 1
Delay 32
KeyPress 32,1
Delay zzT
KeyUp Ckey 1
EndFor
If q mod 2
Delay 200
KeyPress Akey 1
Else
Delay 200
KeyPress Bkey 1
EndIf
q=q+1
Delay 32
KeyUpH 37 1
EndIf
//初始化得到当前时间
VBS strat_time2=now
b = 1
While b
KeyPress 32 1
Delay 32
v2=DateDiff("s", strat_time2, Now)
//判断动作时间并赋值
VBS if v2>=ss then b=0
EndWhile
Return 向左移动
Sub 判断按键
i=0
For 3
L=Len(trim(key(i)))
If L=1
key(i)=Asc(UCase(key(i)))
ElseIf L>1 and L<4
If UCase(Left(key(i),1))="F"
key(i)=Asc(UCase(Left(key(i),1)))+Ringhe(key(i),L-1)+41
EndIf
EndIf
i=i+1
EndFor
Return 判断按键
『肆』 彩虹岛如何用按键精灵自动挖矿
新手不会编脚本的话，就自己录制一个。点精灵界面的录制，出来个工具条，点开始录制之后 你自己挖一次矿。然后点停止录制保存回到你那个脚本的界面，点源文件，把你的录制下来的动作复制，然后粘贴个10次20次的。看右边的脚本属性，把脚本循环改成循环到按终止键为止。然后保存。打开彩虹岛，按一下你这个脚本的启动键。就行了。
『伍』 彩虹岛 按键精灵自动挖矿 会用的来
白教没人会干的!!但你可以加59665404里面高手多!!花点代价我想你的愿望会实现的!!!