---
tags: 按鍵精靈 2014.6
---
[YouTube](https://youtu.be/ebx5hPfRLvY)
# ROX新世代 自動釣魚
一、使用工具：
1.[按鍵精靈2014.6](http://download.myanjian.com/)
([簡體中文版Window](https://www.microsoft.com/zh-cn/software-download/windows10)安裝使用較無問題。)
2.[雷電模擬器](https://www.ldplayer.tw/?gad_source=1)
2-1.雷電設置:
3.遊戲設定：
4.我的電腦配置：

作業系統: Microsoft Windows 10 64位元 
CPU型號: Intel(R) Core(TM) i7-8700K CPU @ 3.70GHz
主機板: ASUSTeKCOMPUTERINC. TUFZ370-PLUSGAMING
總記憶體: 可用記憶體(34.4GB) 總記憶體(47.9GB)
螢幕: 1920x1080
顯卡型號: Intel(R) UHD Graphics 630(20220719)【當前使用】
顯卡型號: Microsoft Remote Display Adapter(20060621)
OpenGL: 4.6.0 - Build 31.0.101.2111
VT: 已開啟
HyperV: 已關閉
Root: 關閉
以系統管理員身分執行: 否
安裝磁碟: C磁碟(-) 可用空間(134GB) 總空間(238GB)
模擬器版本: 9.0.71.3(64)
執行參數: CPU(4核) 記憶體(8192M) 解析度(960x540 DPI 160) FPS(60)
多開參數: 當前編號(1) 正在執行(2) 高速模式(1) FPS限制(60)
硬碟訊息: 類型(自動擴充) 可用空間(22GB) 總空間(27GB)
機型: 品牌(Xiaomi) 型號(SM-G975N)
ASTC: 開啟
Root權限: 關閉
模擬器路徑: C:\LDPlayer\LDPlayer9\
日誌路徑: C:\Users\0976370081\AppData\Roaming\XuanZhi9\log

這個配置頂多同時支援雙開釣魚，否則會卡頓，單開釣魚成功率在95%以上，雙開在90%以上，四開在80%以下。

二、按鍵精靈腳本：
1.可支持同時四開模擬器釣魚，請參考上面關於電腦配置的敘述。
2.如果你的電腦多開一樣很順的話，可根據腳本內容修改參數就好。
3.最後的 IF Conut > 200 Then 表示釣魚200次後停止。
4.雙開或雙數開模擬器，釣魚效率最佳。

CountEnd = Array(Int(Form1.InputBox1.Text),Int(Form1.InputBox2.Text),Int(Form1.InputBox3.Text),Int(Form1.InputBox4.Text))
win1 = 0
win2 = 0
win3 = 0
win4 = 0

If win1 = 0 Then 
	win1 = Lib.API.查找窗口句柄("LDPlayerMainFrame", 1)
	sRect1 = Plugin.Window.GetWindowRect(win1)
	Dim MyArray1
	MyArray1 = Split(sRect1, "|")
	MyArray1W1 = Clng(MyArray1(0))
	MyArray1H1 = Clng(MyArray1(1))
	MyArray1W2 = Clng(MyArray1(2))
	MyArray1H2 = Clng(MyArray1(3))
End If
If win2 = 0 Then
	win2 = Lib.API.查找窗口句柄("LDPlayerMainFrame", 2)
	sRect2 = Plugin.Window.GetWindowRect(win2)
	Dim MyArray2
	MyArray2 = Split(sRect2, "|")
	MyArray2W1 = Clng(MyArray2(0))
	MyArray2H1 = Clng(MyArray2(1))
	MyArray2W2 = Clng(MyArray2(2))
	MyArray2H2 = Clng(MyArray2(3))
End If
If win3 = 0 Then
	win3 = Lib.API.查找窗口句柄("LDPlayerMainFrame", 3)
	sRect3 = Plugin.Window.GetWindowRect(win3)
	Dim MyArray3
	MyArray3 = Split(sRect3, "|")
	MyArray3W1 = Clng(MyArray3(0))
	MyArray3H1 = Clng(MyArray3(1))
	MyArray3W2 = Clng(MyArray3(2))
	MyArray3H2 = Clng(MyArray3(3))
End If
If win4 = 0 Then
	win4 = Lib.API.查找窗口句柄("LDPlayerMainFrame", 4)
	sRect4 = Plugin.Window.GetWindowRect(win4)
	dim MyArray4
	MyArray4 = Split(sRect4, "|")
	MyArray4W1 = Clng(MyArray4(0))
	MyArray4H1 = Clng(MyArray4(1))
	MyArray4W2 = Clng(MyArray4(2))
	MyArray4H2 = Clng(MyArray4(3))
End If

MyArray1W21 = 0
MyArray1W22 = 0
MyArray1H21 = 480
MyArray1H22 = 281

MyArray2W21 = 480
MyArray2W22 = 0
MyArray2H21 = 480
MyArray2H22 = 281

MyArray3W21 = 960
MyArray3W22 = 0
MyArray3H21 = 480
MyArray3H22 = 281

MyArray4W21 = 1440
MyArray4W22 = 0
MyArray4H21 = 480
MyArray4H22 = 281

Call Plugin.Window.Move(win1, MyArray1W21, MyArray1W22)
Call Plugin.Window.Size(win1, MyArray1H21, MyArray1H22)
Call Plugin.Window.Move(win2, MyArray2W21, MyArray2W22)
Call Plugin.Window.Size(win2, MyArray2H21, MyArray2H22)
Call Plugin.Window.Move(win3, MyArray3W21, MyArray3W22)
Call Plugin.Window.Size(win3, MyArray3H21, MyArray3H22)
Call Plugin.Window.Move(win4, MyArray4W21, MyArray4W22)
Call Plugin.Window.Size(win4, MyArray4H21, MyArray4H22)

Sub Fishing(x, y, w, h, n)
	i = 0
	While i = 0
		IfColor x+362,y+223,"F7F7F7",2 Then
    	//颜色一样
    		IfColor x+379,y+211,"F6F6F6",2 Then
    		//颜色一样
    			IfColor x+386,y+218,"F7E7E7",2 Then
    			//颜色一样
    				MoveTo x+370,y+230
					LeftClick 1
					i = i + 1
					StraTime = Time
					If n = 1 Then 
						Form1.InputBox1.Text = Int(Form1.InputBox1.Text) - 1
					ElseIf n = 2 Then
						Form1.InputBox2.Text = Int(Form1.InputBox2.Text) - 1
					ElseIf n = 3 Then
						Form1.InputBox3.Text = Int(Form1.InputBox3.Text) - 1
					ElseIf n = 4 Then
						Form1.InputBox4.Text = Int(Form1.InputBox4.Text) - 1
					End If
				End If
			End If
		End If
	Wend
	Count = 1
	While i = 1
		IfColor x+360,y+199,"72F5C9",2 Then
    	//颜色一样
    		IfColor x+390,y+221,"72F3C7",2 Then
    		//颜色一样
    			IfColor x+379,y+195,"5DE6B3",2 Then
    			//颜色一样
    				MoveTo x+370,y+230
					LeftClick 1
					i = i + 1
				End If
			End If
		End If
		EndTime = Time
		If EndTime - StraTime > 17 Then
			i = 3
    		If n = 1 Then 
    			win1 = 0
    		ElseIf n = 2 Then
    			win2 = 0
    		ElseIf n = 3 Then
    			win3 = 0
    		ElseIf n = 4 Then
    			win4 = 0
    		End If 
		ElseIf EndTime - StraTime > 3 Then 
			IfColor x+362,y+223,"F7F7F7",2 Then
    		//颜色一样
    			IfColor x+379,y+211,"F6F6F6",2 Then
    			//颜色一样
    				IfColor x+386,y+218,"F7E7E7",2 Then
    				//颜色一样
    					Count = Count +1
    					If Count > 10 Then 
    						i = 3
    						If n = 1 Then 
    							win1 = 0
    						ElseIf n = 2 Then
    							win2 = 0
    						ElseIf n = 3 Then
    							win3 = 0
    						ElseIf n = 4 Then
    							win4 = 0
    						End If 
    					End If
					End If
				End If
			End If
		End If
	Wend
	While i = 2
		IfColor x+360,y+199,"72F5C9",1 Then
    	//颜色一样
    		IfColor x+390,y+221,"72F3C7",1 Then
    		//颜色一样
    			IfColor x+379,y+195,"5DE6B3",1 Then
    			//颜色一样
					i = i + 1
				Else 
					i = 2 - 1
				End If
			Else 
				i = 2 - 1	
			End If
		Else 
			i = 2 - 1
		End If
	Wend
End Sub

State = True
ConutStar = Array(1, 1, 1, 1)
Conut = 1
While State
	If win1 <> 0 Then 
		Call Fishing(MyArray1W21, MyArray1W22, MyArray1H21, MyArray1H22, 1)
		ConutStar(0) = ConutStar(0) + 1
		If ConutStar(0) > CountEnd(0) Then 
			win1 = 0
		End If
	End If
	If win2 <> 0 Then 
		Call Fishing(MyArray2W21, MyArray2W22, MyArray2H21, MyArray2H22, 2)
		ConutStar(1) = ConutStar(1) + 1
		If ConutStar(1) > CountEnd(1) Then 
			win2 = 0
		End If
	End If
	If win3 <> 0 Then 
		Call Fishing(MyArray3W21, MyArray3W22, MyArray3H21, MyArray3H22, 3)
		ConutStar(2) = ConutStar(2) + 1
		If ConutStar(2) > CountEnd(2) Then 
			win3 = 0
		End If
	End If
	If win4 <> 0 Then 
		Call Fishing(MyArray4W21, MyArray4W22, MyArray4H21, MyArray4H22, 4)
		ConutStar(3) = ConutStar(3) + 1
		If ConutStar(3) > CountEnd(3) Then 
			win4 = 0
		End If
	End If
	Conut = Conut + 1
	If Conut > 200 Then 
		State = False
		EndScript
	End If
	
	If win1=0 And win2=0 And win3=0 And win4=0 Then 
		State = False
		TracePrint "End"
		MessageBox "End"
		EndScript
	End If
	
	If Int(Form1.InputBox1.Text)=0 And Int(Form1.InputBox2.Text)=0 And Int(Form1.InputBox3.Text)=0 And Int(Form1.InputBox4.Text)=0 Then 
		State = False
		TracePrint "End"
		MessageBox "End"
		EndScript
	End If
Wend

5.介面設計：