我有几个相互依赖的应用程序。其中之一是一个强大的VB6应用程序，另一个是备受期待的、采用隐蔽技术、很可能获得奥斯卡奖的.NET（2.0）系统托盘应用程序。VB6应用程序启动了系统托盘应用程序。如果VB6应用程序关闭，则系统托盘应用程序将关闭自身，假设它没有其他的工作要做（它的工作是将文档保存到数据库中）。
我唯一剩下的担忧是，如果系统托盘应用程序崩溃或由于某些致命错误无法完成工作，会发生什么情况。这种情况的一个可能结果是我弹出一个模态对话框，告诉用户“立即联系支持人员，因为您不能再保存文档了”。
我认为这里最坏的情况是，每当在vb6应用程序中处理文档时（即，用户完成文档，并将其组件压缩并保存在本地），我都必须检查并查看系统托盘应用程序是否正在运行。我不知道，这似乎有点繁琐。有更优雅的方法吗？有没有办法“发出信号”让我的VB6应用程序/让我的VB6应用程序监听这样的信号呢？
我过去所做的是一个在.NET中暴露为COM对象的类库（在程序集信息中，将ComVisible属性设置为true）。
这样，在VB6中，您可以调用从.NET类库导出的方法，在C＃中，您可以获得处理情况所需的所有代码。
这样，我在VB6中编写的代码更少，而在C＃中编写的代码更多，我们可以受益于更好的异常处理（try-catch-finally），像Log4Net这样的日志框架等等...
迄今为止，这对我非常有效。
Ping 的方法！（只是为了使所有其他回答此问题的答案都过时） - wqw您可以使用类似以下代码的 WMI 来轻松检查它是否正在运行：
dim foundIt
For Each Process in GetObject( "winmgmts://." ).InstancesOf( "win32_process" )
If UCase( Process.name ) = "MYDOTNET.EXE" Then
foundIt = true
End If
Next
if not foundIt then
msgbox( "It's not running, so start the process")
end if
我手头没有详情，但我过去使用过Windows消息发送WM_NULL。这相当于一个ping消息。因此，VB6应用程序向系统托盘应用程序发送定期ping。如果系统托盘应用程序未能及时响应ping，则VB6应用程序会知道它已挂起或未运行。
我的第一次猜测是介绍两者之间的互通。让VB6应用程序在定义的时间间隔内发送PING请求。然后，如果VB6应用程序没有收到响应或请求超时，则执行所需操作。
'declaration for FindWindow API
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
'Call the following on a timer with the Tray icon form caption
'when it goes False unleash hell
Private Function IsWindowLoaded(ByVal strWindowCaption As String) As Boolean
Dim lHwnd As Long
lHwnd = FindWindow(strWindowCaption, vbNullString)
If lHwnd <> 0 Then
IsWindowLoaded = True
Else
IsWindowLoaded = False
End If
End Function