做外挂的时候combobox回车消息不响应问题（有偿帮助）

Question

  For i = 1 To Len(Label4.Caption)
         PostMessage hwnd, WM_CHAR, Asc(Mid(Label4.Caption, i, 1)), 0&     
  Next
     PostMessage hwnd, WM_KEYDOWN, 13, MakeLparam(13, False)
     PostMessage hwnd, WM_KEYUP, 13, MakeLparam(13, True)   '回车键'hwnd 是一个combobox的句柄
Function MakeKeyLparam(ByVal VirtualKey As Long, ByVal flag As Long) As Long
Dim s As String
Dim Firstbyte As String 'lparam参数的24-31位
If flag = WM_KEYDOWN Then   '如果是按下键
       Firstbyte = "00"
Else
       Firstbyte = "C0"    '如果是释放键
End If
Dim Scancode As Long
'获得键的扫描码
Scancode = MapVirtualKey(VirtualKey, 0)
Dim Secondbyte As String 'lparam参数的16-23位，即虚拟键扫描码
Secondbyte = Right("00" & Hex(Scancode), 2)
s = Firstbyte & Secondbyte & "0001"   '0001为lparam参数的0-15位，即发送次数和其它扩展信息
MakeKeyLparam = Val("&H" & s)
End Function每次执行代码应用程序就死~~~~求高手解答~~~

Answer 1

大家在做外挂的时候都有遇到这样的情况吗？'函数的声明
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Answer 2

看来做外挂的，大家都不爱答理！
好久没上了，回复一下吧！
你用keyb_event模拟键盘输入试试