Question

vb给窗体发送信息

如图所示，第一个程序点击发送一个字符串然后在第二个程序上面显示出来，并判断是否发送成功，如果第二个程序卡死或者异常是应该没有返回信息的。怎么来操作！

Answer 1

如果是在同一个机器上可以利用win32 API SendMessageTmeoUt

函数原型：LRESULT SendMessageTmeoUt（HWND hwnd，UINT Msg，WPARAM wParam，LPARAM
IParam，UINTfuFlags，UIUT uTimeout，LPDWORD
lpdwResultult）；

参数：

hWnd：其窗口程序将接收消息的窗口的句柄。如果此参数为HWND_BROADCAST，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非自身拥有的窗口。

Msg：指定被发送的消息。

wParam：指定附加的消息指定信息。

IParam：指定附加的消息指定信息。

fuFlags；指定如何发送消息。此参数可为下列值的组合：

SMTO_ABORTIFHUNG：如果接收进程处于“hung”状态，不等待超时周期结束就返回。

SMTO_BLOCK：阻止调用线程处理其他任何请求，直到函数返回。

SMTO_NORMAL：调用线程等待函数返回时，不被阻止处理其他请求。

SMTO_ONTIMEOUTIFNOTHUNG：Windows
95及更高版本：如果接收线程没被挂起，当超时周期结束时不返回。

uTimeout：为超时周期指定以毫秒为单位的持续时间。如果该消息是一个广播消息，每个窗口可使用全超时周期。例如，如果指定5秒的超时周期，有3个顶层窗回未能处理消息，可以有最多15秒的延迟。

IpdwResult：指定消息处理的结果，依赖于所发送的消息。

返回值：如果函数调用成功，返回非零值。如果函数调用失败，或超时，返回值是零。若想获得更多的错误信息，请调用GetLastError函数。如果GetLastError返回零，表明函数超时。如果使用HWND_BROADCAST，SenddMessaggTimeout不提供单个窗口超时信息。

Answer 2

接受信息的程序也是你做的？
是话就比较容易
如果不是 那就相当麻烦了

Answer 3

有发送的为form1
接受的为form2
在按钮上单击事件上写Form2.Text1.Text = Form1.Text1.Text