Получение приложения .net и приложения vb6 для общения друг с другом?

то, что я сделал в прошлом, - это библиотека классов в .NET, представленная как COM-объект (в информации о сборке установите для атрибута ComVisible значение true).

Таким образом, из VB6 вы можете вызывать методы, которые вы экспортировали из библиотеки классов .NET, а в C# вы можете получить весь код, необходимый для обработки ситуации.

Таким образом, я пишу меньше кода на VB6 и больше на C#, где мы можем извлечь выгоду из лучшей обработки исключений (try-catch-finally), фреймворков журналирования, таких как Log4Net и так далее...

это работало очень хорошо для меня до сих пор.

Вы можете использовать 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

Обратите внимание, выше написанное как VBscript, но я бы подумал, что должно работать как код VB6.

У меня нет под рукой подробностей, но в прошлом я использовал обмен сообщениями Windows для отправки WM_NULL. Это равнозначно пинг-сообщению. Таким образом, приложение VB6 отправляет периодический пинг в приложение системного лотка. Если приложение системного лотка не отвечает на пинг своевременно, тогда приложение 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