当前位置:编程学习 > VB >>

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

其实外挂是自己在做,用vb6.0
不过遇到一个问题 ,问题表述如下:

我抓到其他應用程式中的某個combobox的HWND~
這個combobox的特點是,當你輸入完之後按enter即代表送出~会发消息到另一个控件。


可是當我對那個HWND用Sendmessage/postmessage送訊息時~(出现该应用程序强退)
無論我送WM_KEYDOWN, WM_CHAR, WM_KEYUP的VK_RETURN~都无法触发这个消息


可見在combobox用鍵盤實際按下enter鍵時
除了WM_KEYDOWN,WM_CHAR,WM_CHAR之外一定還有其他訊息?


請問在我只有那個combobox HWND的前提之下~
我要怎麼做, 才能讓他認為我是按下enter鍵而有該有的回應?

150元的项目,联系QQ8638010 --------------------编程问答--------------------   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

每次执行代码应用程序就死~~~~求高手解答~~~ --------------------编程问答-------------------- 大家在做外挂的时候都有遇到这样的情况吗?

'函数的声明
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 --------------------编程问答-------------------- 哦,你的问题解决了吗? --------------------编程问答-------------------- 看来做外挂的,大家都不爱答理!
好久没上了,回复一下吧!
你用keyb_event模拟键盘输入试试
补充:VB ,  API
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,