--------------------------------------------------------------------------------------------------------------------------------------------------------
应用实战
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VBAPI函数：
FindWindow
GetWindowThreadProcessId
OpenProcess
ReadProcessMemory
CloseHandle
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明：
FindWindow
↓
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong

GetWindowThreadProcessId
↓
PrivateDeclareFunctionGetWindowThreadProcessIdLib"user32"(ByValhwndAsLong,lpdwProcessIdAsLong)
AsLong

OpenProcess
↓
PrivateDeclareFunctionOpenProcessLib"kernel32"(ByValdwDesiredAccessAsLong,ByValbInheritHandleAsLong,ByValdwProcessIdAsLong)AsLong

ReadProcessMemory
↓
PrivateDeclareFunctionReadProcessMemoryLib"kernel32"(ByValhProcessAsLong,ByVallpBaseAddressAsAny,ByVallpBufferAsAny,ByValnSizeAsLong,lpNumberOfBytesWrittenAsLong)AsLong

CloseHandle
↓
PrivateDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsLong)AsLong

GetCurrentProcess
↓
PrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLong
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：Label、Timer（interval不为空）、Text
--------------------------------------------------------------------------------------------------------------------------------------------------------
定义函数：
DimSetHpAsInteger定义设定的体力值
DimSetMpAsInteger定义设定的魔法值
DimNowHpAsLong定义目前的体力值
DimNowMpAsLong定义目前的魔法值
DimMaxHpAsLong定义角色的最高体力值
DimMaxMpAsLong定义角色的最高魔法值
DimDiZhiAsLong定义内存地址函数
DimhwndAsLong储存FindWindow函数返回的句柄
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码：
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateDeclareFunctionGetWindowThreadProcessIdLib"user32"(ByValhwndAsLong,lpdwProcessIdAsLong)
AsLong
PrivateDeclareFunctionOpenProcessLib"kernel32"(ByValdwDesiredAccessAsLong,ByValbInheritHandleAsLong,ByValdwProcessIdAsLong)AsLong
PrivateDeclareFunctionReadProcessMemoryLib"kernel32"(ByValhProcessAsLong,ByVallpBaseAddressAsAny,ByVallpBufferAsAny,ByValnSizeAsLong,lpNumberOfBytesWrittenAsLong)AsLong
PrivateDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsLong)AsLong
PrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLong
DimSetHpAsInteger定义设定的体力值
DimSetMpAsInteger定义设定的魔法值
DimNowHpAsLong定义目前的体力值
DimNowMpAsLong定义目前的魔法值
DimMaxHpAsLong定义角色的最高体力值
DimMaxMpAsLong定义角色的最高魔法值
DimDiZhiAsLong定义内存地址函数

PrivateFunctionncnr(lpADDressAsLong)AsInteger
声明一些需要的变量
DimhwndAsLong储存FindWindow函数返回的句柄
DimpidAsLong储存进程标识符(ProcessId)
DimpHandleAsLong储存进程句柄
hwnd=FindWindow(vbNullString,"封神榜·网络版")
取得进程标识符
GetWindowThreadProcessIdhwnd,pid
使用进程标识符取得进程句柄
pHandle=OpenProcess(PROCESS_ALL_ACCESS,False,pid)
在内存地址中读取数据
ReadProcessMemorypHandle,lpADDress,ByValVarPtr(ncnr),4,0&
关闭进程句柄
CloseHandlehProcess
EndFunction
ConstSTANDARD_RIGHTS_REQUIRED=&HF0000
ConstSYNCHRONIZE=&H100000
ConstSPECIFIC_RIGHTS_ALL=&HFFFF
ConstSTANDARD_RIGHTS_ALL=&H1F0000
ConstPROCESS_ALL_ACCESS=STANDARD_RIGHTS_REQUIREDOrSYNCHRONIZEOr&HFFF
ConstPROCESS_VM_OPERATION=&H8&
ConstPROCESS_VM_READ=&H10&
ConstPROCESS_VM_WRITE=&H20&

PrivateSubForm_Load()
体力：07F68F3这里替换你所搜索到的地址魔法：07F6860同前
DiZhi=&H07F68F3
Timer1.Enabled=True
Timer2.Enabled=False
Timer3.Enabled=False
EndSub

PrivateSubTimer1_Timer()
DimhwndAsLong
hwnd=FindWindow(vbNullString,"封神榜·网络版")

Ifhwnd=0Then
Label12.Caption="游戏未加载"
Timer1.Enabled=True
Timer2.Enabled=False
Timer3.Enabled=False
ExitSub
EndIf

Label12.Caption="游戏已加载"
SetHp=Text1.Text获取设定的体力值
SetMp=Text2.Text获取设定的魔法值
NowHp=ncnr(DiZhi)获取当前的体力值
NowMp=ncnr(DiZhi 12)获取当前的魔法值
MaxHp=ncnr(DiZhi 4)获取角色的最高体力值
MaxMp=ncnr(DiZhi 16)获取角色的最高魔法值
Label3.Caption=Str(NowHp) "/" Str(MaxHp)显示角色体力值状态
Label4.Caption=Str(NowMp) "/" Str(MaxMp)显示角色魔法值状态

IfCheck1.ValueThen
Timer2.Enabled=True
Else
Timer2.Enabled=False
EndIf
IfCheck2.ValueThen
Timer3.Enabled=True
Else
Timer3.Enabled=False
EndIf
EndSub

PrivateSubTimer2_Timer()
体力值小于设定值按下数字键1
If(NowHp)<SetHpThen
SendKeys"1"
EndIf
EndSub

PrivateSubTimer3_Timer()
魔法值小于设定值按下数字键2
If(NowMp)<SetMpThen
SendKeys"2"
EndIf
EndSub
--------------------------------------------------------------------------------------------------------------------------------------------------------