---
tags: 按鍵精靈 2014.6
---
[YouTube](https://youtu.be/Ze4FMZw2fKM)
# 熱血江湖 歸來 自動虛寶兌換
一、使用工具：
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.程式碼：

Function XBMFA01()
	SLNumber = Int(Form1.InputBox1.Text)
	DelayTime = Int(Form1.InputBox2.Text)
	WinNumber = Int(Form1.InputBox3.Text)-1
	Windows = Array(0, 0, Plugin.Sys.GetScRX(), Plugin.Sys.GetScRY())
	WinClass = Array("TscShellContainerClass")
	WinText = Array("192.168.50.101 - 远程桌面连接")
	Dim SetWinSize(99)
	For i=0 To 99
		For j = 0 To 3
			SetWinSize((Fix(i/4)*4)+j) = Array((j * 480), (Fix(i / 4)* 281), 480, 281)
		Next
		TracePrint "1."&i&"-"&"SetWinSize:"&SetWinSize(i)(0)&"|"&SetWinSize(i)(1)&"|"&SetWinSize(i)(2)&"|"&SetWinSize(i)(3)
	Next
	Dim Hwnd(99)
	Dim sRect(99)
	Dim Win(99)
	For i = 0 To 0
		Hwnd(i) = Plugin.Window.Find(WinClass(i), WinText(i))
		sRect(i) = Plugin.Window.GetClientRect(Hwnd(i))
		MyArray = Split(sRect(i), "|")
		Win(i) = Array(Clng(MyArray(0)), Clng(MyArray(1)), Clng(MyArray(2)), Clng(MyArray(3)))
		TracePrint "2.Win:"&Win(i)(0)&"|"&Win(i)(1)&"|"&Win(i)(2)&"|"&Win(i)(3)
//		EndScript
	Next

	Dim XBMString(999)
	XBMString(0) = "Q|M|6|6|6"
	XBMString(1) = "Q|M|7|7|7"
	XBMString(2) = "Q|M|8|8|8"
	XBMString(3) = "Q|M|9|9|9"
	XBMString(4) = "Q|M|2|0|2|4"
	XBMString(5) = "V|I|P|6|6|6"
	XBMString(6) = "V|I|P|7|7|7"
	XBMString(7) = "V|I|P|8|8|8"
	XBMString(8) = "V|I|P|9|9|9"
	XBMString(9) = "n|i|u|6|6|6"
	XBMString(10) = "j|o|h|n|n|y|6|6|6"
	XBMString(11) = "A|l|p|h|a|7"
	XBMString(12) = "l|o|v|e|6|6|6"
	XBMString(13) = "D|A|D|A|6|6"
	XBMString(14) = "W|A|N|6|6|6"
	XBMString(15) = "x|u|6|6|6"
	XBMString(16) = "R|A|B|B|I|T"
	XBMString(17) = "s|i|s|i|7|7"
	XBMString(18) = "F|B|G|I|F|T"
	XBMString(19) = "P|I|N|P|O|N"
	XBMString(20) = "k|e|n|6|6|6"
	XBMString(21) = "H|D|E|8|8|8"
	XBMString(22) = "N|I|C|6|6|6"
	XBMString(23) = "H|O|T|G|I|R|L|S"
	XBMString(24) = "X|J|6|6|6|6"
	XBMString(25) = "T|H|A|N|K|S"
	XBMString(26) = "H|O|T|N|O|1"
	XBMString(27) = "l|o|v|e|h|o|m|e|0|2|0|1"
	XBMString(28) = "N|P|C|G|I|F|T"
	XBMString(29) = "H|O|N|G|8|8"
	XBMString(30) = "N|I|U|8|8|8"
	XBMString(31) = "Y|Y|6|6|6|6"
	XBMString(32) = "A|B|B|Y|7|7"
	XBMString(33) = "W|E|N|8|8|8"
	XBMString(34) = "P|U|D|D|I|N|G"
	XBMString(35) = "U|Z|R|A|6|6"
	XBMString(36) = "D|O|U|D|O|U"
	
	TracePrint "3."&Win(0)(0)+SetWinSize(WinNumber)(0)&"|"&Win(0)(1)+SetWinSize(WinNumber)(1)&"|"&Win(0)(0)+SetWinSize(WinNumber)(0)+SetWinSize(WinNumber)(2)&"|"&Win(0)(1)+SetWinSize(WinNumber)(1)+SetWinSize(WinNumber)(3)

	FindPic Win(0)(0)+SetWinSize(WinNumber)(0), Win(0)(1)+SetWinSize(WinNumber)(1), Win(0)(0)+SetWinSize(WinNumber)(0)+SetWinSize(WinNumber)(2),Win(0)(1)+SetWinSize(WinNumber)(1)+SetWinSize(WinNumber)(3), "C:\Users\0976370081\Pictures\HOT-GL\XBDH01.bmp", 0.5, intX, intY
	If intX > 0 And intY > 0 Then 
		TracePrint "4."
		For i=0 To SLNumber
//				TracePrint i&"|"&intX & "|" & intY
			MoveTo intX + 153, intY + 118+10
			LeftClick 1
			Delay DelayTime
			MoveTo intX + 0, intY + 203+10
			LeftClick 1
			Delay DelayTime
			XBMCharArray = Split(XBMString(i), "|")
			For j=0 To UBound(XBMCharArray)
				KeyPress XBMCharArray(j), 1
			Next
			Delay DelayTime
			MoveTo intX + 153, intY + 143+10
			LeftClick 3
			Delay DelayTime
		Next
		MsgBox "結束!"
		EndScript
	End If
	
	
	FindPic Win(0)(0)+SetWinSize(WinNumber)(0), Win(0)(1)+SetWinSize(WinNumber)(1), Win(0)(0)+SetWinSize(WinNumber)(0)+SetWinSize(WinNumber)(2),Win(0)(1)+SetWinSize(WinNumber)(1)+SetWinSize(WinNumber)(3), "C:\Users\0976370081\Pictures\HOT-GL\XBDH02.bmp", 0.5, intX, intY
	If intX > 0 And intY > 0 Then 
		TracePrint "5."
		For i=0 To SLNumber
			TracePrint i&"|"&intX & "|" & intY
			MoveTo intX + 170, intY + 130
			LeftClick 1
			Delay DelayTime
			MoveTo intX + 0, intY + 223
			LeftClick 1
			Delay DelayTime
			XBMCharArray = Split(XBMString(i), "|")
			For j=0 To UBound(XBMCharArray)
				KeyPress XBMCharArray(j), 1
			Next
			Delay DelayTime
			MoveTo intX + 167, intY + 157
			LeftClick 3
			Delay DelayTime
		Next
		MsgBox "結束!"
		EndScript
	End If
		
End Function

BeginThread  XBMFA01()

2.介面：
3.1圖片資料夾：

3.2附件：
無
4.圖片檔：
XBDH01
XBDH02