---
tags: 按鍵精靈 2014.6
---
# PC熱血江胡 自動強化
[YouTube](https://youtu.be/Bo9tkEf7Nno)
一、使用工具：
1.[按鍵精靈2014.6](http://download.myanjian.com/)
([簡體中文版Window](https://www.microsoft.com/zh-cn/software-download/windows10)安裝使用較無問題。)

二、按鍵精靈腳本：
1.程式：

NumberAX = Array(-51,-18,15,48,81,114)
NumberAY = Array(236, 270, 305, 340, 375, 410)
NumberBX = Array(-49)
NumberBY = Array(346)
NumberCX = Array(24)
NumberCY = Array(411)
NumberDX = Array(-49,-16,17,50,83,116)
NumberDY = Array(32,66,101,136,171,206,241,276,311,346)
Count = 0
CountEnd = Int(Form1.InputBox1.Text)
XBX = -1 
XBY = -1
While XBX = -1 And XBY = -1
    FindPic 0,0,1920,1080,"C:\Users\0976370081\Pictures\熱江\輔助背包.bmp",0.3,intFX,intFY
    For i = 0 To 9
        For j = 0 To 5
            If intFX > 0 And intFY > 0 Then 
                XBFPX = intFX + NumberDX(j)
                XBFPY = intFY + NumberDY(i)
                XBFPW = intFX + NumberDX(j) + 40
                XBFPH = intFY + NumberDY(i) + 40
                //                TracePrint CStr(j)+"|"+CStr(i)
                //                TracePrint CStr(XBFPX)+"|"+CStr(XBFPY)+"|"+CStr(XBFPW)+"|"+CStr(XBFPH)
                FindPic XBFPX, XBFPY, XBFPW, XBFPH, "C:\Users\0976370081\Pictures\熱江\XB.bmp", 0.3, intXX, intXY
                If intXX > 0 And intXY > 0 Then 
                    XBX = j
                    XBY = i
                    i = 99
                    j = 99
                End If
            End If
        Next
    Next
    TracePrint "XB:"
    TracePrint CStr(XBX)+"|"+CStr(XBY)
Wend
QAX = -1 
QAY = -1
While QAX = -1 And QAY = -1
    FindPic 0,0,1920,1080,"C:\Users\0976370081\Pictures\熱江\輔助背包.bmp",0.3,intEX,intEY
    For i = 0 To 9
        For j = 0 To 5
            If intEX > 0 And intEY > 0 Then 
                QAFPX = intEX + NumberDX(j)
                QAFPY = intEY + NumberDY(i)
                QAFPW = intEX + NumberDX(j) + 40
                QAFPH = intEY + NumberDY(i) + 40
                //                TracePrint CStr(j)+"|"+CStr(i)
                //                TracePrint CStr(QAFPX)+"|"+CStr(QAFPY)+"|"+CStr(QAFPW)+"|"+CStr(QAFPH)
                FindPic QAFPX, QAFPY, QAFPW, QAFPH, "C:\Users\0976370081\Pictures\熱江\QA.bmp", 0.3, intQX, intQY
                If intQX > 0 And intQY > 0 Then 
                    QAX = j
                    QAY = i
                    i = 99
                    j = 99
                End If
            End If
        Next
    Next
    TracePrint "QA:"
    TracePrint CStr(QAX)+"|"+CStr(QAY)
Wend

FindPic 0,0,1920,1080,"C:\Users\0976370081\Pictures\熱江\背包.bmp",0.3,intAX,intAY
For XBABC = 1 To Int(Form1.InputBox2.Text)
    TracePrint "XBABC:"+CStr(XBABC)
    If intAX > 0 And intAY > 0 Then 
        TracePrint "背包"
        KeyDown "Ctrl",1
        For i = 0 To 5
            For j = 0 To 5
                Rem Continue
                FindPic intAX+NumberAX(j),intAY+NumberAY(i),intAX+NumberAX(j)+33,intAY+NumberAY(i)+33,"C:\Users\0976370081\Pictures\熱江\空位.bmp",0.1,intDX,intDY
                If intDX > 0 And intDY > 0 Then 
                    j = j + 1
                    If j > 5 Then 
                        i = i + 1
                        j = 0
                    End If
                    TracePrint "跳過空格A:"+CStr(j)+"|"+CStr(i)
                    If i <= 5 Then 
                        Goto Continue
                    Else 
                        Goto Break
                    End If
                End If
                FindPic intAX+NumberAX(j),intAY+NumberAY(i),intAX+NumberAX(j)+33,intAY+NumberAY(i)+33,"C:\Users\0976370081\Pictures\熱江\空位B.bmp",0.1,intDX,intDY
                If intDX > 0 And intDY > 0 Then 
                    j = j + 1
                    If j > 5 Then 
                        i = i + 1
                        j = 0
                    End If
                    TracePrint "跳過空格B:"+CStr(j)+"|"+CStr(i)
                    If i <= 5 Then 
                        Goto Continue
                    Else 
                        Goto Break
                    End If
                End If
                MoveTo intAX + NumberAX(j) + 10, intAY + NumberAY(i) + 10
                LeftClick 1
                Delay 100
                FindPic 0,0,1920,1080,"C:\Users\0976370081\Pictures\熱江\輔助背包.bmp",0.3,intBX,intBY
                If intBX > 0 And intBY > 0 Then 
                    MoveTo intBX + (NumberDX(QAX)) + 10, intBY + (NumberDY(QAY)) + 10
                    LeftClick 1
                    TracePrint "Q化石"
                End If
                Delay 100
                If XBABC > Int(Form1.InputBox3.Text) Then 
                    FindPic 0,0,1920,1080,"C:\Users\0976370081\Pictures\熱江\輔助背包.bmp",0.3,intBX,intBY
                    If intBX > 0 And intBY > 0 Then 
                        MoveTo intBX + (NumberDX(XBX)) + 10, intBY + (NumberDY(XBY)) + 10
                        LeftClick 1
                        TracePrint "幸運符"
                    End If
                    Delay 100
                End If
                FindPic 0,0,1920,1080,"C:\Users\0976370081\Pictures\熱江\強化裝備.bmp",0.3,intCX,intCY
                If intCX > 0 And intCY > 0 Then 
                    MoveTo intCX + NumberCX(0), intCY + NumberCY(0)
                    LeftClick 1
                    TracePrint "強化裝備"+CStr(intCX + NumberCX(0))+"|"+CStr(intCY + NumberCY(0))
                End If
                Delay 150
                Count = Count + 1
                If Count >= CountEnd Then 
                    i = i
                    j = j
                End If
            Next
        Next
        Rem Break
        KeyUp "Ctrl", 1
    End If
Next

2.介面：
3.附件：

背包
輔助背包
空位
空位B
強化裝備
QA
XB