主题：跨进程发送消息失败，求解

以下内容为程序代码:

1 Public Structure COPYDATASTRUCT
2 Dim dwData As Integer
3 Dim cbData As Integer
4 Dim lpData As String
5 End Structure
6
7
8 Public Declare Function SendMessageA Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As COPYDATASTRUCT) As Integer
9

以下内容为程序代码:

1 Dim st As String = "from foxtable"
2 Dim msg As COPYDATASTRUCT
3 msg.cbData = st.Length
4 msg.lpData = st
5 Output.Show( SendMessageA(134722,74,0,msg))