FindWindow,SendMessage问题（急）

sunjavasun

问题是这样的：
我在vc中想传一个值给vb写的应用程序中的一个文本框(TextBox)
在vc中，我先获得这个vb写的应用程序（测试)的句柄
HWND hWnd = FindWindow(NULL, "测试");
再用SendMessage给这个句柄发送消息
现在问题是，SendMessage如何设置参数，以及vb中如何获取传过来的值。
谢谢了！

minlichao

sendmessage hwnd,WM_SETTEXT,0,"string"

好像VB可以在Text1_Change事件里面得到通知

sunjavasun

minlichao你好，你参数中的hwnd是TextBox的吧，但是那个FindWindow只能获取窗口的啊

fenghui1231

直接在VB中用findwindow好了

namezhangyu

sendmessage hwnd,WM_SETTEXT,0,byval "string"

wsj537

如果需要获得textbox的hwnd
需要使用findwindowEx

sunjavasun

谢谢各位，findwindowEx可以获取textbox的句柄，可是如何获取指定textbox的句柄，就是说假如有两个textbox，我如何获取第二个的句柄？

sunjavasun

另外，我是在vc中来获取vb中的句柄的

sunjavasun

我现在换成WM_COPYDATA来做，可是又出现了问题，情况如下：
vb：
Private Sub Form_Load()
    gHW = Me.hwnd
    lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, AddressOf WindowProc)
End Sub
//模块中
Public Const WM_COPYDATA = &H4A
Public Const GWL_WNDPROC = -4
  
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  
Global lpPrevWndProc   As Long
Global gHW             As Long

Public Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case uMsg
      Case WM_COPYDATA
          MsgBox "ok"
          MsgBox lParam
          WindowProc = 0
          Exit Function
    End Select
    WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
  End Function

vc：
//先获取窗口句柄
                HWND hWnd = ::FindWindow(NULL, "车牌识别测试");
                //在获取TextBox句柄
                HWND hWndTextBox = ::FindWindowEx(hWnd, NULL, "ThunderRT6TextBox", NULL);
                //::SendMessage(hWnd, WM_SETTEXT, 0, (LPARAM)m_strPlateNum);
                if (::IsWindow(hWndTextBox))
                {
                        //::SendMessage(hWndTextBox, WM_SETTEXT, 0, (LPARAM)m_strPlateNum.GetBuffer());
                        ::SendMessage(hWnd, WM_COPYDATA, 0, (LPARAM)m_strPlateNum.GetBuffer());
                }
                else
                {
                        ::MessageBox(NULL, "找不到窗口", "识别", 0);
                }
可是不会弹出对话框啊？
不知道问题出在哪？

xiaoxu111

用文件或注册表比较简单