彩虹島按鍵精靈挖礦腳本
『壹』 求一個彩虹島跑動挖礦代碼（按鍵精靈）
呵呵,這個是完全不行了
推薦買天天的掛來挖
按鍵精靈能用但是挖的效率低
彩虹島剛出的時候礦都是在底下了
但現在礦是在地圖里隨機在任何地方出現的
就算你在底下挖掛一個晚上
可能背包都不滿
所以按鍵精靈是行不通的
有按鍵精靈也可能是木馬盜號的
希望
採納
『貳』 求一個彩虹島跑動挖礦代碼（按鍵精靈）
彩虹島的挖礦腳本 我也見了很多 也都試用過
很多人提到 不能用鍵盤控制任務移動
在此 我就以我發布的商業版彩虹島包裹中的采礦的全代碼來給大家 分析下
代碼和分析如下：
首先獲得當前屏幕的解析度的寬和高
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裡面高手多!!花點代價我想你的願望會實現的!!!