有大大可以貼案精的自動補血補魔嗎

有大大可以貼一下補血補魔的腳本嗎 3q
不知道那錯囉有知道的大大可以改一下嗎
//自訂補血數值
Dim HPval=50
Dim MPval=50
//參數宣告
VBS Dim HP
VBS Dim MP
//讀取記憶體
VBSCall ReadMemory(0x016D2BB6,1,HP)
VBSCall ReadMemory(0x016D2BBA,1,MP)
//腳本開始
Rem Start
//當血低於預設值50低時，自動補血補魔
//補血
If HP<HPval
    KeyPress 49,1
EndIf
//補魔
If MP<MPval
    KeyPress 50,1
EndIf
//回到起始點
Goto Start

VBSCall ReadMemory(&H016D2BB6,1,HP)
VBSCall ReadMemory(&H016D2BBA,1,MP)
改成這樣....如果讀不到改用插件

Plugin hwnd=Window.Foreground()
Plugin HP=Memory.Read16Bit(hwnd,&H016D2BB6)
Plugin MP=Memory.Read16Bit(hwnd,&H016D2BBA)

0x的寫法似乎是EZS的寫法
&H才是按鍵精靈的寫法