-
-
用SendMessage后台按键出现的问题（应用游戏中模拟按键）
-
发表于: 2010-10-25 18:57
-
我想做一个在游戏中自动按键的小东西，可是做出来游戏中不能用那个快捷键，就是不能自动打怪，点聊天框时却出现我想按的那个键，给截图
VB6.0写的这是源码
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long '
Private Declare Function SetFocusAPI& Lib "user32" Alias "SetFocus" (ByVal hwnd As Long)
Private Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)
Private Const WM_CHAR = &H102
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim hwd As Long
Dim hwd1 As Long
hwd1 = Text1.Text 'txet1 中装着游戏的句柄
SendMessage hwd1, WM_CHAR, 49, 1 '模拟按键
End Sub
这是那个工具有取游戏句柄的和我编译的 桌面.rar
请大家帮忙看看
VB6.0写的这是源码
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long '
Private Declare Function SetFocusAPI& Lib "user32" Alias "SetFocus" (ByVal hwnd As Long)
Private Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)
Private Const WM_CHAR = &H102
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim hwd As Long
Dim hwd1 As Long
hwd1 = Text1.Text 'txet1 中装着游戏的句柄
SendMessage hwd1, WM_CHAR, 49, 1 '模拟按键
End Sub
这是那个工具有取游戏句柄的和我编译的 桌面.rar
请大家帮忙看看
|
|
|---|---|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
windows核心编程里面有直接的代码
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
