出錯時轉到err1
聲明壹些必需的變量。
“Dim PID As Long”存儲進程標識符(進程ID)。
Dim pHandle只要'存儲進程句柄。
獲取進程標識符
GetWindowThreadProcessId Hwnd，PID
使用進程標識符獲取進程句柄。
pHandle = open PROCESS(PROCESS _ ALL _ ACCESS，False，PID)
讀取內存地址中的數據。
ReadProcessMemory pHandle，ByVal lpAddress，ByVal VarPtr(NCNR)，lLen，0 & amp
關閉進程句柄。
關閉句柄進程
退出功能
err1:
NCNR = & amp；這是壹個錯誤信號。
結束功能
給妳寫壹個函數，妳只要輸入窗口HWND，地址x和字節數就可以得到，希望對妳有幫助。
例如:NLNow = NCNR(lHwndOK，lValue+& H1F04，2)'當前內力值