VB从零开始编外挂(六)

--------------------------------------------------------------------------------------------------------------------------------------------------------
　　应用实战
　　--------------------------------------------------------------------------------------------------------------------------------------------------------
　　需要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
　　--------------------------------------------------------------------------------------------------------------------------------------------------------