---
tags: 按鍵精靈 2014.6
---
[YouTube](https://youtube.com/shorts/YiGbMd7CVqI)
# 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.程式碼：

win1 = Plugin.Window.Find("LDPlayerMainFrame", 1)
win2 = Plugin.Window.Find("LDPlayerMainFrame", 2)
win3 = Plugin.Window.Find("LDPlayerMainFrame", 3)
win4 = Plugin.Window.Find("LDPlayerMainFrame", 4)

sRect1 = Plugin.Window.GetWindowRect(win1)
sRect2 = Plugin.Window.GetWindowRect(win2)
sRect3 = Plugin.Window.GetWindowRect(win3)
sRect4 = Plugin.Window.GetWindowRect(win4)

win1x = 0
win1y = 0
win2x = 480
win2y = 0
win3x = 960
win3y = 0
win4x = 1440
win4y = 0
winw = 480
winh = 281

Call Plugin.Window.Move(win1, win1x, win1y)
Call Plugin.Window.Size(win1, winw, winh)
Call Plugin.Window.Move(win2, win2x, win2y)
Call Plugin.Window.Size(win2, winw, winh)
Call Plugin.Window.Move(win3, win3x, win3y)
Call Plugin.Window.Size(win3, winw, winh)
Call Plugin.Window.Move(win4, win4x, win4y)
Call Plugin.Window.Size(win4, winw, winh)

//LJ00 = "C:\Users\0976370081\Pictures\ROX\LJ00.bmp"
LJ000 = "C:\Users\0976370081\Pictures\ROX\LJ000.bmp"
LJ001 = "C:\Users\0976370081\Pictures\ROX\LJ001.bmp"
LJ002 = "C:\Users\0976370081\Pictures\ROX\LJ002.bmp"
LJ003 = "C:\Users\0976370081\Pictures\ROX\LJ003.bmp"
LJ004 = "C:\Users\0976370081\Pictures\ROX\LJ004.bmp"
LJ005 = "C:\Users\0976370081\Pictures\ROX\LJ005.bmp"
LJ006 = "C:\Users\0976370081\Pictures\ROX\LJ006.bmp"
//,LJ00
LJ = Array(LJ000,LJ001,LJ002,LJ003,LJ004,LJ005,LJ006)

Sub A(x, y, w, h, s, n)
	FindPic x+(227),y,x+w,y+h,s,0.5,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX + 10, intY + 10
		LeftClick 1
	End If
End Sub

For i = 0 To UBound(LJ)
	Call A(win1x, win1y, winw, winh, LJ(i), 1)
	Call A(win2x, win2y, winw, winh, LJ(i), 2)
	Call A(win3x, win3y, winw, winh, LJ(i), 3)
	Call A(win4x, win4y, winw, winh, LJ(i), 4)
	Delay 100
Next

2.1圖片資料夾：
2.2附件：
無
3.附件中的圖片檔：
LJ006
LJ000
LJ001
LJ002
LJ003
LJ004
LJ005