给初学者：用VB写外挂 ———— 检测到HP小于保护值怎么办：关于发送按键

上一次，我们知道了如何读写内存，当读到HP的数据已经很少了，怎么办呢？很多网络游戏都支持热键吃药了，就说一下如何发送一个按键（非组合），以联众的侠义道游戏为例：

使用API函数：PostMessage

函数：

Sub mSendKey(ByVal GameHwnd As Long,ByVal VB_Key As Long)
PostMessage GameHwnd, WM_KEYDOWN, VB_Key, 0&
PostMessage GameHwnd, WM_KEYUP, VB_Key, 0&
End Sub

说明： GameHwnd为游戏窗口的HWND， WM_KEYDOWN代表按下键，WM_KEYUP代表弹起键，VB_Key为虚拟键码

调用：

If hp < CLng(Text1.Text) Then mSendKey GHwnd,vbKeyF1

这样，就可以让血少于指定值（TEXT1.TEXT）时，自动喝红了

 

同样道理，你也可以在20级以下使用自己写的外挂来自动喝蓝补体。