以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  跨进程发送消息失败,求解  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98093)

--  作者:飞飞
--  发布时间:2017/3/23 23:11:00
--  跨进程发送消息失败,求解
全局代码
以下内容为程序代码:

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))

求解啊,哥哥姐姐们

--  作者:有点色
--  发布时间:2017/3/23 23:43:00
--  

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77745&skin=0

 


--  作者:飞飞
--  发布时间:2017/3/24 8:41:00
--  
谢谢