HWND hwnd1,Server,PlayType,phwnd;//tmpr,Butn1,Butn2,Butn3,Butn4,Butn5,Butn6,;
DWORD ctrlid;
DWORD wparam;
PlayType=FindWindowEx(hwnd1,NULL,"ThunderRT6ComboBox",NULL);

        ::SendMessage(PlayType,CB_SETCURSEL,4,NULL);
        ctrlid = ::GetDlgCtrlID(PlayType);
        wparam=CBN_SELCHANGE * 2 ^ 16 + ctrlid;
        phwnd = ::GetParent(PlayType);
        Sleep(500);
        ::SendMessage(phwnd, WM_COMMAND, ctrlid,(LPARAM) PlayType);
这段代码向一个窗体的combo发送选择
但是我想叫也能响应那个CBN_SELCHANGE消息
但是他不响应
用VB确可以
        Dim mhwnd     As Long
          Dim ctrlid     As Long
          mhwnd = Me.Combo1.hwnd
          ctrlid = GetDlgCtrlID(mhwnd)
          Dim wparam     As Long, lparam       As Long
          wparam = CBN_SELCHANGE * 2 ^ 16 + ctrlid
          lparam = mhwnd
          Dim phwnd     As Long
          phwnd = GetParent(mhwnd)
          SendMessage phwnd, WM_COMMAND, wparam, ByVal lparam

我到底做错什么l ???

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课