Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF

Private Sub Command1_Click()
If Command1.Caption = "启动" Then
    Timer1.Enabled = True
    Command1.Caption = "关闭"
   
Else
    Timer1.Enabled = False
    Command1.Caption = "启动"
    Label1.Caption = "外挂关闭"
End If
End Sub

Private Sub Timer1_Timer()
Dim aa As Long
Dim pid As Long
Dim aa2 As Long
Dim hp As Long
Dim py As Long
aa = FindWindow(vbNullString, "element client")
If aa Then
    Label1.Caption = "外挂开启"
Else
    Label1.Caption = "连接游戏失败"
End If
GetWindowThreadProcessId aa, pid
aa2 = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

ReadProcessMemory aa2, ByVal &H9CFFE0 + &H1C, py, 4, 0&
ReadProcessMemory aa2, ByVal py + &H24, py, 4, 0&
ReadProcessMemory aa2, ByVal py + &H260, hp, 4, 0&

Label2.Caption = hp
if hp<2000 then
    sendkeys "1"
endif
End Sub
'红色部分是当血量低于2000时。。我游戏中点击1来回血。。可是这个1在游戏聊天框中可以出现。。却不会自己用药物。。请问有什么方法来代替sendkeys的功能。。使其在游戏中能得到实现

postmessage

这和sendkeys是一个原理的吧。。试过无效

什么游戏？你再最后试试SENDMESSAGE吧，估计够呛。
还不行只能用驱动级模拟按键了

现在一般游戏都加了按键状态检测，就是说只用发送消息难以欺骗它了。
可以用SendInput模拟按键试试，这个一般都能对付。缺点就是不能后台。

要想利用发送消息，首先得把几个键盘状态检测的函数给HOOK掉，然后在
游戏检测调用时返回虚假状态。

又见东海一鱼兄，上次东海兄的引导我现在可以搞出后台Call了，呵呵。。。楼主也学习下后台call这种方法吧。

怎么处理啊。。才接触api。。很多都不懂

to ioriliao:
嗬嗬，恭喜了。

to husiwen:
那就先下个MSDN看看吧，希望对你的‘功力’提升有帮助。